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\ SUMMARY 


» The objective of the Naval occupational Health Information Management 
System (MOHIMS) is to provic& 1 information system that will aid the Navy in 
meeting the requirements of the Occupational Safety and Health Act of 1970. 

In 1993, the Maval Sea Systems Command (NAVSEA) end ti Naval “Medical Command 
(MAVMEDCOM) joined to enhance the MOAIMS systea. These exhbancements are now 
referred to as the Occurationai Safety and Health Recerd Keeping Systea 
(OSHRKS). As a ceguit of these combined efforts, the Injury and Compensatics. 
Claims (ICC) module was created. my 

“> The ICC module was developed to better manage the Accident reporting 
system in the Office of Safety and Health (OSH) and to facilitate compensation 
management in the Personnel Office. The major objectives of this module are as 
follows: 1... 


~ ..sf Reduce Costs to Navy; 
o Improve Data Consistency/Accuracy , 
o Support OSH/Cempensation Reporting, ' 
© Improve Responsiveness to Inquiries - 
© Support Awards Pregras , 


The major functions of the ICC module are to store data on occupational 
illnesses and injuries and to generate from these data various statistical 
reports, including: , 

—_— 
“tas Accident Reporting (Speedletter), 
o Injury and Illness Log - 
© Compensation Reporting using standard forms. /7. .... 
a \ 

The Injury and Compensation Claims Module Maintenance Manual is to be used 
ty the CSHRXS/NOHIMS site managers in ccnjunction with other Injury and 
Compensation Claims Module (ICC) technical manuals. The ICC module was created 
using two packages; VA File Manager and InterSystems’ M/FORM. A brief 
description of each package and the routines used to interface the two packages 
ara discussed in this document. Descriptive flow diagrams, data design tables, 
and programming code are provided for a better understanding of the ICC Module. 


iv 











1.0 GENERAL 


1.1 Purpose of the Maintenance Manual. This manual is to be used in 
conjunction with the existing Injury and Compensation Claims (ICC) 
manuals. This is a technical manual which contains a description of the 


VA File Manager and interSystems’ M/FORM package interface used to update 
the ICC module. 


This manual describes the software used by the ICC module in the 
Occuparional Safety and Health Record Keeping System (OSHRKS). An 
overview of the entire mocule is presented, ‘followed by detailed 
descriptions of the routines that support each function in the module. 
This document provides the information needed to maintain the ICC module 
software. For a management-level view of the ICC module the usez is 
ceferred to the Injury and Compensation Claims Mcdule Users’ Manual. A 
detailed discussion of how the user interacts with the module is found in 
the Injury and Compensation Claims Module Operators’ Guide. 


1.2 References. The following references provide technical and 
bacxground information about the ICC module: 


o VA File Manager Users’ Manual, Version 17, Veterans 
Administration, March 1986. 


o VA File Manager Programmers’ Manual, Version 17, Veterans 
Administration, March 1986. 


© OSHRES System-Wide Programmer Maintenance Manual 

o OSHRKS Primer 

© Injury and Compensation Claims Module Maintenance Manual 
o Injury and Compensation Claims Module Users‘ Manual 

29 Injury and Compensation Claims Module Gperators’ Guide 
© System Manager's Guide 

o System-Wide Programmer Maintenance Manual 

Oo M/FORM Data Entry Guide, InterSystems 

Oo M/FORM Programming Guide, InterSystems 

o M/VX System Guide, InterSystems 

o M Programming Guide, InterSystems 


@ Injury and Compensation Claims Mcdule Functional Design 
Specification 











Es a. 


Oo American National Standard Method of Recording Basic Facts 
Relating to the Nature and Occurrence of Work 'njuries, ANSI 
Standard 216.2 


o NAVSEA Instruction 12810.1, Employee Occupational Illness/Injury 
Compensation Claims; Management and Reporting of 


o Training for Federal Employing Acency Compensation Specialists 
Resource Book, Federal Employee's Compensation Program U.S. 
Department of Labor, Employee Standards Administraticn 


© Navy Occupational Safety and Health (NAVOSH) Program Manual, 
CPNAV Instruction 5100.23B 


© OPNAV Instruction 5102.18, Mishap Investigating & Reporting 


1.3 Terms and Abbreviations. The following terms and abbreviations 
are used in this manual: 


0 Adjudication: Tis process of settling a claim; the final 
settlement of a claim. 


> Asterisk: The notation "*" used to denote a wild card character. 


o CA Form: Office of Worker’s Compensation Programs (OWCP’s) 
Federal Employee Compensation form. 


o Code’106: The Occupational Safety and Health (CSH) Office at 
the shipyard. 


© Code 165: The Employee Relations Office, Compensation S8ranch 
at the shipyard. 


o Controverted: When an employee’s agency believes an employee’s 
compensation claim is invalid, it can indicate disagrcement 
with the claim by controverting it. 


oO CoP: Continuation of employee’s regular pay for up to 45 days 
after traumatic injury. 


Oo <CR>: Notation used to denote a carriage return typically 


executed py pressing the “ENTER” or "RETURN" key on a terminal 
device, 


© DA: The internal record number variabic used py the VA FileMan 
package. 


Oo Pile Manager: The data base management package written by the 
Veterans Administration to interact with the MUMPS programming 
lanquage. ‘This package, also called FileMan, is used in OSHRKS 
to handle data manipulation needs. 








Global File: A global or global file is used to retain the data 
stored in a MUMPS system. 


Global Protection: The ability of the operating system to 
restrict the access to the global file. 


Global Reference: A subscript which identifies specific location 
data is stored in a global file. 


IcC: Injury and Compensation Claims 


Kernel: A package of programming utilities written by the 
Veterans Administration for use with the MUMPS programming 
language. This package is used in OSHRKS for menu management, 
task manager, security control, electrcric main, and related 
activities. 


MUMPS (Massachusetts General Hospital Ucility Muiti-Programming 
System): A programming language used to develop OSHRKS. 


Node: The information at a specific location in a global file. 


Node (Decendent): An expression used to define the toratien of 
information about a sulset of a file or record. 


Occupation: A defined set of jobs, each with its own code, that 
1s used to classify the primary function of each employee. 


OSH: Occupational Safety and Health. 


OWCP: Employee Standards Administration, U.S. Department of 
Labor; organization that adjudicates compensation claims. 


Prompt: A messege displayed by the computer in order to elicit 
a cesponse from the user. The arrow ">" is the standard prompt 
issued by a MUMPS system, 


Stream Format: A format for data on magnetic tape or VMX files. 
During input operations this format tr2ats line feeds, form feed, 
and vertical tabs as string delimiters and ignores carriage 
returns. During output operations this format packs characters 
sequentially into the tuffer. Instead of splitting strings 
across block boundaries, this format pads the buffer with null 
bytes. 


System: The combination of hardware, firmware, and software 
designed to function as an integrated unit. 


Template: A file containing a description of an inpt sequence 
or output report. 


Ticklerc: A dated “scratch pad" file for noting reminder and/or 
messages. 


VA: Veterans Administration. 











2.0 SYSTEM DESCRIPTION 


2.1 System Application. The objective of the Naval Cccupational Health 
Information Management System (NOHIMS) is to provide an informacion 
system that will coordinate the components of the Navy’s Occupational 
dealth program in order to meet the cequirements of the Occupational 
Safety and Health Act of 1970 and Navy Occupational Health directives. 
In 1983, the Naval Sea Systems Ccmmand (NAVSEA) and the Naval Medical 
Command {NAVMEDCOM) joined to enhance tne NOHIMS system. NCKIMS, whose 
initial version was developed at tne “aval Health Researcn Center 
(NERC), is a composite of two supsystem.: an industrial compcnent and 
medical component. The goal of the enhancement effort was to create a 
comprenensive occupational health and safety system for Navy industrial 
facilities, by expending upon the original NOHIMS functions and adding 
modules for hazard deficiency abatement, hazardous material control, 
injury claims and compensation, and safety and health training. These 
enhancements are ceferred to as the Occupational Safety and Health 
Record Keeving System (OSHRKS), were developed using a prototyping 
approach and the public domain data base management software package, 
Vetecans Administration File Manager. The enhanced NOHIMS contains tne 
following seven modules: 


o Adminstration 

o Environmental Exposure 

© Hazard Deficiency Abatement 

9 Hazardous Materials Control 

o Invary and Compensation Claims 
0 Medical Exam Scheduling 


o Safety and Health Training 


2.2 Security/Privacy. Security and Privacy Act issues are discussed 
in the System’ Manager’s Guide and Systemwide Program Maintenance 
Manual. Vhne Injury and Compensation Claims (ICC) mxtule is not 


initialized with security but it may be added through the Kernel 
security functions. 


2.3 Flexibility. Since the OSHRKS system was created using the VA 
File Manager data base utilities, enhancements and updates to the system 
can be accomplished with minimal programming. The task of enhancing and 
updating the system has veen assiyjgned to the Naval Regional Data 
Automation Center, (NARDAC),. Washington, D.C. Print templates can be 
created at the individual sites, the »xception to this is the ICC 
nodule. The 1CC mcdule uses the VA File Manager for file design, 
InterSystems’ /FORM Screen Package for input templates, and the FileMan 
M/FORM Interface Package. Because custcm coding is required to 
interface these packages, the files and input screens should be eodified 
only by programmecs who have ccce‘ved the M/PUORM and VA File Manager 
Interface training. 











3.0 SOFTWARE ENVIRONMENT 


3.1 Programming Language(s) and Conventicns. The ICC module software 
is written in the MUMPS programming language. MUMPS is a standard 
language (X11.1-1984) approved by the American National Standards 
Institute (ANSI), though non-standard dialects exist. Non-standard 
language features have been avoided as mucn as possible so that OSHRKS 
can run in any standard MUMPS environment. 


Certain features of CSHRKS, such as error trapping, require the 
use Of implementation-specific language features. When necessary, these 
features are implemented via M/VX, the InterSystems’ MUMPS operating 
system for the Digital VAX computer. For each option in this manual 


using non-standard features, an exrlicit discussion of the feature is 
provided. 


The OSHRKS software uses three MUMPS-based software packages: 
the VA File Manager data bas? management system, the VA Kernel system 
management packages, and the InterSystems’ M/FORM scr2en input package. 
Knowledge of FileMan is essential to the maintenance programmer. 
Extensive use is made of FileMan’s input, sort, and print templates. 
Parthermore, ad hoc queries are made through the Filefian Search and 
' Print options. The Kernel package is used in the ICC module to provide 
ecurity and menu manage:nent. M/FCRM is used to control inputs into the 
co module. Currently, the forms that nave been created using this 
package have been designed with special coding. Therefore, editing and 
“uodating these terms should cnly be attempred by a MUMPS programmer with 
knowledge of the M/FORM, FileMan, and Kernel packages. This manual is 
to be used in conjunction with documencaticn provided by the Veterans 


a 


AGministration and InterSystems. 
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3.2 M FORM and VA File Manaser Conventicns. The VA FileMan package 
: SO ego w ts Ta ee ip eee ne eres Woes ewan pe ‘ apt 
names variaples and routine cy beginning them with the letter "Dp". 
These "D" variables are not killed by the VA package and should not be 
killed through any application snecific routine that calls a "0" 
routine. M/PORM uses lowercase letters as its naming corivention. Refar 
to the VA File Manager Progranmer Manual and the M/FORM Programming 
Guide for a list of variables and routines used by both packages, 


NOTE: The M. FORM package uses the “NEwW" ccmmand to clear variables, 
In doing this, one of the FileMar variables, DA, is cleared, thus 
causing the user to be logged off of the system. To avoid this error 
the programmer should edit global node “ptgi903,ifn,2,0); where ifn « 
Internal Form Number, 2 «# Preeform coda, and n = the line that contains 
the following code: 


Old: n filen,rptfile,New, filing,OA 3:’S$d(nocoap)... | 
Mew: n filen,rptfile, filing 6:‘Sdi{nocomp) ... 


See the M Programming Guide for an explanation of the “'GzD 
utility. This utility should be used to change the "Old" code above to 
“ne “New" coce. After the code has been corrected the form must be 


recompiled. See the M/FORM Programmer's Guide for an explanation of the 
“ptedo routine, 














3.3. M/FORM and “ernel Interface. Transactior processes are invoked 





through Kernel Menu Options. Most of these option types, are action or 
print options. The “action” type option executes code to perform a 
transaction. The code is stored in global reference: “DIC(19,DA,20); 
where “DIC(1) is the Kernel "OPTION" file storage global, DA is the 
internal number for the menu option, and 20 is the node whe.e che action 
type options store executable code. 


ex: “DIC(19,DA,20)="S IFORM=¢,CLEAR=1 K DIC(0),WIPE D “PYRFORM® 


NOTE: Kernel uses the DIM* routines to check embedded code as it 
is entered. A problem with these routines is that only upper case 
characters are allowed to be entered. The code shown in the above 
example would be acceptable to the Kernel, however, not to the M/FORM 
package. IFORM, CLEAR, WIPE are M/FORM variables that must be entered 
in lowercase and the “PTRFORM routine is stored as a lowercase M/FORM 
routine. Future updates to the Kernel package may make these two 
cackages more compatible, but currently one must enter the acticn 
statement as shown above in the example. Then using the “3GED M/VX 
utility the code should be changed as follows: 


EX: “DIC(19,DA,20)=*S iform¢,clearel K DIC(0),wipe D “ptrforn" 
Explanation of code: 


Set Statement: iform @ internal form numter (# «© ifn interncl 
form mumber) and clear set to 1 will erase the 
ecreen. 


Kill Statement: DIC(0) will allow only for M/FCRM lockups 
and Wipe will allow the screen to be redrawn. 


DO Statements: See M,/FCRM Programmer’s Guide for an explana~ 
tion of PTRFORM routine. 


3.4. Security/Privileges. It is important to note that M/FORM, Kernel, 
and FileMan have File security. If a file is created in Fileman with a 
security code assigned, a problem will surface unless the 0UZ(0) 
vaciable is set to the same code before running the FORM routine. A 
similar access problem will occur when the user tries to access the {file 
from an M/FORM input screen. This problem can be corrected by at least 
three methods: 


.O Action Menu options can have a new set command added on each 
option: “DIC(19,DA,20)0S iformet,clearel,CUZ(0)—e"8" K DIC(0), 
wipe d “ptrform 

© Security can be deleted from the FileMan Dictionary, “DIC(FN, 
and added to the M/ FORM package 

o Security can be deieted from M/FORM and FileMan packages and 
added through the Kernel by creating a security key for each 
module and assigning that key to the individual users. 











4.0 MOOULE DOCUMENTATICN 


4.1 Module Design Summary. The ICC module provides information to the 
Occupational “Safety and Health (OSH) Safety Officers and the 
Compensation Officers at the Naval facilities. These offices use the 
information generated by this module to help prevent occupational injury 
and illness, to issue appropriate compensation to Navy civilian 
employees suffering occupational disability, to minimize the costs 
associated with occupational injures and illnesses, to generate 
descriptive and statistical reports on safety incidents, and to generate 
compensation claim form facsimilies and statistical reports. 


The part of the module illustrated in the left half of Figure 4-1 
supports the Safety Office in its investigation and analysis of events 
and injury reports required by tne Navy Safety Center and the Department 
of Labor (DOL). The Safety Office can record safety incident data using 
supervisor safety incident investigation reports, employee compensation 
claim forms, and the shipyard dispensary’s daily log. Using interactive 
computer terminals, the Safety Office staff records injury/illness data 
in the Injury file using employee information in the Personnel file and 
a series of module reference files (controlled vocabularies of terms). 
In addition to supporting the recerding of safety incidents, the module 
also generates safety incident information in several statistical and 
summary reports. 


The part of the module illustrated in the right half of Figure 4-1 
supports the Compensation Office in managing and tracking compensation 
cases, calculating the costs associated with lost worker time, and 
producing required Department of Defense (DOD), DOL, and OWCP forts and 
seports. A compensation specialist can record compensation case data 
using data from an employee’s compensation claim form, a physician's 
medical report, various case update documents, or information gathered 
from a personal interview with the injured or ill employee. Compensa- 
tion information associated with the corresponding injury or illness 
incident data entered by the Safety Office is also stored in the Injury 
file. The compensation specialist can produce OWCP compensation claim 


forn facsimilies, case summaries, and a number of compensation 
statistical reports. 


4.1.2 File Overview. The ICC module uses several reference files to 
control vocabularies of terms used in recording data, as well as, files 
to store individual cases and events. A list of each file is shown in 
Table 4-1 and a brief description of each is contained in Table 4-2. 
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TABLE 4-1 
FILES AND GLOBALS USED BY 
INJURY AND COMPENSATION CLAIMS MODULE 





FILE FILE GLOBAL MODULE 
NUMBER NAME REFERENCE OWNER 
1002 Forms “FORMS( cc 
1005 Injury File “ICC( . ec 
1007 Activities “INJ(1007, Icc 
1008 COP Data “INJ(1008, ~ ree 
1009 Compenstion Pay “INJ(1009, icc 
1017 Nature of Injury (NOI) “INJ(1017, Icc 
1018 Body Part “INJ(1018, tcc 
1025 Accident/Injury Type “INJ(1025, Icc 
1026 Cause of Injury “INJ(1026, cc 
1027 Source of Injury “INJ(1027, Icc 
1029 Claim Type “ING(1029, cc 
1031 Manhours “INJ(1031, Icc 
1057 OSHA Injury Codes “INJ(1057, cc 
1060 - Injury Log Update “INJ(1060, Icc 
1061 Adjudication Status. “INJ(1061, rec 
1062 OWCP Agency Codes “INJ(1062, tcc 
1065 OWCP Reporting Office 7INJ(1063, tcc 
1068 Agent of Accident “INJ(1068, Icc 
1993 Pay Status “INJ(1093, , rce 
1004.2 Employee (2600) “EMPLOY(DA ,"ICC", ADM 
1003 State “piz(1003, ADM 
1074 Agency Unit “AGENCY (0, ADM 
1001 Occupation “prz(1001, ADM 
1083 Stressor “STRESS(0, ADM 





*NOTE: DA is the internal storage number of an employee. 

















FILE NUMBER 


1002 
1005 


1007 


1008 
1009 
1917 
1018 
1025 
1026 
1027 


1029 


1057 


1060 


1061 
1062 


TABLE 4-2 
INJURY AND COMPENSATION CLAIMS REFERENCE FILES 


FILE NAME 


Forms 


Injury 
Activities 


COP Data 
Compensation Pay 


NOI 


Body Part 
Accident/Injury Type 
Cause of Injury 


Source of Injury 


Claim Type 
7 


OSHA Injury Codes 


Injury Log Update 
Adjudication Status 


OWCP Agency Codes 


10 


DESCRIPTION 





Blank facsimile of each form 

is stored in this file. 

Contains all information for 
each individual case or event. 
The main file for this module. 

A reference file or table listing 
all activities an injured person 
is able to perfcrm. 

Continuation of pay data stored 
for each individual case. 

All compensation payments per 
individual case. 

Categocizes the nature of injury 
illness suffered by employee. 

A table of each body part used to 
control vocabulary. 

A table of accidents and injury 
types used to control vocabulary. 
A controlled vocabulary table of 
injury causes. 

A controlled vocabulary table that 
is used to categorizes the source 
of injury/iliness. 

Includes categories of compensa- 
tion claims as reported in the 
Occupational Illness Compensation 
Claims Report (NAVSEA 12810-1B). 
Includes injury/illness categor- 
ies used on the Log of Navy 
Civilien Occupational Injuries 

& Illness (OPNAV 5100/10) Report. 
Used by the Safety Office to 
report current cases or everts. 

A table that categorizes status 
conditions in the claims process. 
Lists codes and textual data 
Gescribing the federal agencies 
employing the workforce eligible 
to file compensation claims to 
ONCP.. 














1063 


1068 
1093 


. 1004.; 


1003 
1074 


1001 


1083 


OWCP Reporting Office 
Acent of Accident 
Pay Status 

Employee Claims 
State 

Agency Unit 
Occupation 


Stressor 


ll 


Lists compensation offices which 
process federal compensation 
claims to OWP for federal employ- 
ing agencies. 

A table that catagorizes agent 
causing accident or injury/illness 
A table used to categorize the 
ways in which employees receive 
compensation. 

The repository of all claim forms 
filed by the employee and entered 
by the claims worker. 

A table of U.S. states used for 
controlled vocabulary. 

A file created by the Admin. 
module which lists all organi- 
zational units for an agency or 
facililty. 

The table of occupations defined 
by the government and used as 
controlled vocabulay. 

A table of materials used at the 
facility that may be a cause 

of the accident or illness. 














The Injury file is the primary repository of information for the 
ICC module. It contains a separate record of each injury or. illness 
event for each employee who suffers an occupational injury cr illness. 
Additionally, associated with each injury/illness event can be one or 
more compensation claim forms, which are stored in the Claim subfile in 
the Employee file. The injury file references the demographic 
information of a given employee. This information is stored in the 
Employee file and referenced through a pointer. The identifying field, 
case serial number, is created when a new case is entered into the 
Injury file. Each record in the Injury file describes a given injury or 
illness case for a selected employee. Since an employee can suffer more 
than one injury or illness over time, each file entry also reouires the 
employee's duty station, assigned shop, and occupation at the time of 
the event. 


Figure 4-2, shows the pointer fields that link the Injury file 
entries to various controlled vocabulary reference and data files. This 
diagram shows several Injury file data elements that point to ceference 
files. The Injury file is not referenced by other modules. 


The key reference file used by the ICC module is the Employee 
file. Created and maintained by the Administration module, the Employee 
file contains demographic and organizational information on employees 
known to OSHRKS. Every Injury record describing a particular 
injury/illness only is associated with one and only one entry in the 


Employee file. empl cess having a ed in this file can have an 
injury record created ;: file in the Employee file ¥1007.2 Is the 


repository for all claim cores filed. Once a ig bol has been filed, it 
can not be edited. Figure 4-3 shows the relationship between the 
Employee Claims subfile and the ICC module. 


4.1.3 Naming Conventions. The ICC module tables are stored in the “INJ 
global and case injury/illness data are stored in the “ICC global. All 
option names, input templates, sort templates, print templates, and 
routines begin with T2C or T3C, the number denotes the current versions 
of this module. 
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INJURY COMPENSATION MODULE DATA FLOW 
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PAYMENTS 
’ | 





' 
t 


| 
SAFETY DATA CLAIM FORM 
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4.2 Transaction Documentation (Module Menus). The Injury & Compensation 
Claims Module [T3C INGURY COMP CLAIMS] ‘supports three distinct functicnal 
areas; Claims and Compensation, Safety, and Reference File Maintenance. 

Figures 4-4, 4-5, 4-6, and 4-7 show the transaction flows of this module. 


4.2.1 The actual menus for each functional area are created for site specific 
needs. Reports and options for an individual site will not be discussed ir 


this manual. This section will only discuss the baseline options tuat are 
created at the time that the system is installed. 


INJURY AND COMPENSATION CLAIMS MODULE MENUS 


Injury & Compensation Ciaims Module (T3C Injury Comp Claims) 





1 Claims and Compensation Functions 1 Enter/Edit New Claim’ 
{T3C CLAIMS } Case [T3C NEW CASE] 


2 Enter Claim Forms [T3CLAIM] 


bed 


Continuation of Pay 
Enter/Edit [T3COP] 


> 


Compensation Pay Enter/ 
Edit (T3COMP] 


5 Print Claim forms 
(T3CPRNT} 


6 Claims Pay-Recd Reports (T3C -——— 1 Pay Information by 
CLAIMS PAY DATA] Employe- 


oye 
(T3CPAY] PAY TYPES] 


N 


Continuation of Pay 
(T3CPAY4 ] 


3 Compensation Data 
({T3CPAY3 COMP DATA] 


7 Tickler File - Print/ 
Display 
[T3CSR8 TICKLER) 


Adjudication Status 
Report 

(T3CSR9 ADJUDICATION 
STATUS ] 


be) 
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2 Safety Functions [T3CS SAFETY ]—--——— 1 Enter/Edit Injury 
( T3CSLG} 


2 Snter Speedletter 
{T3CSPD) 


3 Select Print/Display Safety Data—— 1 Injury Log Report 
{T3CSR SAFETY REPORTS ] {T3CSRL INJURY LOG] 


2 


Event/Case Summary Report 
{T3CSR2 CASE SUMMARY] 


es 


CPNAV 5100/10 Log Report 
(OSHA 100/F MOO)- 

(T3ICR3 OPNAV 5100/10 
LOG] 


4 Personal Case Summary 
Report 
(T3CSR4 PERSONAL CASE 
SUMMARY ) 


5 Naval Safety Speedletter 
{T3CSRS SPEEDLETTER] 


6 Print Detailed All 
Injuries Report 
[TICSR6 ALL INJURIES] 


7 Case Summary for Date/ 
Name Range {T3CSR7 
CASE RANGE SUMMARY} 


8 Tickler File - Print/ 
Display (T3CSRS TICKLEP} 


9 Adjudication Status Report 
{T3ICSR9 ADJUDICATION REPORT] 


16 








3 ICC File Maintenance Functions —————- 


V 


1 OWCP Duty Station Agency 
file- Enter/Edit 
iT2C6 OWCP AGENCY] 


w 


Reporting Office for 
OWCP - Enter/Edit 
{T2C6 OWCP REPT OFFICE} 


tad 


Claim Type File - mtery | 
Edit [T2C6 CLAIM TYPE EDIT] 


> 


Nature of Injury File - 
Enter/Edit [T2C6 NOI EDIT} 


5 Body Part File - Enter/ 
Edit [T2C6 BODY PART EDIT] 


toa) 


Accident/Injury Type File- 
Enter/edit (T2C6 ACCIDENT 
FILE EDIT} 


~~ 


Agent of Accident File - 
Enter/Edit 
(T2C6 AGENT ACCIDENT EDIT) 


@ 


Cause of Injury File - 
Enter/Edit (T2C6 CAUSE 
INJ EDIT) - 


wo 


Source of Injury File - 
Enter/Edit [T2C6 SOURCE 
INJURY EDIT] 


10 Adjudication Status File 
Enter/Edit [T2C6 ADJUD 
STATUS EDIT} ; 


11 OSH Injury Codes File- 
Enter/Edit 
{T2C6 OSH INJURY CODES 
EDIT) 


12 Pay Status File - mter/ 
Edit (T2C6 PAY STATUS 
EDIT} 
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4.2.2 


II. 





Documentation. The display window is shown for each 
transaction hat calls the “ptrform routine. The M/FORM 
documentation (created by running the “T3CDOC routine) will follow the windows 
and describe by the following outline: 


FORM NAME AND M/FORM INTERNAL IDENTIFICATION NUMBER 


interface 


PRE-FORM CODE -— Code that is executed prior to displaying the 


input windows. 


WINDOW COCUMENTATION — For each window shown the window 
name and internal number will be show. 


A. 


FileMan Data Description of each data element described 
in the input template. 


1. 


Internal FileMan data element number (DA) and 
external FileMan data element name. 


Data type as described by FileMan and used by M/FORM. 


Pointer Global Reference or Input Verification. If 
the data element points to another file, the file 
number will be listed and the global reference will 
be listed. If the data is not a pointer then the 
executable checking code will be listed. 


M/FORM Refere:.ce Data Description. (Shown under each 
data FileMan Data Description.) 


1. 


Internal File Identification muamber (FID) and data 
element name. 


Internal-External Conversion Code — The M/FORM 
utility uses "om" and FileMan uses “X" as input 
variables. 


Stored — Actual global where data is stored. The 
word "nowhere" is used when the field is either 
computed or that calls another forn. 


Lookup Node — List of each data element that is 
displayed in the lookup window. 


Index — Cross reference used as a lookup. 


Pre-field Code -—- Code that is executed before 
the question is asked for a particular element. 


Post ID — After the Filefan input verification 


code is executed the POST~-ID code is executed for 
additional checking. 
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8. Post-Fleld Code — Post-Field Code is executed after 
a question has been answered and inputs are verified 
to be valid, and prior to filing. 





9. Post-Filing Code — After the response has been filed 
this code is executed. 


C. Calling Code. For each data element that calls for a 
form number is shown. The form is outlined in the same 
manner as described above. : 


111. POST-FORM CODE — This code checks to see if the record is 
filed and then calls the module interface routines (T3C*). 
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4.3 


Clains and Compensation Functions {T3C CLAIMS]. Menus under the 


Claims and Compensation functions are as follows: 


4.3.1 


Enter/Bdit New Claim/Case [TSC NEW CASE). 

Purpose of transaction: This option is used to create new 
case records, edit existing claim data, update claims and 
compensation information, and record the current adjudication 
status. 


Transaction Description: This transaction is called from a Menu 
option [(T3C NEW CASE] in the OSHRKS application package. 


Type of transaction: Input template ¢ 600 created using M/FORM 
Global Dictionary Reference: M/FORM— “ptgq(903,600, 

Type of Menu Option: Action 

Action/Routine Code: s iform=—600,clearel k wipe,DIC(0) d “ptrfora 


Output: Stored in Injury File #1005 in “ICC(N ;where Neinternal case 
number. 


Retention: Once enterec a case may not be deleted without programmer 
access. 


Security/Privacy: Calls “T2USER to verify agency access. 


Flexibility: Created using M/FORM~Filefan Interface, should not 
change form. 


Erroc Recovery: Erroc trap by Kernel “%ER coutine 
Report Format Requirements: None 
Inputs: See attached. 
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M/FORM #600: INJURY/ILLNESS ‘ENTRY 
WINDOW #1 INJURY INFORMATION 


rrr een ren EARS ARRAS 




















INJURY/ILLNESS DATE & TIME _ CASE NUMBER 

INJURY INFORMATION 
CLAIM RECORD CREATE DATE DATE OF CLAIM 
CLAIMS CLERK ID CLAIM TYPE 
WHERE FILED OFFICIAL PERSONNEL FOLDER SENT TO OP? 
DATE CLAIM SENT TO OWCP OWCP FILS NUMBER 
DATE TRANSFER FEHB TO OWCP FINAL DISPOSITION 
CLAIM CONTROVERTED oF PRESS <RETURND FOR CONTROVERSION EXPLANATION 
EXTENT OF INJURY LOST TIME ACCIDENT _ 
NATURE OF INJURY Sane eeaise 
BODY PART 


TYPE OF ACCIDENT 

CAUSE OF INJURY 
SOURCE OF INJURY 
INVESTIGATED BY | . BLDG/SHIP 

SPECIFIC LOCATION 
DAYS HOSPITALIZED JOB —s REASONS ne 

RETIRED ON DISABILITY 

THIRD PARTY CASE 


ADJUDICATION STATUS _ 2 FESS TERS IETS <RETURN> FOR KEY TRACKI — 











WINDCW #2 MEDICAL 1NFORMATIOCN 


PRIMARY PHYSICIAN TAX ID 


DOES DOCTOR SPECIALIZE? SPECIALTY 
STREET ADDRESS 

















CITY pa = Serge et te he ee POO See ie 
PHONE NUMBER ee “PATE SIGNED Se a ees ie 

REFERRAL PHYSICIAN _ TAX ID 
DOES REF DOCTOR SSECIALIZE? +~*SSPECIALTY 

STREET ADDRESS eet ERATE i AIRE 
CITY TATE IP CODE 
PHONE NUMBER DATE SIGNED 








MEDICAL CARE FACILITY 
STREET ADDRESS ; 
CITY STA P COD 


PHONE NUMBER ee a aT 
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WINDOW $3 EMPLOYEE INFORMATION 





INJURY/ILLNESS DATE & TIME CASE NUMBER 
NAME 
SSN SEX BADGE NUMBER BIRTHDATE 
Ss ’ 
CITY TATE IP E 
OVERSEAS ADDRESS 





HOME PRK°NE NUMBER EMPLOYEE COST CENTER 





MONTHS GN JOB ~~~*~“«s~“‘C:*‘“‘«éCaLT «SCE FEHB CODE _ 
REGULAR WORK SCHEDULE “REGULAR WORK ROURS panna 


NUMBER OF PART~TIME HOURS WORKED PER DAY 
SUPERVISCR'S NAME 
SUPERVISOR’S TITLE 











1 WORD PROCESSING WINDOW M/FORM #608: CONTROVERSION EXPLANATION 
2 M/FORM #608 


KEY EVENTS TRACKING SYSTEM 





ADJUDICATION STATUS 


DATE ENTERED ~~. DATE REMNEDC~—~—SSC—“<‘<~;SSTCS 


ss emneienininnieniatmeraann memntiaemnn ceiinminmnncnacmmmenenmeaatimimmasamed 














M/PCR: INOURY/ILINESS BNIRY ($600) 


AES An AR ONIN GE FSET EIA IE TEP ENE TE TS NE TY LIE EEL LITE LT TIE EEL ELIE CINE LS SITE IE ETL SATE BOL OTI 


1. PRE-FORM COE 


n filen,New, rptfile, filing s:'$d(New) New s:/Sd(nocanp) filene“ptc(iform,99) 
+6:Sd(nocomp) filen="ptg( 903, iform,99) s News0, rptfile=1 
S OU2(0)="I" 
s Us "I *Sd(D) s XeSad(SH),WO"" d “WT s DRY k X,Y 
d sec” fmfrm 
S Unh" § SADT) § MeGarck(SH),1I"" d “WOT s Dik k X,Y 
n filen, ptfile, filing s:’$d(ncomp) filen="ptc(ifom,99) 


IT. WINKGS 


DATA ELEMENT DATA TYFS FOINTER GLOBAL REFERENCE OR INEUT VERIFICATIGN 
— 1 DNOURY/TLINESS ONIE S Wh"EN D “WT S Mey K:Ycl X I D(X) K:SE(X,".",1)0T X 

OME & TT 

M/FORM FID # 91 


20 CCNVERSICN COLE: 
& Ye"(" s:4+Se(cm,4,5) Me Sp( "JAN. FB. MRRAPR. MAY, JUN. JUL AUG. SEP.OCT.NOV.DE",".", 
+Se(am,4,5)) " "$3 +e(an.6, 7) YeK Se(am,6,7).", "  XeK_(1700+Se(am,1,3)) 
s:Sp(cm,".",2)"="™ XK." at " Selemn "000",9,19).":" Se(cm "000", 11,12) $ XeK")" 
8:Xm"(1700)" He" 5 cteX 


28 SID: $0(* TOCIDAO) 2) 

2 RUST FILING COLE: i setinck finfom 

SA INCEX: $ “ICC("0") 

55 LOOLP NIE: 
91°237Sp( “10L( Lids,0),"*",2) 
47°30°9p( “TOC{ Lids,0),"°",3) 
9745S “TOC( Lids 100) ,**",2) 


MFCR FID # 117 
20 CONVERSICN COLE: 
28 STORED: $P(“ICC(DA,0),"°",1) 
44 POST ID: s:anc] am”” 5:c10999999999 ane" 
2 NE POINTER 1004’ 9 =MPLOY( 
M/FORM FID # 47 
20 CONVERSION COLE: 


$ amGe(ame™":"", ” (Sd( “EMPLOY (cm, 0) )#10) som, 1 :Sp “EMELOY(an,0) ,""",1)) 
2B SICRED: $0 “ICC(TA,0),"°",3) 








30 FOSIFIEID CE: 
NEW X K P, FLAG, X1,X,AG,CL,,% 
& Un"*" I Sd(naw)é(ald’=new) S FLAG="",P(0)= EMELOY(new, 0) 
I SO(FLAG) S:90( “EPELOY(new,1)) P(1)=“EMELOY(new,1) 
I SO(FLAG) S:$D( “EMPLOX(new,2)) P(2)=EMPLOY(new,2) 
I $O(P(0)) S Sp(abd(4),db,1)=62(P(0),U,2) ;SSN 
I SO(P(0)) S Sp(abi(S) ,db,1)-GP(P(0),U,3) SEX 
I SO(P(O)) S (chi (6) db, 1 =Gp(P(0),U,5) BADGE 
I SOXP(0)) S %Op(P(0) ,U,6) ,XleK X “DD "FUNC™,22,1) S cha(7)aK cb XI k X,XI 7B 
i $c(P(O)) s Spc 20) ,co,2)=Qp(P(0),U,9) s:cbi(20)'="" COnGPT abst (20) ,db,2) ; 
I QXCL) s20Cr~"" $P( “ICCA, 3) ,U, 2 )=GP{ “DZ 1001 ,0C,0),U,1), 
$p( chai. (20) ,dbb, 1 Gp “DIZ(1001,00,0),U,2) ;OOc 
K AELAG I SO(P(0)) S AG=GP(P(0),U,17) i AG’="" S:SD{ “AGENCY(0,AG)) AFLAG=1 
i SG(AFLAG) 8 chi (49)=Gp( “AGENCY(0,AG,0),U,1) db AG K AFLAGJG ;AGATY 
I SO(P(O)) S Sp(cbai (50) ,ch,2)=6P( PO) ,U, 12) AG=SP( chai (50) ,db,2) ecu 
i $d(AG) S:AG’="" Sp( chi (50) ,db,1)=6p( “AGENCY(0,AG,0),U,2) K AG ;AGENCY UNIT 
T SO(P(0)) 8 Sp(cbi (22) ,db,1)=6p(P(0),U,19) ;BAYPLAN 
T SO(P(0)) 8 ¥6P(P(0),U,14) S:X’="" abi (28)="pec(600,12,28,15,62,X) db Xk X 
I SO(P(1)) S Sp(cbxt (130) ,1) Gp P( 1) ,U,2) ,SP( cdi (9) ,db,1 =4(P(1),U,4) ACOCI 
I SXP(1)) S %GE(P(1),U,5) S2X’m"" SP ch (10) ,d, 1 S6P{ DIZ(1003,X,0),U,1) 3S 
T SO(P(1)) S Se( abi (12) ,cb,1)=Gp(P(1),U,6) ;ZIP 
T S(P(2)) S chi(23)=6p(P(2),U,1) ;BAYGRACE 
I SO(P{2)) S HGp(P(2),U,5) S:X’e"" chi (21 )e*ptc(600,12,21,15,62,X) db Xk X ; 
I SUP(2)) S SPX edd (24) do, 1 Sp P( 2) ,U,2) , 9p chai (92) ,d, 1 GP 2),U,4) ;PER 
I SOXP(2)) S MGp(P(2),U,3) S:X’e"" chi (93)<"pte( 600,12,93,15,62,X) do X KX ; 
+ I 'SO(DT) S H62D(4+GH), Wle"" D “WT S Div 
S Cle" S:SD( “IOC(DA,200)) ChaGP( “ICC(DA, 200) ,U,2) sz ’ScK “TOC(OA,100)) “TQC{OA, 10G)="* 
S:Cla"" obi (125)=62D(+S4)_db DT ;CLAIM PECORD CRERIE DATE 
S Pe) £ bel:1 s PGO(chi(P)) G:Pe"™" S:cbi(P)’~"" chi(0,P)e"" stuff for filng 
k FLAG,P,X,X1,%,0C,AG,C 


32 POST FILING COKE: di setinck” fino 
S4 INDEX: “I0C(*C") 

5S LOORUP NODE: 

47° 30"Spk “TOC{ Lids, 0), "*", 3) 
91°23°S “ICCI Lids, 0),"7",2) 
97°45" SX “ICC Lids, 100) ,""", 2) 


RY INNCCSC=“‘“CSOSCOSC™*=‘“‘#SNNSNCNC™W 


OMIA ELEMENT CROAK TYPE FOINIER GLOBAL REPFFENCE OR NUT VERIFICATION 
201 GLAU! RECORD CRERIE ONE OXIE S Wle"E" D “WT S HY K:¥<l X 
M/PORM FID # 125 
20 CONVERSION COLE: 


& Ne"(" 5:4Se(cm,4,5) YX Spl "JAN, FEB.MAR.APRMAY JUN. JUL.AUG. SEP OCT.NV.DEC",".", 
+Se(cm,4,5)) * * 5:4Se(cam,6,7) ¥oK Se(cm,6,7) ", " & XK (1700+Se(can,1,3)) 
8:Sp(cam,".",2)/="" HX” at" Se(cat "000",9,10)_":" Se(cam "000", 11,12) s %aK_")" 





524="(1700)" Xe" s cmeX 
28 STORED: $p( “I0c(DA, 200) ."°",2) 
202 DATE CF CLAIM ROE S Wik"E" D “SDT S HY K: YC X 
M/FCEM FID # 69 
20 CONVERSION COLE: 


5 m"(" st sSe(an4, 5) 4X _Sp( "JAN. FEB.MAR.APR. MAY. JUN. JUL.AUG. SEP.CCT.NOV.0EC",".", 
+$e(am,4,5))_" " s:+Se(an,6, 7) ¥=X Se(om,6,7)_", " s AeK_(1700+Se(am,1,3)) 


8: Sp(an,". ” 42) ?mr" MeX "at * ' Se(am 3 "000",9, 10) Pi) ' $e(an ' "900", lL ,12) 5X Seg 
5:¥e"(1700)" Xe"" 5 cmX 


28 STORED: = $0( “IoC (DA, 200),"*",3) 
9 PREFTELD (OIE: i *Sd(chi(91)) s skipe"D” 


143 CLAIMS CLERK ID - FREE TEXT K:SL{X)>3! (SL(X)<1) X 
D/FCEM FID # 58 


28 STORED: $p{ “10C(DA,130),"°",12) 
44 BOST ID: s Mecm K:SL{X)>3!(SL(X)<1) X s2’$d(X) am"" s:an{"*" ame"® 





202.5 CLAIM TYPE FOINIER 1029’ 1N0(1028, 
M/ECEM FID # 128 


20 CONVERSION CELE: ama(cone" 2", "(Sd 7NT( 1029, cm, 0) #16) som, 1:99 “INI(1029,cm,0),"7",2)) 
28 STORED: Sp “ICC(DA, 200) ;"7", 12) 


200 WHERE FILED SEP GF CORES «= CEF:CRICIAL PERSONNEL ICLLER 
CACP:CEFICE OF WORKER COMPENSA 


M/PORM FID # 67 
20 CONVERSION CODE: 5 amSp(Sp(";CPF:CRFICIAL PERSONNEL FOLDER;CACP:CEFICE CF WORKER 
COMPENSATION PROGRAM;",";" om ":",2),";",1) ,cmp(an,":",1) 

2 SVFED: Spi “TOC(DRS 200) ,"""* ) 


203 SENT TD CAP STOPCQES y:¥sS 
N:NO 


M/PORM FID # 127 


20 CONVERSION CEE: § amOp($p(";¥:¥ES;N:NO;", "3" can ":",2) 575", 1) amen, "2",1) 
2B STORED: $p( “ICC{DA,200),""", 4) 


204 CATE CLAIM SENT ‘TO CACP OMTE S Whe"E" D “WE S MY Revel X 
M/PCRM FID # 71 


20 CONARSICN COLE: 
SrA Seems 5) XeX_Sp( "JAN, FEB.MAR.APR.MAY. JUN. JUL-AUG. SEP.OCT.NOV.DEC",", ree 


23 




















—. 
+Se(am,4, 5)) " "8: +6e(cmn,6, 7) XK Se(an,6,7)_", " 5 HK C (1700+Se(am,1, 3) 
8:9(ama,".",2) "a" *K_" at “ * Se(ca | *000",9 1D) "3" ' Sean A "000", 11,12) 8 %K_")" 
8:%"(1700)" 2"" § an 
28 SICRED: $0( “I0C{DA, 200) ,*°",5) 
29 PREFIELD COE: ss s:'Sd(cti (127)! skipe"D" i 'Sd( skip) ssabi(127)'("Y" skipe"D" 
137 OP FILE NER FREE TEXT K:SU(X)>13!(SU(X)<1) X 
M/PCRM FID # 62 
28 STORED: §=$p( “ICCA, 130),"°", 6) 
44 FOST ID: s rom K:SL(X)>131(SL(X)<1) X s:’Sd(X) ae s:anl**" om" 
142 CAGE TRANSFER FEHB TO CW OME S Wie"E" D “Wr S HY K:Yd X 
M/PCRM FID ¢ 66 
2D CONWERSICN COLE: 
& Ye"(" 8:+Se(cm,4,5) Sak Spl “JAN. FES .MAR_APRMAY. UN. JULAUG. SEP.OCT .NOV.CEC”,” 
+Se(am,4,5)) * " s:+Se(an,6, ?) XK Se(am,6,7)_", " Ss WK (1700+Se(an,1,3)) 
6:94 an,".",2)'="" eK" at " Se(cn "000", 9,10) "3" Se(am "000",11,12) 5 WK ")" 
8:"(1700)" %e"* 5 cme 
283 STORED: 9$p( “100(0K,130),"°", 11) 
207 FINAL DISFOSTICN ST OF QUES A:ACTIVE 
T: INACTIVE 
M/FCRM FID # 75 
20 CONVERSICN COLE: 
& CmmGr( 9p(" A:ACTIVE; I: INACTIVE;”,";" an ":",2),"3",1) camo(an,”:".1) 
y,:) SERED: $p( “ICC(DA, 200) ,""", 8) 
205 CLAIM CCNIROVERIED SET OF COEES.sY: YES 


N:N) 
M/TCRM FID # 90 


20 CONVERSIIN OTE: = § aol Sn"; Y: YES ;N:ND;", "3" "3" ,2),"3",1) ,am@plas,*:",1) 
2B STORED: 9p “IKC1EA, 200),"*",6) 


205.1 CONTIROVERSICN EXPLANATIO 
MACH FID # 73 


<8 SICRED: nowhere 
29 PREFIFLD Cre: 
I cht (90) ("1 (cod (90) ("N”) 8 skip="D” 
8:'Sd(Ivl) lvleO i Sd(ctaol(0))>9 s stifile=l d filecre*ptrfilel k shhfile 
i Sd( file), file,New'=0 8 filircpGe( Sd( filing) :lvl+l, lvl’ <filing:ivl+l,1: filing) 
4d upontr’ fafom 5 Newd,chi(0)0"" k file 
8 lvle=lvlel 
£ lvl 8 CA(O)=<OR,00emA f imlvl:-1:1 s:SXDMi-1)) OMi}ONi-1) 


B 











3 FOSIFIELD COE: 
4 lvl s DACO}OR £ ielsislvl s:Sd(DA(i)) OA(i-1)<0A(1) 
S:lvl DPeDA(O) k DAC1v1),DA(0) D1 s lvlelvi-1 


16 CALLS M/PORM: CONIFOVERSIC™ EXPLANATION (#608) 


M/FORM: CONTROVERSICON EXPLANATION (#608) 





1, FRE-FORM COLE 


n filen, rpptfile,New s:'$d(nocomp) filene*ptc( i fom, 99) 
+6:$d(nocomp) filen="ptg(903,ifom,99) s New0, ptfileel 
Ss Un"*" i 'Sd(DT) s XxGad( SH), We" d “Wr s DRY k X,Y 
@ sec” fmEm 
d crindk fmf 
II. WINDOS 
ee “GNRMEGIN EAARLIN YL !)!™C™C™C~*~C<“‘<‘<“—s—s—C—s~C=CSCSstsCsS 
DATA ELEMENT DRA TYPE FOINIER GLOBAL REFERENCE OR INEUT VERIFICATION 
01 CONIROVERSION EXPLANATIO «WORD PROCESSING 
M/ACRM FID #1 
28 SIRED: $p(“10C(DA(1),305,08,0),"",1) 
“TTT. POBE-FUN 


i Sd( file), file s filinySs( 'Sd( filing) :lvl,lvb filing:1v1,1:filing) 
+d shuffle’ finfon d rocked fmirm 


SAN TN NS SNE I TE LOE EE I I ATE EPI IT, LN SN ISI IN I EINE DODO ELE OE RIO ES 


M/FORM FID # 126 


20 CONVERSION OTE. 5 
cmeSp $p(";1 :EXIRLITY;2: PERM TOIRL DISABILITY; 3:PERM PARTIAL DISABILITY; 
4:NO DISABILITY LIFELY;5:MISSING;",";" crm ":",2),"5",1) amOp(cm,":",1) 
28 STORED: 9p(“10C(0a,110),"*",1) 


104 LOST TIME ACCIDENT STOFCrES y¥:YES 
NNO 


*/FCRM FID # 131 











20 CONVERSICN COLE: 8 caGp(9p(";¥: YES:N:ND;",";" cm_":",2),"3",1) cemOptcam,":",1) 
28 SICFED: S/ “10C(0A,100),"-", 5) 
101 NXDURE OF DOURY CLE FOINIER 1017’ =INJ(1017, 
M/ECRM FID # 97 


20 CONVERSION CEE: «5 cmés(cme"":"", ’ (Sd( “IN0( 1017, con, 0) )#10) scm, 2:99 “IN( 1017,cm,0) ,"*",2)) 
28 STORED: $p(“ICC(DA,100),“°",2) 
32 POST FILING COLE: di setircix’ fnéon 
100 BCOY BART CTE "POINTER 1018’ 101028, 
M/A FID # 53 


20 CONVERSION (CEE: 5 cmmfig(came"™:", *(Sci( “IN 1018,cxn,0) )10) seem, 1:$p4 “IND(1028,cm,0),""",2)) 
2B SICGFED: $p(“ICC(0A,100),""",1) 


12 Type OF ACCIDENT FOINIER 1025’ 1NJ( 1025, 
M/PCRM FID # 54 
' 20 CONVERSICN CEE: «= 8 amGe(cane"":"",  ($ed( “IN 1025, cm, 0) ) 910) scam, 1s Spf “2N(1025,,m,0) "7", 2)) 
28 STORED: $p(“10C(DA,i00),"°",13) 
3 POST FILING COE: di setirxix” firm 
120 CALBE OF INLEY POINIER 1026’ 1h0(1025, 
MFORM FID #5 


20 COWERSION OTE: 8 amGe(cem"":"™, “(Sei “IND ( 1026,,can, 0) ) #10) scm, 2: 9p “2NT( 10260) ,""",2)) 
28 STCFED: $p( “ICC(DA,10),"*", 5) 


126 SOLFCE CF INOLRY POINTER 1027") (1027, 

M/PCRM FID ¢ 94 

20 COWERSICN COLE: 8 

ore (cre? 3", © ( Sd“ INI(1027 con, 0) ) #10) crn, 1: $0( “2ND( 1027, cm,0),"°",2)) 
2B STORED: 9p( “ICC(DA, 120),""", 3) 

32 POST FILING CIE: di setirck” bofme 

144 INVESTIGMIED BY FREE TeExr K:SAX)>301 (QAX)L) X 

MV/ICRM FID # 61 


28 STORED: Sp “I0C{OA, 130),"°", 13) 
44 POST ID: 8 cm EAN MS X s:'Sa(X) ae" 5:00" c”" 


13 SLOG /GHIP FRE TeEx7T &:QAX)>151 (DLAXIA) X 
MV PCEM FID ¢ SG 
28 STORED: $o( “ICC(OR, 100) ,"*", 14) 
44 POST TW: 6 Mere K:SL(X)151(QAX)CL) X 83’Sc(X) cme”” ssc *°* coe”* 


2 











114 SPECIFIC LOCNTICN FREE TEXT R:SL{X)>40! (SL(X)<L) X 
FORM FID $ 57 


28 STORED: $p( “IoC DA, 100),"°",15) 
44 FOST ID: 5 Meom K:SL(X)>40!(SL(X)<1) X s:"Sd(X} ome" s:an{"*" ane"" 


119 DAYS HOSPTIALIZED NUMERIC PORMAD K:4X’ aX! (3999) i (X¢O)! (X?.£1"."IN.N) X 
M/FORM FID # 124 
28 SICRED: 9 $p(“100(rA,110),""", 4) 


133 XB THNGEER MED FEATS SET OF COLES: YES. 
N:ND 


M/FORM FID & 63 


20 CONVERSION COUR: 8 ameSp(9p(";¥: YES;N:NO;“,";" om ":",2),73",1) ,cmSp(am,":",1) 
28 STORED: $p( “10C(DA, 130),"""",7) 


139 RETIRED ON DISABILITY SST OP OYES YES 
N:NO 


M/PCRM FID # 64 


20 CONVERSICN CEE: = s cteGp( Spi"; ¥: YES;N:ND;",";"_ am n"2",2)," 3",1),am6(aa,":",1) 
28 STOFED: Sp( “IcC(DA,130),""",8) 


140 THIRD PARTY CASE SEY COP COLES Y:¥ES 
N:NO 


MCE FID # 65 


20 COWWERSICN COKE: 5 cm6p( Spi"; ¥:¥E5;N:ND;",";" can ":",2),%;",1) ,meGp(am,":",1) 
2 SiORED: «9 “1CC itm, 120),""", 9) 


141 CASE DUICOME FREE ‘TEXT K:SL{X)>60! (SL(X)<1) X 
™/FCRM FID @ 78 
2B STORED: 9 $p( “20C(DA, 130),"°", 10) 
29 PREFTELD COKE: S:9p( chi (65) ,db frre rener es 1)('N*) skipe"D" 
44 POST ID: = Mec K:S(X)>601(SL1X)<1) X 8:’Sd(X) ane” s:an{"*" ane 
206 AQKDICKTICN STPCLS SIINIER I 
M/PCRM FID # 129 
23 STORED: notere 


29 PREFTELD CLE: 
8:/Sd(1v1) IvleO i Sd(chi(0))>9 s shhfileel d fileoe’ptrfilel k sthfile 











i Sdi file), file,New 0 s filingsSe( ‘Sdi filing) :Ivl+l, lvl’ <filing: lvl+1,1:filing) 
+d upontr“fména s New, chi(O}="" k file 

$ lvl=lvi+l 

i lvl 8 DA(O}OA, 008K f ielvl:—1:1 s:Sd(DA(i-1)) DAC i QA i-1) 

k CA(O) S Dhe”* Dla" 


30 FOSTFIELD COLE: 


i lvl s CX O0OA £ isl:i:ivl s:Sd(DKi)) ON i-1)tA(.) 
S:lvl CAeOA(O) k OA(ivl),OA(0),O1 s lvleivl-1 


WS MEDICAL INMOPATICNs—=—“=CSSCSO 


ORMA ELEMENT DORIA TYPE FOINIER CLOBAL REFERENCE CR INEUT VERIFICATION 
400 ATTENDING PHYSICIAN FREE TEXT K:SL.X)> Ol (QAX) CL) X 
M/PCRM FID # 122 


28 STORED: Spt “T0C(DA, 400),""",1) 
44 POST ID: 6 mem K:SL(X)>30!(SL(X)-1) X ss/Sd(X) cme"" ssan("* > on’ 


400.8 TAX ID FREE TEXT K:SL{X) >LO!(SUIX)<L) X 
M/PCRM FID # 139 


28 STOPED: Sp “ICC(DA, 400),""",9) 
44 POST ID: @ Mec K:SL{X)>101(SL(X)CL) X $2 °SA(X) aam"* s:am{""" cm 


400.6 CORS COCIOR SPECIALIZE ST OF OES: YES. 
N:ND 
M/FCEM FID # 137 


20 CONVERSION CLE: 8 cteSp(Sp(";¥:YES;N™-",";" om ":",2),";",1) ,crmeGpian,":",1) 
28 STORED: 9 $o( “1C0C( OA, 400) ,"°", 7) 


400.7 SPECIALITY FREE TEXT K:SL(X)>30!(SUX)<l) X 
M/PCRM FID ¢ 138 
28 STORED: $9( “100 (DA, 400) ,"°", 8) 
29 PREFIFID IDE: = S:'Dichi(137)) skipe"D* i 'Sd(seip) s:otsi (137) °Y" skip="D" 
44 POST ID: 6 Moca K:SL(X)>30! (LAX) <a) X S3/Sd(X) ame" sami "°* op 
400.1 DOCS ADDRESS FREE TEXT K:QU{X)>54!(SL{X)<1) X 
MFCM FID # 155 


28 STORED: =Sp( “TCC cA, 400) ,"°",, 2) 
44 POST I: s Men 7: X) 9541 (SAX)K1) X S:/SA(X) ame" s:an"** om" 


400.2 00CS CITY FPEE TEXT K:SL(X)>20!(SUX)<1) % 











M/FORM FID # 134 


28 SICEED: $p{ “10C( DA, 400) ,""",3) 
44 POST ID: 5s Xean K:SL(X)>201(SLAX)<L) X% s2'Sd(X) are" s:an("*" ane"" 


400.3 DOCS SINIE FOINIER 1003’ 1z(1003, 


M/FCEM FID # 130 
20 CONVERSICN COLE: . 
screSg (came, (Sd “DIZ 1003 ,can, 0) )#10) saan, 1: Sp “DIZ 1003,cm,0),""",1)) 
28 STORED: $p( “I0C(DA,400),"°", 4) 
400.4 DOCS ZIRE FREE TEXT K:SL(X)>10! ($L(%)<5) X 
M/FORM FID # 136 
28 STORED: $p(*Toc(mK,400),"°",5) 
44 FOST ID: § Mecm K:SL(X)>10!(SU(X)<5) X $27Sd(X) cane s:an"*" one" 
400.5 DOCS PHONE NMEER FREE TEXT K:SL(X)>14! ($L(X)<7) X 
M/ECEM FID # 156 


28 STORED: Sp(“10C(TA, 400) ,""",6) 
4A POST ID: Yecra KiSL(X) 9141 (SL(X)<7) X 82°SA(X) caw" szen("" cane" 


400.9 DATE SIGNED CATE S$ Wh"E" D “WY S keY K:Yel X 
M/FORM FID # 140 
20 CONVERSICN COLE: 
S ¥e"(" 5:4Se(an, 4,5) XX Spl "EN. FEB. MAR.APR. MAY. JUN. JUL.AUG. SEP.OCTNOV.DEC™,".", 
4$e(am,4,5))" " 5:+Se(am,6,7) ¥K Se(an,6,7)_", "'s eK _(1700+Se(amn,1,3)) 
gSp(cm,".",2)"="" sak" at * Se(cm "C00",9,10)_":" Seta "C70", 11,12) 8 HX ")" 
sifm'"'(1700)" 4" s cok 
28 SIOFED: =Sp(*ZCC(C4, 100),"°",10) 
401 REFERRAL FEYSICIAN FREE TEXT K:SL(X)>30!(SL(X)<1) X 
M/FORM FID # 141 . 


2B STORED: $p( “ICC(DA, 401),""",2) 
44 FOST ID: § Meo K:SL(X)>30!(SL(X)<1) X s2/Sd(X) an" s:an"°" ate" 


401.A RP WRX ID FREE TEXT «=i SL(X)>101(SL(X)<1) X 
M/fORM STD # 149 


2 svoren: So “100(0A, 401),""",9) 
24 POST ID: § Mec K:SL(X)>10! (SL(X)<L) X $:"SA(4) ome” s:an("*" an 


401.6 COES PEF DOCIOR SPECIALI ST CF CYTES = Y:Y5S 
; N:NO 


3 











MCR FID # 147 


20 CUNVERSION COKE: = s ceSp( Sp"; Y: YES;NetO;",";" am ":",2),";",1) ,camGp(am,":",1) 
28 SICFED: $p¢ “I0c(DA, 401),""",7) 


401.7 RP SPECIALTY FREE TEXT K:S2{X)>30! (SLX) <1) X 
M/FCRM FID # 148 
2B STORED: § 9p “ICC(DA, 401),"*", 8) 
29 PREFIELD COO: S:'SD(abdi(147)) skipe"D" i “Sdigkip) sscii(147)’["Y" skip="D" 
44 POST ID: s Mean K:SL(X)>30!(SL(X)<1) X 8:/SA(X) cw" s:anf""" cme" 
401.1 RP ACDRESS FREE TEXT K:SL(X)>SA!l (SUX) <1) X 
M/PORM FID # 142 


28 STORED: Spi “10c(fA,401),"°",2) 
44 POST ID: 5 Xmen K:SL(X)>541 (SLX) <1) X $3’Sd(X) ate"" s:anf"*" am 


401.2 Re Criy FREE TEXT K:$L(X)>201 (SLX)<L) X 
M/FORM FID # 143 


28 STORED: $p( “10C(fa,401),"°", 3) 
44 POST ID: 5 Mean K:SL(X)>201(SL(X)<L) X 8:°S(X) am”” s:cnl"*" om” 


401.3 RP SINIE FOINIER 1003’ 12(1003, 
M/FORM FID # 144 
20 COMERSICN CLE: 5 
ane (cme: "| (Sd( DYZ(1003,can, 0) ) #20) sem, 1:9 pf “DZ (1003,cmm,0),"°",1)) 
28 STORED: 9p “I0C(DA, 401), °°", 4) 
401.4 PP ZIRE FREE TEx K:SU(X)>101 (SL(X)<S) X 
M/PORM FID # 145 


28 STCFED: Sp( “10c(nA, 401),"*",5) 
44 POST ID: 5 Yeon K:SQLA{X)>10!1(S21X)<5) X 8: °Sa{(X) ame” sranl"** an" 


401.5 RY PHONE NUMBER FRE TEXT KsSL{X)>141 (SL{X)<7) X 
M/PORM FID # 146 


28 STORED: 9p “TCC( OA, 401),"°", 6) 
44 POST ID: = Mec K:S(X)>14! (SUX) <7) X s3/SA(X) aae** s:anf"*" am” 


401.9 RP ONTE SIGED OME S Wih"E" D “WP S wy K:Y<l X 
M/FORM FID # 150 








20 CONERSICN COLE: 
s xe"(" 8:+$e(an, 4,5) 
XK So “JAN. FEB. MAR.APR.MAY.JUN.JUL-AUG. SEP.OCT.NOV DEC" pie b 
+Se(am,4,5)) " " s:4Se(am,6,7) XK Se(om.6,7) ", "5 YeX_(1700+Se(an,1,3)) 
S:Sp(an,".",2)'—"" Yak" at “_Se(cn_"000",9,15)_":" Se(am "000", 11,12) & YeK_")" 
S3%="(1700)" Xe"" 5s cmeX 
28 STORED: $p( “IOC (DA, 401) ,"7", 10) 
1604 MEDICAL CARE FACILITY FREE TEXT K:$L(X)>30!(SL(X)<1) xX 
M/AFORM FID # 151 


28 STORED: $(“I0C(DA,1601),"°",1) 
44 FOST ID: § Mec K:SL(X)>30! (SL(X)<1) X s2’Sd(X) ame srom{"*" ayer 


1604.1ED CARE STREET AIRESS «= ARE er K:$L(X)>54! (SL(X)<1) X 
M/FORM FID # 152 


28 STORED: Spt“ Toc( DA, 1601) ,""",.2) 
44 FOST ID: § eam K:SL(X)>54!(SLIX)<L) X $:°$0(X) ane" ssan("*" ane 


1604.2ED CARE CITY FREE ‘TEXT K:$L(X)>20!(SL(X)<1) X 
M/FORM FID # 153 


28 STORED: $p( “ICC(DA,1601),""",3) 
44 POST ID: 5 Xeon R:SL{X)>20! (SL{X)<L) X $2°Sd(X) ane" s:an"*" cet" 


1604. 38D CARE Sir FOONTER 1003’ 072(1003, 
M/PORM FID # 154 
20 COWERSION CEE: 5 
CroSe (cme 2", ° (SA “DIZ( 1003 azn, 0) 1410) seam, 1: 9p4 “LZ(1903,cm,0),"*",1)) 
28 STORED: $p( “ICC(nn, 1601},""",4) 
1604. ED CARE ZIP CE PRE TEXT = K:SL(X)>101($2(X)<S) X 
MV/PCEM FID ¢ 155 


28 STCFED: = $p{“ICC(TR,1601),"*",5) 
44 POST ID: Mec K:SL(X)>101(SL(X)<5) X 6: 'Sd(X) cm ssan""" cnet” 


Wl EMPOWER LEPDGRARHICS 
ORTA ELEMENT ‘ CA THe FOINIER GLOBAL REFERENCE OR INU? VERIFICATION 
3 SN . . FRE tex K:SL{X)>93 (SLI) 1" (XIN) X 











M/FCRM FID # 4 


28 STORED: $p( “I0C(DA,0),"°", 4) 
44 FOST ID: s Nem K:SL(X)>9!(SU(X)<9) 1’ (XPGN) X $:’Sd(X) am" s:anl"*" ame"" 


4 SEX sr OF F:FEMALE 
M:MALE 
U:UNENCAN 
M/FORM FID # 5 
20 CCNERSION CHIE: ss 
crmp( $p( " ;F: FEMALE; M:MALE;U:UNRNOAN; ",";" can ":",2),%3°,1) ,camGp(om, ":",1) 
28 STORED: $p(“ICC(DR,0),""",5) 
5 BADGE NUMEER FREE TEXT = K:SL(X)>11!($L(X)<3) X 
NVFCRM FID # 6 


28 SIOFED: 9 $¢ “ICC(DA,0),"°",6) 
44 POST Ws s Mean K:SL(X)>L1! (SU(X)<3) X s:’Sd(X) ame” g:an("*" anm"" 


6 BIRIHOAIE DOAIE S$ Wl="E" D “Wr S MY K:¥cl X 
M/FORM FID # 7 
20 CONVERSION COLE: 
s oo $:+Se(am, 4,5) 
YeX Sp "JAN. FEB.MARWAPR.MAY.JUN. JUL ALG. SEP.CCT. NOV.DEC™,".”, 
+Sefam,4,5))_" " s:+Se(cn6,7) XaX Se(an,6,7) ", * $ Yak (1700+$e(am,1, 3)) 
$:9p(am,".",2)’="" Yak” at " Se(am °000",9, 10) "2" Se(cm "000",11,12) 5 4X_")" 
:X="(1700)" we" cmeK 
28 SICFED: §=$p(“10C(0A,0),""",7) 
7 SIMEED ACORESS FREE TEXT K:SL(X)>64! (SL(X)<1) X 
M/FCRM FID # 130 


28 STORED: $p(“ICC(EA,1),"*",1) 
44 POST ID: § Mean K:SL(X)>641(SL{X)<1) X s:/Sd(X) am"* s:aa{"** ane 


8 CITy FREE TEXT K:SL(X)>231 (SL(X)<1) 1° (X2 AP) X 
M/FORM FID # 9 


28 STORED: 9=$p(“10c(mA,1),"°",2) 
44 COST ID: s Meee K:SL(X)>23!(SLX)<1)!/(X2.AP) X s:/Sd(X) ame"" s:an{"*" aoe 


9 SIXIE FOINIER 1003’ 012(1003, 
M/FCRM FID # 10 
20 CONVERSICN CIE: s 


anes (cme: * (Sd( “DIZ (1003,cr,0) )#10) scm, 1:94 “pIZ(10G3,cn,0),"°",1)) 
28 SICFED: $p(“1CC(DA.1),""", 3) 


38 











10.5 2IP CLE FREE TEXT ss K SLX) 10! (SL(X)<5) X 
M/FCEM FID # 12 


28 STORED: $p(“I0C(DK,1),""",6) 
44 FOST ID: § Yea K:SL(X)910! (SL(X)<5) X s:/$d(X) ame” s:an{""" ane" 


9.5 OVERSEAS ACCESS FREE TEXT K:$L(X)>64! (SL(X)<1) X 
FORM Fpel 


2) STORED: =$p(“1cC(mK, 1),""", 4) 
44 FOST ID: ss Yecm K:SL(X)>64!(SL(X)<1) X s:’Sd(X) anm"" s:om"°" ane" 


10 HOME PHONE NUMER FREE TEXT K:SL(X)>15!1(SL(X)<L) X 
M/FCEM FID # 13 


28 STORED: $p(“10c(DA,1),"7",5) 
44 POST ID: Yeom K:SL(X)>151(SU(X)<L) X s2/Sd(X) cme’ szamf"" cm” 


14.5 EMPLOYEE COST CENIER FREE TEXT K:$L(X)>6!($L(X)<1) X 
M/FORM FID # 96 


28 STORED: $p(“ICC(DA,2),"*",4) 
44 FOST ID: § Xecm K:SL(X)>6!(SL(X)<1) X s:/$d(X) ame" szam("-" ame" 


ll ANY POINTER 1074" AGENCY(O, 
M/FCEM FID # 49 
20 CONVERSICN COLE: 5 
crs (cme"" 3", (Sd( “AGENCY(0, can, 0) )#10) scm, 1:$p( “AGENCY(0,can,0),"°",2)) 
28 STORED: 9$p( “ICDA, 2),"°",1) 
11.5 AGENCY WNIT FOINIER 1074" AGNCY(O, 
_ MVECEM FID # 50 
20 CONVERSION COLE: 
ateSe(ane"";"* (Sal “AENCY(0,cm, 0) )#10) sam, 1:Sp( “AGENCY(0,cn,0) ,°°",2)) 
28 STORED: 9p “TOCXtA,2),"7", 2) 
2 sre FREE TOT K:SU(X)>30! (SUX) <1) X 
M/FCRM FID # 16 


28 STORED: $pi“roc(mA,2),"°",3) 
44 POST ID: § eam K:SL(X)>20!(SL(X)<1) X s:/Sd(X) am" s:an{"" ome" 


pcre ed 











Se ee ee 


13 DUTY SIATION FOINIER 1062’ 2N0(1062, 
M/FCRM FID # 96 


20 COWERSICN COLE: 56 
ame (ame"":"", * (Sd( “INI( 1062, can, 0) )#10) som, 1 2 Spf “IND(1062,cm,0),°°",1)) 
2B STORED: $p( “IGC(TA,9),""",1) 
30 FOSIFIELD CLE: 
Ss eon 
i Sd(new) s:new’e"" Spf “ICC(DA, 9) ,U,2,99 Spt “IND(1062 naw, 0) ,U,2,99) 


14 REPORTING CRFICE POINIER 1063’ 1N0(1063, 
M/FORM FID # 103 
20 CONVERSION OYE: 5 
ameSe (ame: "", * ($d(“INI(1063,cmn, 0) )#10) som, 1 :Spi “IND(1063,cmn,0),""",1)) 
2 STORED: =$p(“r0C(DA,10),"°",1) 
30 FOSTFIELD CIE: 


Ss Ue"**" 
i $d(new) sinew’ Spf “ICC(DA, 10) ,U,2,10)«GP{ “INI ( 1063, new, 0) ,U,2,10) 


eS Ha NN SSS 


DAUR ELEMENT OMA TYPE POINTER GLOBAL REFERENCE OR INEUT VERIFICALION 
15 COOLEATION FOINIER 1001’ fz(1001, 
M/FORM FID # 20 
20 CONVERSICN COLE: 5s 
amSe(ane"":"", * (S(T (1001, can, 0) )#10) sem, 2:Spt “DIZ(1001,cm,0),""",2)) 


28 SUED: $p(“IOC(EA, 3), "7", 1) 
2 FROST FILING COE: a setirck”finfrm . 


16 TERE Set oF TEMP: TEECRARY 
NCN:NONOOMPETING 
CARE: CAREER 
CARC:CAREER-CONITICNAL 
M/AACEM FID # 21 
20 COWERSIN s 


CE: 
S cpl $p{ " ; TEMP: TEMPORARY ;NON: NONOCMPETING CARE: CAREER; 
CARC:CAREERAINOITINNAL;",";" aon ":",2),"3",1) camGp(am,”:",1) 
2B SIOFED: Spl “Tort. 3) 3)" 
17 ERY FLAN FREE TEXT K:SL(X)>2! (SL(X)<2) 1" (XPZA) X 
M/PCRM FID # 22 


28 STORED: 9 “ICC(MA,3),"°", 4) 
44 FOST ID: ss Meum K:SL(X)>2! (SAX) <2) 1" (X72A) X 82°Sa(X) aw" s:anl"** ane" 


0 








18 BRY GRE: FREE TEXT «=—s«iKSL(X)>3!(SL(X)<2) X 
" M/RORM FID # 23 


28 SICRED: $p(“IOC(DA,3),"7",5) 
44 POST ID: § Xecm K:SL(X)>3!(SL(X)<2) X s:/SA(X) ame" s:on{"" cnet" 


19 FRY SIEP FREE TEXT K:SL(X)>2!(SL(X)<1) X 
M/FCRM FID # 24 


28 SICRED: $p(“10C(DA,3),"°",6) 
44 FOST ID: Yee K:SL(X)>2!(SL(X)<1) X g:/Sa(X) ame" s:an{"™" am 


21 ERY RXTE NUMERIC PORPAT SX["S" XeGP(X,"S", 2) Rs4XenX(X? NL. "QN) 1 (3099999) 1(XC0) X 


M/FCRM FID # 92 
28 STORED: §=$p( “ICC(DA,3),"°",8) 
20 PAY BASIS SET OP COLES =H: HOLLY 
W:WEEXLY 
M:MONIHLY 
B:BI-WEEKLY 
A:ANNLALLY 
D:DAILY 
M/PCHM FID # 93 
20 COWERSICN COLE: 
Spi" ;H: HOURLY W: WEEKLY ;M: MONTHLY ;B:BI-WEERLY ;A: ANNUALLY ;D: DAILY 
7,73" cm "27,2),"3",1) /Cmmcp(em,":",1) 
2B SICRED: =$o(“I0C(EA, 3),°°",7) 
2 sur Serr XES Lay 
2:SADG 
3:GRAVEYARD 


MV/FCRM FID # 28 
20 COWERSICN COLE: ‘5 
amp( $p( "7.1 :DAY;2::SAING; 3:GRAVEYARD;", "3" :",2),"7",1),camOp(am,":",1) 
28 STORED: =$p(“10C(tA,3),"*",9) ; 
21.5 BAY SINILS FOINIER 1093’ = N0(1093, 
M/PCRM FID # 27 


20 CONVERSION COLE: 5 


CSe(crne™ 3", (Sd “2NT( 1093 cae, 0) #10) ser, 1:Sp( “INI(1093,can, 0) ,"°",2)) 
28 SIRED: $p( “ICC{DA,3),"*",.10) 














23 MNES CN XB NUMERIC FORMAT K:4X'=K! (3999999999) 1 (60)! (X7 61". "IN.N) X 

NV/FORM FID # 29 

28 STORED: $p(“ICC(DA,3),"*", 11) 
24 FEL COE FREE TEXT §=——K:SL(X)>15!(SL(X)<L) X 

M/FCRM FID # 30 

28 STORED: $p( “1CC(DA,3),"*", 12) 

44 FOST ID: § Nea K:SL(X)>151(SL(X)<1) X 8:°Sd(X) ame" s:on{"-” om” 
25 FEB CLE FRE TEXT =: SL(X)>151($L(X)<1) X 

M/FORM FID # 31 

28 STORED: $p( “ICC(DA,3),"7", 13) 

44 FOST ID: § Yeon K:SL(X)>15!(SL(X)<1) X s:Sd(X! ame" sent" cet” 
303 REGULAR WHAK SCHEDLLE FREE TEXT K:$L(X)>15!($L(X)<3) X 

M/PORM FID # 120 

28 STORED: 9p( “1CC(DA, 200),"°",4) 

44 POST § Neem K:SL(X)>15! (SL(X)<3) X s:/Sd(X) am" ssanf"*" met” 

302 REGULAR WORK HOURS FREE TEXT «=: SL(X)>14!($L(X)<6) X 


M/FORM FID # 119 


3 STCFED: Spf “T0C( TA, 300) ,"°", 3) 
44 POST ID: $s 5 Meer K:SL(X)>14! ($L(X)<6) X s3’Sd(X) awe” ssonf"*" one"* 


303.5 REQULAR NUMBER CF HOURS NUMERIC PCEMAT K:4X’ aX! (2624) 1 (X<1) 1 (X221".*IN.N) X 
M/FCRM FID # 118 
28 STORED: $p( “TOC(DA, 300),"°",6) 

303.6 BARTTIME WORK HOURS FER NUMERIC FORMAT K:4X’eK! (306) £(X¢L) $(X2.E1"."IN.N) X 
MACH FID # 121 
28 SICFED: $p( “IOC(DA, 300),"°",7) 

402 SUPERVISCR’S NE FREE TEXT R:SL{X}>30!(SLAX)<1) X 

M/FORM FID # 122 


2B STCRED: $p( “10C(DA, 402),"°", 1) 
44 POST ID: s Mecen K:SL(X)>30!(S2(X)<1) X s:’Sd(X) cae" ssanl"** am” 














402.1 SPERVISR’S TITLE FREE TEXT K:SL(X)>30!(SL(X)<1) X 
M/FORM FID # 123 


2B STORED: $p(“I0c(DA, 402),"7",2) 
29 PREFIELD COKE: S:chi(122)="" skip="D" 
44 POST ID: = s Mwom K:SL(X)>30!(SL(X)<L} X s:/Sd(X) ane" ssom("*" ome" 


ee SSS 


i Sd( file), file,New'=) s:/Sd(lvl) lvl 
+6 filingsés( '$d( filing) :lvl,lvbfiling:lvl,1: filing) 
+d “fmfrm s Ue"*" 
i $d( file), filew1,Sd(New), (New’=) d c600°TSCPINF 














Til. FOST-ACAM COLE 


i $d(file), file 5 filing-ée( ‘$d( filing) :1vl,lvbfiling:1vl,1:filing) 
4d node0” fmm 





120 CAUSE OF INOURY POIMIER 1026’ IN0( 1026, 
M/PCEM FID # 68 


20 COWERSICN COE: «ss aGe(came”™:"", (Sd “INO( 1026 cam, 0) 1410) scan, 1: 9p “IND(1026,0m,0),"°",2)) 
2B SIOFED: 99p( “I0C(DA,110),"*", 5) : 


101 NATURE OF DNOLRY COLE FCINIER 1017’ $= 1N0(1017, 
M/ECEM FID # 49 


20 COWERSION COLE: = 5 ameSe(come”":"",  (Sc( “IND(1017,can, 0) #10) scam, 1: Sp “INO(1017,c9n,0),"°",2)) 
28 STORED: 9(~10C(DA,100),""",2) 
2 POST FILING COLE: di setirck” fnfon 
100 BODY BART Ore FOINIER 1018’ IN0( 1018, 
M/PCRM FID # 48 


20 CONVERSION CODE: «= ame(came"" 2", (Sd( “INI( 1018, can, 0) )#10) scm, 1: Sp “2NT(1018,cm,0),"°",2)) 
28 STORED: $pf “ICC(DA,100),""",1) 


126 SOLFCE CF INOURY POINTER 1027’ mN0( 1027, 
M/PCRM FID # 51 
20 CCOWERSICN CLE: «8 cameGea (cme: "", “(Sd “IN(1027,cam, 0) 820) scam, 1: ${ “IND(1027,cm,0),°"",2)) 
28 STORED: $p( “I0C(DA,120),""", 3) 
32 POST FILING CIE: di setinck*fmfon 
36.5 SORE OTE FREE TEXT R:SL{X)>61(SLAX)<1) X 
M/FCRM FID # 50 


28 STORED: Spi “ICC{EA,120),"°", 9) 
44 POST ID: 8 Yecmn K:SU(X)>61(SLAX)<1) X 8:°Sd(X) cme s:cnf"** cme 


102 INOURY CSHA COLE FOINIER 1057’ 1N0(1057, 
M/PORM FID # 16 


20 CONVERSION COE: $8 cnGa(cme”™ 2", (Si “IND( 1057,,cn, 0) $810) sem, 1:90 “2N0(1057,cmm, 0) "7", 2)) 
28 STORED: 9p( “10C(OA, 100),”*", 3) 


113 BLOG/SHIP tPeE TEXT K:SU(X)>15! (SUX) <1) X 


44 








—— 
M/FORM FID # G4 
28 STORED: $p(“ICC(DA,100),"7",14) 
44 FOST ID: 6 Yecm K:SL(X)>151(SL(X)<1) X s:/Sd(X) ame" s:anf"*" cn” 
114 SPECIFIC LOCATION FREE TEXT K:SL(X)>40!(SL(X)<1) X 


MyFCEM FID # 65 


28 SICFED: $¢4“ICC{DA,100),"°",15) 
44 POST ID: © Meee K:$L(X)>401(SLAX)<L) X 82/Sd(X) cane gram "*" one 


SSS en ne 


DAOR ELEMENT DAA TYE FOINDER GLOBAL REFERENCE OR INU? VERIFICATION 
L1O REPORIRELE Case SET OF COLES = Y:YES 
: N:ND 
M/PORM FID # 18 


20 CONVERSICN CEE: = 8 camSp($p(";¥:YES;N:NO;","7"_ an ":",2),";",1) ,amep(am,”:",1) 
28 STORED: $p( “10C(DA,100),"°", 11) 


109 RECORCABLE CASE ST OF OES ¥: FS 
N:ND 
R:FEMOVED 
M/FCEM FID # 22 


2B STOR: $p(“10C(cA, 100) ,""", 10) 


134 RECREATION INARY SAT OF CUES = Y: YES 
NiO 


20 CONERSIN GE: 6 compl $04" ¥: 5 jN:NO;R: REMOVED; ",";" om *2",2),"5",2) crm p(cm, "2", 1) 


M/PCRM FID # 23 


20 CONVERSION COE: § cm6p($p(";¥: YES;N:ND;",";" am ":",2),";",1) amGp(an,":",1) 
28 STORED: 9p “10C( mA, 13),"*", 3) 


11] ‘TERMINATICN ‘TRANSFER SerorP cares =v: ¥8S 
N:NOD 


M/PCRM FID # 21 


20 CONVERSION CKKE: 6 cmSp($p(";¥: YES ;N:ND;",";" am ":",2)," i o1) scxmeiotca,":", " 
2B STORED: 9p “T0C(DA.100),"*", 12) 


104 LOST TIME ACCIDENT ST Cr Cres =: YES 
N:NOD 


M/PCEM FID # 19 


45 














20 COWERSICN CE: 3s amdp($p(";¥: YES;N:NO;",";"_am_":",2),";",1) ,am6p(an,”:",1) 
23 SicFeD: 9 $p( “IcC(DK, 100) ,""", 5) 


105 LOST WORK CAYS NUMERIC FORMAT K:+X’oX! (20999) ! (X<0) 1 (X21. "IN.N} X 
M/FCRM FID ¢ 63 


28 SICRED: $p(“I0C(DA,100),"°",6) 
29 PREFIFLD COE: S:’SD(chi(19)) skip="D” i ’Sd(skip) s:cbi(19)["N" skip="D* 


106 LIGHT DuTY DAYS NUMBRIC FORMAT K:4X'ssK! (20999) ! (XO) 1(X?.21", "IN.N) X 
M/FORM FID # 27 
28 STORED: $o(“I0C(DA,100),"°",7) 


108 FIRST AID CASE Sr or caress y: eS 
N:NO 


M/PCRM FID # 20 


20 CONVERSICN COLE: «8 ame6pi $p(" Y: YES;N:ND;",";" ca_":",2),"3",1) cman, ”:",1) 
28 SICFED: Sp( “I0C(0A,100),"*",9) 


135 VEHICLE INOLRY SET OF QYES) Y:Y55 
N:NO 


M/FORM FID # 25 


<0 CCONWERSIQN CODE: = cGp($p(";Y: YES;N:ND;",";"_ cam" :",275"5",1) ,ameSp(am,":",1) 
28 STORED: §=Sp(“ICC(DA,17),""", 4) 


133 TOY INOLRY SET OF CCOEES. Ss Y: YES 
N:NO 


M/PCHM FID # 24 


20 CONVERSION COE: = co $p(";¥: YES;N:ND;",";" om ":",2),°5°,1) ,ammOp(am,”:",1) 
2B STGRED: =$p( “10C( OA, 13) ,""",,2) 


136 TWO WHEEL VEHICLE INKY STOP CUES) §Y:YES 
N:NO 


M/PCRM FID # 26 


20 CONWVERSICN CODE: = § am6p($p(";¥: WES;N:ND;”,";" aa ":",2),°;*,1),cmOp(ar,”:",1) 
28 STORED: 9 3{ “ICC(TA, 13), °°", 5) 


103 CATE OF CENTH CXIE S Wh"EI" D WT S MY K:¥<ci XL D(X) KeXCSP( “ICC(OA,0),U,2) X 
M/PCRM FID # 30 


20 CONVERSICN CIXE. 
8 Xo"(" g:+Se(cra,4,5) Seek Spl "JAN. FEB.MAR_APRUMAY JUN. JULAUG. SEP.OCT.NOV.DBC™,".", 


46 








+Se(om,4,5)) "* * s:+Se(an,6,7) %K Se(am,6,7)_.", "5 Hex (1700sSe(am,1, 3)) 
s:$o(an,"." ya)'="" we" at " ' Se(an "000" 19,10) | ":" Se(an_"000",11,12) & eK c 7)" 
8:%="(1700)" Xe" 5 arX 
<3 STCRED: $p( “1cC( DA, 100) ,"°", 4) 
127 AGENT CF ACCIDENT FOINIER 1068’ 1N0(1068, 
M/SCRM FID # 28 


20 CONVERSION CODE: 8 amGe(cme"":"", "(Sd “2N0(1068,cxn, 0) } #10) scam, 1 Sp “INT( 1068, am, 0) ,"7",2)) 
28 STORED: $p( “ICC(MA, 12),""", 4) 


128 AGT OF ACC PARTICLLAR PrEE TEAT K:$L(X)>60! (SL{X)<1) X 
M/PCRM FID # 31 


28 STORED: $p(“ICC(0A,12),""",5) 
44 POST ID: 6 eum K:SL(X)>601(SL(X)<1) X 8:’Sd(X) ame"" s:an{"*" ame"" 


129 UNSAFE PRACTICE FREE TEXT =: SL(X)>401(SL(X)<1) X 
M/PCEM FID # 22 


2B STORED: Sp(7ICC(0A, 12),""",6) 
44 POST ID: $s Yeom K:SAX)>40!(SL(X)<1) X s:’Sd(X) ane* s:an"*" ane 





. 130 USAFE CONOITICN FREE TEXT K:$L(X)>401 (SL(X) <1) X 
M/PCHM FID # 33 


28 STORED: $p( “IcC(0K,12),"°",7) 
44 POST ID: 8 Mean K:SL(X)>401(SL{X)<1) -X 6:’Sd(X) came” s:anf"°" ore" 


132 STRESSOR INVOLVED INLAY POINTER 1083’ STRESS(0, 
M/FCRM FID ¢ 34 


20 CONVERSION CODE: 's came (come, ’ (Sd( “STRESS(0, can, 0) ) #10) scan, 1:9 “SURESS(0,cxn,0),""",1)) 
2B STORED: =$p( “10C(DA,13),""",1) 


131 PRE INCLVED INOURY FRSE ‘TEXT K:SL{X)>401 (SL{X)<1) X 
M/PCEM FID # 35 


2B STORED: 9p “IOC (DA, 12),"°", 8) 
44 POST ID: Mean K:SL(X)>401 (SLAXICL) X 8:°Sd(X) cme"” gran" cme" 











TIT. FOST-FORM CE, 
i Sd( file), file,New’=Q 8:/Sd(lvl) lvl<0 


+8 filingsGe('Sd( filing) slvl,Jvbfiling:ivl,1:filing) 
+d upcntr’fméon S Us"*" 
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4.3.2 





Enter Claim Forms [T3C CLAIM]. 


Purpose of transaction: This option is used to enter a claims 
form. Focm #726 is called which selects the next form to be 
entered based on the last form filed. 


Transaction Description: This transaction is called from a Menu 
option [T3C CLAIM] in the OSHRKS application package. 


Type of transaction: Action which uses M/TORM #726 as a selection 
routine to enter Claims forms. Figures 4-8 ani 4-9 show the forms 
that will be selected and the criterion for each. 

Global Dictionary Reference: M/FORM— “ptg( 903,726, 

Type of Menu Option: Action 

Action/Routine Code: s iforme726,clearel k wipe,DIC(0) d@ “ptrform 
Output: Stored in Injury File #1005, ceference global: “ICC(N, and in 
Employee File #1004.2, reference global: “Employ(DA,"ICC",F, 
(Neinternal case number, DA= internal employee index, Fe internal 
form number). 


Retenticn: Once entered a case may not be deleted without programmer 
access. Claim forms can be entered and edited in the Injury file, 


but once they have been filed into the empl 'S permanent record, 
only a programmer can make a change to the record. 
Security/Privacy: Calls “T2USER to verify agency access. 


Flexibility: Created using M/FORM-FileMan Interface, should not 
change form. 


Error Recovery: Error trap by Kernel “SER routine 
Report Format Requirenents: None 
Inputs: See Appendix A for claim form input templates and M/FORM 


documentation. The inputs for form #726 are found below with the 
M/FORM documentat. . on the following two pages. 


ENTER CLAIM FORM 
NAME INJURY/ILLNESS DATE 





i ER 
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ILLNESS 





REPORT OF DEATH 









no 
STATION —- 


i 





NOT WORKING 
> 43 Days 





NO ADDITIONAL 
FORM REQUIRED 








LONAL 
UT RED | 





WO ADDIT 
FORM REQ 











NO ADDITIONAL 


FORM REQUIRED 
NO ADDITIONAL ate 





FORM REQUIRED 








INJURY 





EMPLOYEE DECEASED? 







NO ADDITIONAL 
FORM REQUIRED 


40 ADDITIONRL 
FOR REQUIRED 











MACHA: BNIER CLAIM FORA (8725) 


1. PRE-FORM COE 


n filen, mptfile,New, filing,DA s:'$d(nooanmp) filene* ptc( ifoem,99) 
+6:Sd(nocanp) filen=*ptg(903,ifom,99) s Newd, mptfile=] 
8 Ue"*" i 'Sd(DI) s XeGad(SH) ,WIe"" d “WI s DIY k X,Y 
d sec” fmfon 


Il. WINGS 


2 NE FOINIER 1004’ EMELOY( 
M/FORM FID # 1 


20 CONVERSION CEE: «5 amSe(crne"":"", “(Sd “EMPLOY (can, 0) )#10) sm, 1: Sp “EMELOY( cm, 0) ,""",2)) 
28 STORED: $p(*I0c(oK,0),""", 3) 
30 FOSTIFIELD CLE: 

I Newel 5 chi(1)="",mege"Claim not logged!", yaad 

S:$D(cbi(1)) NAYE=SP( ci (1) ,db, 1) ,NAMEPIRSP( di (1) ,db,2) 


32 FCOST FILING CLE: di setinck’ finfrn 
44 FET ID: i Newel Ser mes ee eae: ryme4 cote" 
SA INEX: “I00("C") 
55 LOOKUP NCEE: 
1°30*$p( “TCL Lids, 0),"°",3) 
5°23° Spt “Toc ( Lids,0),""",2) 


1 INURY/ILINESS ONE « TI CNIE S Wh"El" D “Wr S MY K:¥cl X I G(X) K:SP(X,".",1) OF X 
M/PCRM FID # 5 


20 COWERSION CLLE: 
S ¥e"(" s:4Se(cm, 4,5) Xe Sp{ “OAN. FEB.MARAPRLMAY JUN. JUL.ALG, SEP.CCT.NOV.DEC",". 
$e(cm,4,5)) * " s:+Se(a0,6,7) Yak Se(cm,6,7) , * & AeX_(1700+Se(cm,1,3)) 


s:Sp(an,".",2)'="" eK" at " * $e(cm"000",9, 107,*: * Se(cn"000",11,12) 6 %K_")" 
s:¥"(1700)" Xe" 5 amK 


28 STORED: $p{“ICC(0A,0),""",2) 
2 PREFIELD COE: i Newel! (ctd(1)="") s mege"Claim not logged!" sye2dé d hort *ptrslet2 
S ane" endform"R" 
32 FOST FILING CHE: d sctindx” ffm 
44 FOST ID: i Newel! (cbi(1)<"") 5 mage"Claim not logged!" yu24 d hort ‘ptrslot2 
S am"" endfor "Rr" 

oA INEX: “ICC("D") 
55 LOCRLP NTE: 

$°23°S$p “TOC Lids,0),*"",2) 

1°30°Spi “Tae Lids, 0) ,”"",3) 














208 CLAIM FORM LAST RECEIVED POINTER 1002’ 9 forns( 
M/PCRM FID # 6 


20 COWERSICN CLE: $5 amés(ane™":"", ’ (Sd “FORS(am, 0) )#10) som, 2 :$p{ “Fores (am, 0),"°",1)) 
2B STORED: $p( “ICC(DA,200),"°",9) 


209 CLAIM FORM NEXT POINIER 1002’ FORS( 
M/PCRM FID # 4 


20 CONVERSICN CODE: «8 amde(came"":"", ’ (Sd( “PORES (cm, 0) #10) scm, 1:Sp( “POR (am, 0),"°",1)) 
28 STORED: $p( “IOC (mA, 200),"*", 10) 
29 PREFIELD COE: 

S Fe" i Sd(DA) ,DA="" 5:Sd(“ICC(DA,200)) BeGP( “ICC(DA,200),U,10) K:Pm"" F 

I SO(F) K:/SO( “PORES(F,0)) F I SUF) S BSP( “FORSG(F,0),°°",5) K:Pe™ F 

I SO(F) K:’SO(“ptg(903,F)) F 

1 SXF) S ifoom?, clearel ,ERFLAG=1,Newel k F g “ptrfcom 


31 BRANCHING CODE: i Sd(FORM) i FORM’="" 5 newfoomfOrt, clare! Newel g do"ptrform 
44 OST ID: I ave" d “THK 


CS See ee Ee ee 


I SO( FILED), (SO(DA)) S SP(“ICC(DR, 200) ,U,10)="" K FILED, ERFLAG 
i $d( file), file,New=0 s:’Sd(lvl) lvl=O 
+6 filingeSe( 'S$d( filing) :lvl,lvb filing: lvl,1:filing) 
4d upontr® finfrm 











Continuation cf Pay Enter/fdit [T3c CoP}. 

Purpose of transaction: Using an M/FORM input tence: this option 
allows the claims worker to enter/edit continuation of pay information 
directly from the claim forms or other sources. 


Transaction Description: This transaction is called from a Menu 
option [T3C COP] in the OSHRKS application package. 


of transaction: Input template which uses M/FORM #730 to enter 
continuation of pay information directly in the COP file #1008. 


Global Dictionary Reference: M/FORM— “ptg(903,730, 
Type of Menu Option: Action 


Action/Routine Code: s ifornm730,cleazel k wipe,DIC(0) d “ptrform 


Output: Stored Compensation File #1008, reference global: “INJ(1008,DA 


and in Injury File #1005, reference global: “ICC(N (DA= internal 
employee index, Ne internal case number) 


Retention: M/FORM file should not be changed. Data from the CoP 
File #1008 can be archived periodically. 


Security/Privacy: Calls “T2USER to verify agency access. 


Flexibility: Created using M/FORM-FileMan Interface, should not 
change form. 


Error Recovery: Error trap by Kernel “%ER routine 
Report Format Requirements: None 


Inputs: See below. 
CONTINUATION OF PAY 


- a 





NAME 

INJURY/ILENESS DATE & a RD PES aR EET RE TACT 

CONTINUATION OF PAY BEGIN DATE. —SsSSs~C<CS~SCS;7;7] PTS 
CONTINUATION OF PAY NOT TO EXCEED DATE 
RETURN TO WORK DATE 

RECURRENCE FLAG CONTINUATION OF PAY DAYS USED 
JOB ORDER COST WORK 
IS THE CLAIM CONTROVERTED oe 

CONTROVERSION SUSTAINED BY OWCP? 


























§3 











N/R: CON. INUREICN OF BAY (8730) 





1. PRE-FOR( COLE 


n filen, rpptfile,New, filing,DA s:’$d(nocamp) filen="pbc(ifomn, 99) 
+6:$d(nocamp) filen="ptg( 903, ifonm,99) s Newd,rptfile=1 
S Us"*" i SDT) 5 MxGad(SH),Wie"" d “WT s Diby k X,Y 
d sec’ fiméon 


TI. WINDS 





a ENTINTION OF BAY Wir DO 
CROA ELEMENT DATA TYPE FOINIER GLOBAL REFERENCE OR INFUT VERIFICATICN 
2 NAME FOINIER 1004’ EMPLOY( 
M/PORM FID # 1 


20 COWERSICN COKE: «5 omde(ane"":"", ’ (Sd “EMPLOY (can, 0) 1810) scm, 1: Sp “EMPLON(cea,0),"°",1)) 
28 SIORED: SX “TOC(mA, 0),""",3) 
32 POST FILING COLE: di setirck’ finfcm 
44 POST ID: I D(new) s:’Sd(“ICC("C" new, x1)) ane" ,mage"Claim not loggerd!”,ya24 
S4 INEX: “ICC("C") 
55 LOOMP NE: 

; 1730°S$p( *I0C{ Lids, 0),"*", 3) 

“23°Sp “IOC( Lids,0),"°",2) 


1 INQRY/TLLNESS ONE « TI DONTE S WMe"EI" D “Wr S MY K:¥cl X I D(X) K:SP(X,".",1) OT X 


5 Xe"(" 5: +Se(an, 4, 5S) ¥eK Sp( "JAN. FEB.MAR.APR.MAY..JUN.JUL.AUG. SEP.OCT. .NOV..DEC™, " 

Did Gens 5)) " " s:+Se(an,6, 7) XeK Se(am,6,7) ", * $ %aK (1700+Se(am,1,3)) 
s:$o(an,".",2)'="" %*X_" at * * Se(an_"000",9, 10)_": Fo " Se(cm_“000", 11,12) s #K ")" 
ge"(1700)" %e"" s aX 


STORED: +9 “TCC, 0),"°",2) 
FOST FILING COLE: di setinck”fmfoa 


2723S “TOC Lids, 0),""",2) 
1°3O°S$p( “TOC Lids, 0),"°", 3) 


210 COP BEGIN OIE OME S WIs"EI" D “WT S MY Kl X 
M/ECRM FID # 3 


20 COWERSICN CITE: 
8 %="(" $:4Se(am,4,5) YK Sol "PN. FEB .MAR.LAPR. MAY. JUN. JUL LG. SEP.OCT NOV.DEC”,"." 
,+$e(an,4,5)) " " :4Se(cm,6,7) XX Se(am,6,7) ", “ $ XX (1700+Se(am,1,3)) 
5:9p(au,".",2)'="" Yak" at " Se(an *000",9,107_":" Se(can *000", 11,12) 6 ¥xK")" 
8:%e"(1700)" xe"" 5 cmX 
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28 STORED: $p(“I0C(mH, 220),""",1) 
10.1 COP NOT TO EXCEED CAJE OXTE S Wik\"E" D “WI S HY KY X 
M/FORM FID # 4 
20 CCNVERSICN COLE: : 
s ¥e"(" 5:4Se(am, 4,5) Nek, $p{ "JAN. FEB.NAR.APR.MAY. JUN. JUL-AUG. SEP .OCT.NOV.DEC","." 
,+$e(an,4,5)) " " s:4Se(an,6,7) 4X Se(am,6,7) ", " $ ¥eK (1700+Se(an,1,3)) 
e:Sp(an,".",2)"="" HK." at" Sean "000",9,207,"":" Se(cm "000", 11,12) & XeK_")" 
g252"(1700)" Xe"" s anx 
28 SICFED: $p( “IOC( DA, 220) ,""",2) ; 
210.3 COP RETURN TO WORK CRAIE NE S$ Wrie"E" D “WT S wy K: <1 X 


M/FORM FID # 5 

20 CONVERSION CEE: 
5 %e"(" sreSe(am,4,5) XaK Spl "JAN. FEB.MAR-APR.MAY. JUN. JUL AUG. SEP .OCT.NOV.DEE","." 
eSe(cm,4,5)) " " s:4$e(cm,6,7) XK Se(an,6,7) ", " S XeK_(1700+Se(cm,1,3)) 
s:So{am,".",2)’="" Mek" at ™ Se(cmi_"000",9, 107, "2" Seccon™000", 11,12) § HaK_")" 
$2%"(1700)" %e"" s cme i 

| 2B STORED: Sp(“10C(mA,220),""", 4) 

210.4 COP RETURN TD WORK HOURS «NUMERIC FORMAT Ks4X’9K1 (024) 1( KC) [(4?.E1"."IN.N) X 

-N/FORM FID # 6 

28 STORED: 9p(“10C(OA, 220),""",5) 

- 210.5 COP RECURRENCE FLAG SET COP COOES ¥:YES 

N:NO 
M/ECRM FID #7 


20 CONVERSICN CE: 5 camp $0"; ¥: YES NINO; ", "3" com "2",2),"3" 41) comptom,":",2) 
28 STORED: 9p(“20C(0A,220),""",6) 


220.6 CoP DAYS USED NUMERIC BORAT | K:4'aX! (309999) 1 (XO) 1 (X?.E1". "IN.N) X 
M/FORM FID # 8 
2B STORED: $f “ICC(DA,220),""",7) 
210.7 CoP 0B GER CET NUMERIC BORAT S:X1“S" 4GP(K,"S",2) Ks+X! kG (X’?.NL"."2N) | (30999999..99) 
1(X<0) X 
M/FCRM FID #9 


2B SICRED: +$p( “100(DR, 220) ,""", 8) 








210.2 COP HOURS OF DAY NUMPRIC FORMAT OR: 4X’ eX! (2024) i (XO) 1 (X2.E1". NN) X Ji 
M/AACHM FID # 13 
28 SIFED: 9p{ “T0C(DA, 220), "*", 3) 


205 CLAIM CCONIFOVERIED SET CF COLES Ss Y: YES 
N:ND 


M/PCRM FID # 11 


20 CONERSICN COE: = 8s amép( pl"; ¥: YES;N:ND;",";" ca *:",2),"7",1) ,xmOpiam,":",1) 
28 STORED: Spl “ICC(DA, 200),"*",6) 


205.2 CONTRO SLBTAINED BY GC SEY OF COLES Y:YES 
N:ND 


M/FCEM FID # 12 
20 CONVERSION COLE: 8 cmdp( $(";¥:¥ES;N2NO;",";" com "2",2),"7",1) ,compcam,":",1) 


28 STORED: Sp “10C(A,200),"*", 11) 
29 PREFIELD COKE: S:'S0(chi(11)) skipe"D" i "Sdiskip) sschi(11)"[°Y" eip"D" 





TIZ. FOST-FORM COLE 


$d( file), file, New’=0 s:’Sd(Ivl) lvls) 
+6 filis.Ss{'$d( filing) :lvl,lvb filing:1v1,1:filing) 
I Sd(file), file=l d “T3ccP 
+d upontrinfom 


————— 








4.3.4 


Compensation Pay Enter/Edit [T3COMP] 

Purpose of transaction: Using an M/FORM input template, this option 
allows the claims worker to enter/edit compensation pay information 
directly from the claim forms or other sources. 


Transaction Description: This transaction is called from a Menu 
option [T3C COMP] in the OSHRKS application package. 


Type of transaction: Input template which uses M/FORM #731 to enter 
continuation of pay information directly in the COP file #1009. 


Global Dictionary Reference: M/FORM-—- “ptg(903,731, 

Type of Menu Option: Action 

Action/Routine Code: s iform731,clearel k wipe,DIC(0) d “ptrform 
Output: Stored Compensation File #1009, reference global: “INJ(1009,DA 
and in Injury File #1005, reference global: “ICC(N (DA= internal 
employee index, Ne internal case number) 


Retention: M/FORM file should not be changed. Data from the Com 
ensation file #1009 can be archived periodically. 


Security/Privacy: Calls “S2USER to verify agency access. 


Flexibility: Created using M/FORM-FileMan Interface, should not 
change form. 


Erroc Recovery: Error trap by Kernel “%ER routine 
Report Format Requirements: Nene 


Inputs: See below. 
COMPENSATION PAY 











NAME 
INJURY/ILLNESS DATE & TIME 
COMPENSATION TYPE 


. DATE COMPENSATION BEGAN COMP BEGIN HOURS . 


DATE COMPENSATION ENDED ——~—~~~—~—S—~S~*SC~CS*~C:s«<CP «END HCURS CCS 
DATE COMPENSATION RECEIVED ——~—~S~S*«<“*«CSAMOUNT. OF COMPENSATION 5 
CLAIM CONTROVERTED? ~"“CONTROVERSION SUSTAINED BY OWCP? ~ 
COMP LEAVE STATUS ~ a ere 
JOB TRANSFER FOR MEDICAL REASNS?™S~S 
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a - : SS Oe ae 


: MFCR: COMEENGATION ERY (£731) 
cam RE PER SRE IE REDE PA a ESI TT I TST NEE I STEELE 
I. PRE-FOM CTE 


n filen, mptfile,New,filing,DA s:'$d(nocomp) filen=“ptc(ifor,99) 
+6:$d(nooarp) filen=“ptg( 903, iform,99) s New, ntfile=1 
s Ue" i me SADT) S %Sad(SH) wr" d “WT s Oley k X,Y 


d sec” fménn 
II. WINDS 
EEN Ww TD COCtC~—“‘“CsC“‘“‘“(“—*Ss*s*‘“‘;‘;‘Ci‘;: 
DATA ELEMENT OFA TYPE POINIER GLOBAL REFERENCE OR INPUT VERIFICATION 
2 NAME FOINTER 1004’ EMPLOY‘ 


M/FCRM FID # 1 


20 CONVERSION CEE: «5 amGe(came":"™, "(Sd “EMPLOY( cm, 0) ) #10) :czm, 1:$p( “EMPLOY(am, 0) ,"",1)) 
28 STORED: = $p( “I0C{EA,0),"*",3) 
32 POST FILING CLE: di setinckx” fmf 
44 FOST ID: I SO(new) s:'Sd(“ICC("C,new,xl)) ame" mege"Claim not logged! ym24 
S4 INEX: “ICC("C") 
55 LOGRUP NOE: 
1°20°9p( “10C( Lids, 0) "7", 3) 
2°23°Sp( “IOC Lids 0) "7", 2) 


1 INOURY/TLLNESS ONE « TI OXTE S WI"EI" D “WT S MY K:Y<l X I OX) K:SP(X,”.",1)07T X 
M/FORM FID # 2 


20 COWERSICN CKLE: 
8 %e"(" 8:4Se(am,4,5) ¥eX_Sp( “JAN, FEB.MAR.APR. MAY. JUN. ULAUG. SEP.OCT.NOV.TE",". ” 
+Se(am,4,5)) " " 8:+Se(cn,6, 7) XeK Se(an,6,7) ", " & Ye (1700+$e(an,1,3)) 


s:Sp(an, " ” ,2)'= 0 aa at " ' Se(an "9, 107": = * ' Se(ca“000",11, 12) 8 KX *\" 
s:¥e"(1700)" "" 5 ax 


28 STORED: $p( “10C(0K,0),"7", 2) 
32 POST FILING CCE: di setinck”finérm 
S4 INEX: § *100("D") 
55 LOOP NOE: 
2°23°9p( “T0C( Lids,0) "7", 2) 
1°207Spl “IOC Lids,0),"-", 3) 


256.3 COMPENSATION TYPE SeT CF COLES C:COMPENSATICN 
S: SCHEDULED AWARD 


MFCR FID # 3 


20 COWERSICN COLE: pean uF COMPENSATION; S:SCHEDLILED AWARD;”,";" cm ":",21,°;",1), 
ateSolan,”: 








28 STORED: $p( “ICC(DA,251),"*", 4) 
256.8 COMP FETLRGENCE FLAG ST oF Y:YES 
N:ND 
M/FORM FID # 14 
20 CONVERSION CODE: = amSp( $p(";¥:YES;N:ND;",";" an ":",2),"3",1) ,amGp(an, ":",1) 
28 SICFED: = $p( “ICC(DA,251),""",9) 
256 COMP FECUD FROM DATE S WI"E" D “SDT S MY K:Y<l X 
M/FORM FID # 4 
20 CONVERSION CCIE: 
s Xe"(" 5:4Se(am,4,5) ¥X ¢ S("IEN. FEB.MAR.APR. MAY. JUN. JUL.ALG. SP. OCT.NOV.DEK","." 
,+$e(am,4,5)) " "$3 +Se(20,6, 7) YeK Se(am,6, 7)", " § ¥aX (1700+Se(om,1,3)) 
s:Sp(an,".",2)'="" Yak" at " Se(em”000",9,10)_*: nym ' Se(am"000", 11,12) s %K")" 
s: ¥e"(1700)" ¥e"" s ane 
28 STCFED: $p{"ICC(DA,251),""",1) 
256.4 COMP BEGIN HOLES NUMERIC FORMAT © Kz4K'=X! (2024) 1(X<0) 1 (X2.EL". "IN.N) X 
M/FORM FID # 6 
2B STORED: $p( “1cC(tA,251),"°",5) 
256.1. COMP PECVD THU DAE S Wk"E" D “WTS Ne¥ K:YC1 X 
M/FORM FID # 5 
20 CONVERSION COTE: 

S Xe"(" s:4Se(am, 4,5) YX Sp( “IAN. FEB.MAR.APR. MAY. JUN. JUL-AUG. SEP.CCT.NW. pec*,"." 
eae 5)) " " 8: +Se(an,6, 7) ¥K Se(amn,6,7) ", " s MeX (1700+Se(cn,1,3)) 
s:Sp(am,".",2)'="" xa" at " Se(cm “000",9,10) ' yn ' Se(ar_“000", 11,12) 8 ¥eK_")" 

g:Xe""(1700)" e"" 5 cmeX 

28 STORED: 9p “I0C(DA,251),"°",2) 

256.5 COMP END HOLES NUMERIC PORMAT 9 Ks4X?ei"(24) 1 (KO) !(X?. EL". IN.N) X 
M/FCEM FID #7 — 
2B SICFED: $p( “I0C(mA,251),""", 6) 

256.7 COMP FEC DIXIE OXIE S Wik"E" D “WI S MY K:Y<l X 


M/ECEM FID # 10 


20 CONWERSION CLE: 
S ¥e"(" s:+Se(am,4,5) XK Sp( “JAN. FEB.MAR.APR.MAY. JUN, JUL.AUG. SEP.OCT.NOV.DEC","." 
»+Se(an,4,5)) * " s: +$e(an,6, 7) %K Se(am,6,7) *, " s XK ¢ (1700+Se(am, 1, 3)) 
s:Sp(an,*.",2)’="" Yak " at " So(cm “000",9,10)_*: oe Se(cm"000",11,12) s ¥aK_")" 
s:¥="(1700)" %e"" s amX 
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28 STORED: 9p(“10C(DR, 251) ,"77,8) 


6.2 COMP RECVD Goss NUMERIC FORMAT S:X[°S" HGPLX,“$",2) Ks4Xedh(X"7.NL"."2N) 1 (10999999.99) 
: 1(X<O0) X 
M/FCEM FID ¢ 9 
28 STORED: 9 $p( “10C(DA,251),""", 3) 
205 CLAIM CCNIFOVERIED SEY CF COLES Y:YES 
N:NO 
M/PORM FID # 11 


20 CONVERSION CODE: «8 aeGp(Sp(";¥: YES;N:ND;",";" am_":",2),"3",1) ,cmGpiam, ”:",1) 
2B STCFED: 9=$p( “10C(DA,200),""",6) 


205.2 CONIROV SUSIAINED BY GC Ser OF COLES Y:YES 
N:NO 
M/FORM FID # 12 
20 CONVERSICN CODE: = s amSp($p(";Y: YES;N:ND;",";" cn ":",2),"5",1) ,amép(am,”:",1) 


28 STORED: 9=9p(“100(DK,200),""", 11) 
29 PREFIFLD CCE: 8:/Sd(chi(11)) skip»"D” i ‘Sd(skip) s:dhi(11)’("Y" skip»"D” 


256.6 COMP LEAVE SIRILS Ser OF CLES S:SICK LEAVE 


M/FCRM FID # 8 
20 CONVERSION COE: 5 aneSp(9p(";S:SICK LEAVE;P:ACMINISTRATIVE;L: LACE; T: TEMP CRF’ SIRTION; 
A:ANNLAL 


LEAVE (VACAOION) ;",";" cm ":",2),"3",1) ,amGp(am,":",1) 
28 STORED: 9p “10C(DA,251),"°",7) 


138 OB TRANSFER MED REASONS cer OF COLES ¥:YES 
N:NO 
M/PCRM FID # 13 


20 CONVERSION CE: § camép($p(";¥:YES;N:ND;",";"_ cn ":",2),"5",1) cam@p(am, "2", 1) 
2B SIRED: = $p( “I0C{0K, 130),""",7) 


SS ee i Ree 


I DW file) d:file=l “cor 
i Sd( file), file,New=0 s:’Sd(lvl) lvled 
+6 filinge( '$d{( filing) :lvl,lvbfiling:lvl,1:filing) 
4d upcntr” fnéom 
aE LSC NSEC EISIS 5 PN STE IE ISD ORE SION OE PIS ICIS TING NCB SSRIS EIEIO SETTLE TCO AEE DATEL GENEL! ELEC ALLE SOLE DAE EEE LLL LE, 





4.3.5 





Print Claim Forms [T3CPRNT). 

Purpose of transaction: After claim forms have been entered and 
permanently stored in the Employee file, this oo allow 

the user to print claim form facsimiles. 


Transaction Description: This transaction is called from a Menu 
option [T3CPRNT] in the OSHRKS application package. 


Type of transaction: Routine Output 


Global Dictionary Reference: VA FileMan “DD(1002, ~FORMS( 
“EMPLOY(DA,"ICC",F, 


Type of Menu Option: Routine 

Action/Routine Code: T3CF 

Inputs: CA form number, Employee Name 

Output: See Appendix B for Facsimile outputs 

Retention: Data from the Claims forms is stored in the Smployee File 
#1004.2 and to be retained for historical purposes and should be 
archived periodically. 

Security/Privacy: Calls “T2USER to verify agency access. 


Flexibility: Form facsimiles can be changed through the VA File 
Manager enter/edit option for file #1002. 


Error Recovery: Error trap by Kernel “$ER routine 


Report Format Requirements: See appendix B for requirements. 
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Claims Pay—-Receive 1 Reports (T3C CLAIMS PAY DATA) 

Purpose of transaction: Three payment output templates 

have been created to print reports; all payment information, 
continuation of pay, and compensation pay. 


Transaction Description: This transaction is called from a Menu 
option {T3C CLAIMS PAY DATA] in the OSHRKS application package. 


Type of transaction: Print Selection 

Global Dictionary Reference: 

Type of Menu Option: Menu 

Action/Routine Code: 

Inputs: Transaction allows person to select from three output 
templates; [T3CPAY1 PAY TYPES] Pay information by Employee, 
[T3CPAY4} Continuation of Pay, and (TICPAY3 COMP DATA) Compen~ 
sation Data. 

Output: 

Retention: This option was created as an example of the type of 
payment information reports that the sits manager can create. 
Options can be added or deleted at the dis:cression of the site 
manager. 


Security/Privacy: Calls “T2USER to verify agency access. 


Flexibility: Can be changed by site manager. 
Error Recovery: Error trap by Kernel “%ER routine 
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4.3.6.1 Pay Information by Employee {T3CPAY1 PAY TYPES] 
Purpose of transaction: An output template using the VA 
FileMan print capabilities to show the regular, leave, COP, 
and compensation pay information by date. 
Transaction Description: This transaction is called from a Menu 
option {T3CPAY] PAY TYPES] in the OSHERKS application package. 
Requires 132 column device. 
Type of transaction: Print Selection 


Global Dictionary Reference: ICC( - 





Type of Menu Option: Routine (Print) 
Action/Routine Code: DIPT 

Inputs: Print template [PAY INFORMATION] 
Qutput: PRINT OUT SAMPLE 


PAY INFORMATION BY TYPE OF PAY RECEIVED 

















Name: Case No: Injury Date: MM/DD/YY 
Occupation: cae ' Nature of Injury: 
Begin Date End Date Rate Basis Gross Amount 
Received 
CONTINUATION CF PAY MM/DD/YY MM/DD/YY 
SICK LEAVE PAY MM/TD/YY MM/DD/YY 
ANNUAL LEAVE PAY MM/OD/YY MM/DD/YY 





po eae 











Retention: This option was created as an example of the type of 
payment information reports that the site manager can create. 


Security/Privacy: Kernel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Can be changed by site manager. 
Error Recovery: Error trap by Kernel “%ER routine 
Report Format Requirements: 

PRINT TEMPLATE: [PAY INFORMATION] 

HEADING: PAY INFORMATION BY TYPE OF PAY RECEIVED 


READ ACCESS: 
WRITE ACCESS: 
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PRINT 


eo 8 8 & 


“Name :" 

NAME 

“Case No:" 

CASE SERIAL NUMBER 

"Injury Date:" 

NUMDATE( INJURY/ILLNESS DATE & TIME) 
"Occupation:" 

OCCUPATION: OCCUPATION TITLE 

“Nature of Injury:" 


. NATURE OF INJURY COOE:NATURE OF INJURY 
. "Begin Date" 
. "End Date” 

5 "Rate" 


. "Basis" 

. "Gross Amount Received" 

. DUP("~",91) 

. PAY INFORMATION (MULTIPLE) 


TYPE OF PAY RECEIVED 
NUMDATE( DATE IMPLEMENTED ) 
NUMDATE(END DATE) 

- RATE 

BASIS 

- GROSS AMOUNT RECEIVED 


amOoOAD Y 
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FORMAT 


$l 
X:L30 
c50 
X;L8 
c80 

x 
c8 

Xx 
c80 


x 
$1;C€35 
c50 
c65 
c80 
C105 
X;C35 


X;Cl 

X;C35 

x;CcS0 
X;C65;L9;D2 
X;C80 
X;C105;19;D2 








4.3.6.2 Continuation of Pay (T3CPAY4) 
Purpose of transaction: An output template using the VA 
FileMan print capabilities to show the COP status of 
individual cases and events. 


Transaction Description: This transaction is called from a Menu 
option [T3CPAY4] in the OSHRKS application package. 


Type of transaction: Print Selection 
Global Dictionary Reference: INJ(1008, 
Type of Menu Option: Routine (Print) 
Action/Routine Code: DIPT 


Inputs: Print template [CONTINUATION OF PAY] 





Output: PRINT OUT SAMPLE 


CONTINUATION OF PAY DATA MM/DD/YY TIME PAGE # 





Case No: Name: = Injury Date: 





Begin Date: MM/DD/YY Not To Exceed: MM/DD/YY 
Recurrence? ; 
RERAARRAKKRKRRARREEERERERREEREAEREEERHEREK KH 
Hours/Day COP Paid: 
Days of COP Used: 
Return To Work Date: MM/DD/YY 
Hours/Day COP Paid on Return To Work: 


RHRRRRRERHRERRRRRAERHRARARERHARERERRHHERRAKRE 


Job Order Cost: 








Retencion: This option was created as an example of the type of 
payment information reports that the site manager can create. 


Security/Privacy: Kernel security routines are called to verify read, 
weite, delete, and laygo (add) access. 


Flexibility: Can be changed by site manager. 
Error Recovery: Error trap by Kernel “SER routine 
Report Format Requirements: 

OUTPUT FROM WHAT FILE: COP DATA #1008 

PRINT TEMPLATE: (CONTINUATION CF PAY] 

HEADING: CONTINUATION OF PAY DATA 


READ ACCESS: 
WRITE ACCESS: 
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PRINT 


"Case No." 

CASE SERIAL NUMBER 
“Name :" 

NAME 

"Injury Date:" 


NUMDATE( INJURY/ILLNESS DATE & TIME) 


“Begin Pate:" 
NUMDATE{ COP BEGIN DATE) 
"Not To Exceed:” 


. NUMDATE(COP NOT TO EXCEED DATE) 
. "Recurrence?" 

. COP RECURRENCE FLAG 

. DUP("*" 44) 

. “Hours/Day COP Paid:" 

. COP HOURS OF DAY 

. “Days of COP Used:" 

. COP DAYS USED 

. "Return To Work Date:” 

» NUMDATE(COP RETURN TO WORK DATE) 
. “Hours/Day COP Paid on Return To Work:" 
. COP RETURN TO WORK HOURS 
. DUP("*", 44) 

. "Job Order Cost:" 

. COP JOB ORDER COST 
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FORMAT 


$l 
X;L& 
c20 
X%;L30 
c58 


xX 
$1;cS 
x 
C€30 


x 
c58 
xX 
X;710 
c10 
X;L2 
cio 
X;L4 
c10 
x 
C10 
X;L2 
X;C10 
cs 
X;L9;D2 





4.3.6.3 Compensation Data [T3CPAY3 COMP DATA] 
Purpose of transaction: An output template using the VA 
FileMan print capabilities to show the compensation status of 
individual cases and events. 


Transaction Description: This transaction is called from a Menu 
option (T3CPAY3 COMP DATA] in the OSHRKS application package. 


Type of transaction: Print Selection 
Global Dictionary Reference: INJ(1009 
Type of Menu Option: Routine (Print) 
Action/Routine Code: DIPT 
Inputs: Print template {COMPENSATION} 
Output: PRINT OUT SAMPLE . 
COMPENSATION DATA | MM/DD/YY TIME PAGE # 





Case No: Name: Injury Date: 
Begin Date: MM/DD/YY End Date: MM/DD/YY Recurrence? 





Compensation Type: 
Leave Status: 
Begin/End Hours: 
Received Payment On: 

Gross Amount Received: 


SORES ET IONE ETT IEE EOE I FELD 








Retention: This option was created as an example of the type of 
payment information reports that the site manager can create, 


Security/Privacy: Kernel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Can be changed by site manager. 
Error Recovery: Error trap by Kernel “%ER routine 
Report Format Requirements: 

PRINT TEMPLATE: ( COMPENSATION] 

HEADING: COMPENSATION DATA 


READ ACCESS: 
WRITE ACCESS: 











PRINT 


1."Case No:" 


CASE SERIAL NUMBER 

“Name: ” 

NAME 

“Injury Date:” 
NUMDATE(INJURY/ILLNESS DATE & TIME) 
COMP INFORMATION (MULTIPLE) 

“Begin Date:" 

NUMDATE(COMP RECVD FROM) 


. “End Date:" 
.» NUMDATE(COMP RECVD THRU) 
. "Recurrence?" 


COMP RECURRENCE FLAG 
DUP( "=", 39) 
“Compensation Type:" 


- COMPENSATION TYPE 


“Leave Status: " 


- COMP LEAVE STATUS 

. "Begin/End Hours:" 

. COMP BEGIN HOURS 

. “Received Payment On:" 

. NUMDATE(COMP RECVD DATE) 
- “Gross Amount Received:" 
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‘ 


FORMAT 
$l 
X;L8 
C20 
X;L30 
cs8 
cs 
x 
c30 
xX 
c58 
x 
X;C10 
c10 
Cc10 
x 
c10 
x 
C10 
C10 


X;L9;D2 
X;C10 





4.3.7  Tickler Pile Print/Misplay {T3CSR8 TICKLER]) 


Purpose of transaction: Print/Display Case Summary Report by 
Injury Date aud =Smployee. 


Transaction Description: This transaction is called from a Menu 
option [T3CSR8 TICKLER] in the OSHRKS application package. 


Type of transaction: Print Selection 
Global Dictionary Reference: ICC( 

Type of Menu Option: Routine (Print) 
Action/Routine Code: DIPT 

Inputs: Print template [TICKLER REPORT2] 
Output: PRINT OUT SAMPLE 

















TICKLER REPORT MM/DD/YY TIME PAGE # 
a SHOP : 
NAME: SSN: 
DATE OF INJURY: MM/DD/YY 
CURRENT STATUS: DATE COP BEGAN: MM/DD/YY 
TOTAL LWDays: ~~‘ DATE RETURNED TO WORK: 
TOTAL , 
COUNT 


Retention: This option was created as an example of the type of 
payment information reports that the site manager can create. 


Security/Privacy: Kernel security routines are called to verify eee. 
write, delete, and laygo (add) access. 


Flexibility: Can be changed by site manager. 
Erroc Recovery: Error trap by Kernel “%ER routine 
Report Format Requirements: 

PRINT TEMPLATE: (TICKLER REPORT2} 

HEADING: TICKLER REPORT 


READ ACCESS: 
WRITE ACCESS: 
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WDAIAMN WN 
2. 6 © © © ee 


PRINT 


“CSN:" 

CASE SERIAL NUMBER 
“SHOP: " 

AGENCY UNIT 

"NAME s “ 

NAME 

"SSN:" 

SSN 

"DATE OF INJURY:" 


. INJURY/ILLNESS DATE & TIME 
. “CURRENT STATUS:" 

. "DATE COP BEGAN:” 

. COP BEGIN DATE 


"TOTAL LWDays:" 


. LOST WORK DAYS 
. “DATE RETURNED TO WORK:” 
. D/T RETURNED TO WORK 
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cé5 
X (SUPRESS HEADER) 

cl 

xX! 

$1;CS 

X;L30 

c35 

x 

c35 


C12 
C35 


C13 
c35 











4.3.8 Adjudication Status Report [T3CSR9 ADJUDICATION STATUS] 
Purpose of transaction: An output template using the VA 
FileMan print capabilities to show the adjudication status of 
individual cases and events. 


Transaction Description: This transaction is called from a Menu 
option [T3CSR9 ADJUDICATION STATUS] in the OSHRKS application package. 


Type of transaction: Print Selection 

Global Dictionary Reference: ICC( 

Type of Menu Option: Routine (Print) 
Action/Routine Code: DIPT 

Inputs: Print template [ADJUDICATION STATUS] 
Output: PRINT OUT SAMPLE 














ADJUDICATION STATUS REPORT : MM/DD/YY TIME PAGE # 
NAME: / 
SSN: i 

CASE NO: NOI: 
DOI: ; 
ADJ STATUS ; DATE ENTERED DATE REMOVED 
‘SNE A AEE REDS PLE AT SIN LLC EE NIE LEIP LEI IEEE IGE EAD TRAIAN LIS PSE EEE TEEN LINEN TE GIES SOOO BE STD NEAT HD EE ES OES ILA TIERS 
23 NEED INFORMATION - FROM CLAIMANT & MEDIC MM/DD/YY MM/DD/YY 
22 NEED INFORMATION ~ FROM MEDICAL SOURCE MM/DD/YY MM/DD/YY 
24 NEED INFORMATION - FROM EMPLOYER MM/DD/YY MM/DD/YY 
AQ3 CLAIM ACCEPTED BY OWCP ~ COP AUTHORIZED MM/DD/YY { PENDING) 


Retention: This option was created as an example of the type of 
payment information reports that the site manager can create. 


Security/Privacy: Kernel security routines are called to verify read, 
write, delete, and laysgo (add) access. 


Flexibility: Can be changed by site manager. 
Errov Recovery: Error trap by Kernel “SER routine 
Report Format Requirements: 


PRINT TEMPLATE: {ADJUDICATION STATUS] 
HEADING: ADJUDICATION STATUS REPORT 
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PRINT FORMAT 
1. “NAME:" $l 
2. NAME X (SUPRESS HEADER) 
3. "“SSN:" cso 
4. SSN Xx 
5. "CASE NO:" c3 
6. CASE SERIAL NUMBER X;L8 
7. "NCU" c21 
8. NATURE OF INJURY CODE:NATURE OF INJURY x 
9. "poI:" C60 
10. NUMDATE( INJURY/ILLNESS DATE & ILLNESS) x 
11. "ADJ STATUS" $l 
12. "DATE ENTERED" cs0 
13. "DATE REMOVED" c65 
14. DUP("=",80) X;C1 
15. ADJUDICATION STATUS (MULTIPLE) 
A. ADJUDICATION STATUS X;Cl 
B. ADJUDICATION STATUS:STATUS DESCRIPTION X;C5;L40 
C. NUMDATE(DATE ENTERED) X;C50 
D. NUMDATE(DATE REMOVED) X;C65 
16. DUP("=",80) X;C1 
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4.4 


4.4.1 





Safety Office Functions [T3CS SAFETY]. Menus under the Safety functions 
are as Follows: 


Enter/fdit Injury {T3CSLG] 

Purpose of transaction: This menu is used to enter, edit, and 
update existing injury/illness data. This option used an 
M/FORM template for data entry. 


Transaction Description: Menu option initialized when OSHRKS system 
is installed. 


Type of transaction: Input 

Global Dictionary Reference: M/FORM “ptg(903,601 

Type of Menu Option: Action 

Action/Routine Code: S iform601,clearel K DIC(0),wipe D “ptrform 
Output: Data stored in Injury file #1005 “r1cc( 

Retention: Required for historical purposes should be archived. 
Security/Privacy: Calls “T2USER to verify agency access. 


Flexibility: M/FORM input templates should be changed by programmer 
familiar with the VA FileMan ~- M/FORM interface problems. 


Error Recovery: Error tcap by Kernel “%ER routine 


Report Format Requirements: 


Inputs: See following pages for input templates and documentation. 
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INJURY LOG ENTRY. 








INJURY/ILLNESS DATE & TIME _ CASE NUMBER 
NAME 








INJURY LOG ENTRY DATE: 
SHOP SHIFT 

OCCUPATION 

DUTY STATION MONTHS GN JG 
PRIMARY SUPERVISOR EMPLOYEE COST CENTER 

SECONDARY SUPERVISOR NONFATAL LOST WORKDAYS 

WAS SUPERVISOR ACCIDENT REPORT FILED? 

TYPE OF ACCIDENT 











Press <Return> for WITNESS INFORMATION 


CAUSE Of INJURY 

NATURE OF INJURY 

BODY PART 

SOURCE OF INJURY SOURCE CODE 

INJURY OSHA CODE 

BLDG/SHIP 
SPECIFIC LOCATION 


























WITNESS INFORMATION 











WITNESS NAME 

STREET ADDRESS 

CITY ae.) ee 2: > ae 
*Press <Return> for WITNESS STATEMENT* 

REPORTABLE CASE _ RECORDABLE CASE RECREATION INJURY 

TERMINATION TRANSFER | LOST TIME ACCIDENT —S»s- LOST WORK DAYS — 

LIGHT DUTY DAYS FIRST AID CASE VEHICLE <NJURY_ TOY INJURY __ 

TWO WHEEL VEHICLE INJURY DATE OF DEATH __ rt 








AGENT OF ACCIDENT 
AGT OF ACC PARTICULAR 
UNSAFE PRACTICE 
UNSAFE CONDITION 
STRESSOR INVOLVED INJURY 
PPE INVOLVED INJURY 
































PYAR: INURY LO Bry (601) 





I. PRE-CORM (OLE 


n filen, iptfile, filing s:’Sd(rocomp) filen=“ptc(ifom,99) 
+6:$a(nocomp) filen="ptgq(903, erg S New, rptfilenl 
Ss TUZ(0}—" | 
5 Un"*" i *Sd(Dr) s XeSacl(Sh), ‘om da “Wr s Dey k X,Y | 

: d sec’ tmfon 
8 Us""" i 'Sd(DT) 5 MeGad(SH),W"" d “Wr s Dey K X,Y 
n filen, ptfile, filing s:'$d(nocomp) filene“pte(ifonn,99) 


IT. WROOS 








INR LOGS ENTRY wii 


1 TNOURY/TLINESS DAIE 4 TI CATE S Wle"El" D “WT S MY K:Y<cl X I D(X) K:$P(X,".",1) DT X 
M/PORM FID # 44 
20 COWERSIGN COLE 


S Xe"(" $s: Seton, 4, S) YX Sp( “JAN. FEB. MAR.APR. MAY. JUN. JUL AUG. SEP.OCT.NOV. DED", " 

+e(an,4,5)) " " s:sse’-.2,6, 7 ¥eRK Se(amn,6,7)_", " $ XaX_(1700+Se(am,1,3)) 

s:So(am,"." t= YK * at " " Se(aa 1 "000",9,10). "3" Se(an_"000",11,12) s XeX_")" 
$:Xe"(1700)" Xe" s ameX 


28 STORED: 9X(* Pee 2) 
32 POST FILING COLE: di setircik’finfmm 
34 INCEX:  “I0C("D") 
55 LOOKLP NIE: 
44°23°Sp{ “TOC Lids,0),""",2) 
44°23" Sp “YCC( Lids ,0),"°", 2) 
43°30°So( “100i Lids ,0),"*", 3) 
49° 45°$p( “TOC( Lids, 100),°°",2) 


MV/FCHM FID # 61 
20 CONVERSION CTE: 


A ’ 


28 STORED: Se{“ICC(CA,0),"°",1) 
44 FCST ID: 
ssa] an" 
§:010999999999 ane"* 








2 NAME FOINIER 1004’ EMPLOY( 
M/FORM FID # 43 


20 CONVERSION CEE: = 5 aneSs(ane"":"", ’ (Sd( “EMPLOY(cmn, 0) #10) scm, 1: Sp{ “EMPLOY(cm,0),"*",1)) 
28 STORED: $p(“I0C(TA,0),"°",3) 
3G FCSTIFTELD CLE: 
NEW X K X,C,P, FLAG,U,P(0) ,P(1) ,P(2) ,0C 
S Un"*" cbsGc( 26) i Sd(new)e(ald’=new) § FLAG="" , P(0}e EMPLOY (new, 0) 
i $A(PLAG) s:$d( “EMPLOY(new,1)) P(1)="EMPLY(new,1) 
i Sd(FLAG) S:SD{ “EMPLOY(new,2)) P(2)="EMELOY(new,2) 
i Sd(P(0)) S $P{“IOC(DA,0),U,4)=S(P(0),U,2) ;SSN 
I SO(P(0)) S SP{“IOC(OA,0),U,5)=GP(P(0),U,3) ;SEX 
I SX(P(0)) S SP{“ICC(OA,0),U,6)=6P(P(0),U,5) ;BAOGE 
1 SO(P(0)) S SP{“IOC(DA,0),U,7)=6P(P(0),0,6) ;SUxXTHOAY 
2 SD(P(0)) S SP{cbi (53) ,db,2)=6P(P(0),U,9) Szabi(53)’="" J0GP{ chi (53) db, 2) 
I SOXCL) S:0C'="" SPY chi (53) ,do, 1 )<GP{ DIZ(1001,0C,0),U,2) ;COCUEFTION 
I SO(CL) S:0C’="" OnGP( DIZ(1001,0C,0),U,1) chi (S2)=C k C COLE CE 
I S0(P(0)) S $P{“ICC(DA,2) ,U,1)=P(P(0),U,17) ;AGENCY 
1 SX(P{0)) S $P(“ICC(DA, 2) ,U,2)=6P(P(0),U,12) ;AGENCY UNIT 
1 SXP(0)) S SP “ICC(DA, 3),U,4)=6P(P(0),U,19) ;BAY PLAN 
I SO(P(0)) S %GP(P(O),U,14) S:X'="" chi (7)="ptc(601,12,7,15,62,X)_ de X KX 
I SXP(1)) S SO “TOCOA,1),U,1)=6P(2(1),U,2) ;STREET ADRESS 
It SXP(L)) S SP{“IOC(DA,1) ,U,2)=6P(P(1) 0,4) ;CITY 
I SO(P{1)) S SP(“ICC(DA,1),U,3)=6(P(1),U,5) ;SIMIE 
I SAP(1)) S SP “TOC(DA,1),U,6)=6(P(1),U,6) ;ZIP OE 
I SX P(2)) S SP “ICC(OA, 3),U,5)=6P(P(2),U,1) ;BAY GRACE 
I SO(P(2)) S SP{“IOC(DA,3),U,3)<6P(P(2),U,5) TENURE 
I SO(P(2)) S $P{“ICC(DA, 3) ,U,6 }=6P( P( 2) ,U,2) SP “IOCIDA, 3) ,U,8)=6P( P( 2) ,U, 4) 
$:'Sd(“IUC(DA,100)) “ZOC(DA,100)—"" S:’SO( “ICC(DA,200)) “ICC(DA,200)—"" 
I S(P(2)) S SP(“ICC(OA, 3),U, 7)=6P(P{2),U,3) ;BAY BASIC 
I ‘SO(DT) S %GZD(+SH), DT—"" D “WOT S DIbY 
S Cn" S:SD{ “ICC(DA,0)) CuaSP{“10C(DA,0),U,9) : 
S:CL="" chi (54)=62D(+SH) db DT K CL ; INOURY LOG ENIRY OXTE 
S Pe) F bel:1 S PeOO(chi[P)) Q:Pe"" S:cbi(P)’="" chi(0,P)="" filing chi 
K FLAG, %,P,0C,X,CL,C,U,P{0) ,P(1) ,P(2) 


32 POST FILING CLE: di setindx”fimnérn 
44 FOST ID: i Sd(new) s Sp(cbi(54) ,db,2)<0T 
S4 INCEX: $= “IQL("C") 
55 LOCYUP NCCE: 
43°30°Spf “IC Lids, 0),"*",3) 
44°239pi “IOC Lids,0),"°",2) 
43°30°9p{ “10C( Lids, 0),"°", 3) 
49° 45°Spi “I0C( Lids, 100) ,"°",2) 


RR, CS ENR a 





CATA ELEMENT OAIA TYPE POINTER GLOBAL REFERENCE OR INPUT VERIFICATICN 


1.7 INOURY LOG ENIRY OE OME S We"E" D “WT S He K:YC1 X 











M/FCRM FID # 54 


20 CONVERSION COLE: 
S Xe"(" s:+Se(an,4,5) XeX Sp( “JPN. FEB.MAR.APR. MAY. JUN. JUL-AUG. SEP.CCT.NOV.DEC", Say 
+Se(am,4,5)) " " s:+Se(an,6, 7) ¥eK Se(an,6,7) ", " S XK (1700+Se(am,1,3)) 


s:$p(an,".",2)'="" Xek_" at " Se(an "000",9, 10). "2" Se(an_"000",11,12) s am i le 


$:Xee"(1700)" Xe" ss cmeK 





28 STORED: $p(“10C(08,0),"°",9) 
2 scp . FREE TEXT K:$L(X)>30:(SL(X)<1) X 
M/FORM FID # S7 


28 STCRED: $p(“I0r(DA,2),"*",3) 
44 FOST ID: $s Xeom K:SL(X)>30!(SL(X)<1) X s:’$d(X) ame"" s:ani""" ane" 


ay 


2 SET OF COLES 1: DAY 
2:SNING 
3 :GRAVEXARD 

M/FCEM FID # 7 

20 CONVERSION CKLE: eee 71:0AY;2:SNING; 3:GRAVEYARO;",";"_omn":",2),"3",1) tmp 

28 STORED: $p{ “10c(mn,3),""" 9) . 
15.5 CCOLURATION COLE FREE TEXT K:$L(X)>6!(SL(X)<5) X 
M/FORM FID # 52 


28 STORED: Sp(“ICc(fA,3),"°",2) 
44 POST ID: ss Xeam K:SL(X)>6! (SL(K)<5) X s:°Sd(X) ane" s:an{*" ane” 


15 COCLEATICN FOINTER 1001’ 0f2(1001, 
M/FCEM FID # 53 
20 CONVERSIGN COLE: «55 as (erne""2"*, 9 (Sd “TZ (1001 ,can, 0) #10) scm, 1: a eta am,0),"7", 2)) 
2B STORED: 99 tela al nee) 
32 POST FILING CE: di setirck’ fnfo 
13 DUTY SIATICN POINTER 1062’ = 1N0( 1062, 
M/FCEM FID # 58 


20 COWERSICN CLE: $s aneSs(ome"":"","($4( “IN3( 1062, cm, 0) )#10) sam, 1 :Sp{ “INI(1062,cn,0),""",1)) 
28 STORED: =$p(“100(DA,9),"7",1) 


23 MONIHS CN X38 NUMERIC FORMAT K:4X’ =X! (30999999099) !(X<0) 1 (X?. EL". "IN.N) X 


M/ECEM FID # 8 
2B STORED: $p(“ICC(DA,3),""",11) 














402 SUPERVISOR'S NYE FREE TEXT K:SL(X)>30!{SAX)<L) X 

M/FORM FID # 62 

28 SICFED: $p(“1cC(mA, 402),""",1) 

44 FOST ID: 5 xem K:SL(X)>30!(SUX)<1) X $:/Sd(X) sme" s:anl"°" ane” 
4.5 EMPLOYEE COST CENTER FREE TEXT K:SL(X)>6! (SL(X)<1) X 

M/FORM FID # 56 


28 STORED: $p(“ICC(DA,2),"°", 4) 
44 FOST ID: 5 Yecm K:SL(X)>6!(SL{X)<1) X s:/Sd(X) ame" s:anf"*" om" 


27 SCOONOARY SUPERVISR FREE TEXT K:$L(X)>30! (SL(X)<1) X 
M/FCEM FID # 12 


28 STORED: §=$p( “10c(mA,3),""",15) 
44 POST ID: § Mecm K:SL(X)>30!(SL(X)<1) X s:/$d(X) am" s:an{"°"" am"* 


107 NONFNIAL LOST WORKOAYS SET CF COOES—sY: YES 
N:NO 
M/FCRM FID # 9 


20 COWERSICN COKE: § ameSp( $p(";¥: YES;N:ND;",";" cn ":",2),"5",1) ,cmm@p(cm, °:",1) 
28 STORED: $p( “ICC (DA, 100),""",8) 


2.6 SUPERVISGRY ACC REFCRT SET OF CQEESsY: YES 
N:ND 


M/FORM FID # 66 


<2 COWERSICN CODE: $s ameGp(Sp{";¥: YES;N:ND;",";"_ ara ":",2),"5",1) ,amep(am,":",1) 
28 STORED: Spi “ICC(DA, 402),""",7) 


Ll2 TYPE OF ACCIDENT POINTER 1025’ 10(1025, 
M/FORM FID # 67 


20 COWERSICN CE: $s amSe(ane"":"", "(Sd “IN0( 1025, can, 0) ) #10) scan, 1: Spf “201025, 0) ,"*",,2)) 
28 STCRED: 9$p(“IcC(A,100),"°",13) 
32 POST FILING Cre: d setirck’ fnémn 


50 WIINESS NYE 


3:’SA(1v1) lvleO i $d(chi(0))>9 s cthfileel d fileae*ptrfilel k sthfile 

i Sd( file), file,New’=0 s filingsSs( ‘Sd( filing) :lvl+l,lvl'<filing:lvl+1,1:filing) 
+d upmntr“finfom s New), chi(0)="" k file 

§ lielvl+l 

i lvl s DA(O)=0R,00e0A £ ielvl:-1:1 s:Sd(DA(i-1)) OA(i)=OA(i-1) 

k CACO) S Dhe"", Dla" 


B 








30 FOSIFIELD CLE: 
i lvl s DA(O)eOA £ iml:1:lvl s:$d(DA(i)) OACi-1)=0A(i) 
s:lvl DPe(A(0) k DA(1v1),0A(0),O1 s ivlelvl-1 
16 CALLS M/FORM: WITNESS INFORPATICN (#602) 


M/FCRM: WIINESS INFORMATICN (#602) 





I. PRE-FCRM COLE 


n filen, rptfile,New s:'$d(nocamp) filene* vesilisca 
+8:$d(nocamp) filen="ptg(903,ifonn,99) s New0, mptfile=i 
s wr d's i ‘SA(DT) s XeSad(SH) 2D" d “WE s Diey k X,Y 
@ sec firm 
d crinck*fmfon 
IY. WNOGS 
eee nee en TESS DRHALTIN HiLow LCS - . " ’ sacmnmanemmamaneineel 
DATA ELEMENT ; OANA TYPE POINTER GLOBAL REFERENCE OR INGEUY VERIFICATION 
.O1 WIINESS NAME FREE ‘TEXT K:$L(X)>25! (SL(X)<3) X 
M/FCRM FID # 6 


28 STORED: $o(“ICC(DA(1) ,4,D8,0),""",1) | 
44 POST ID: s ecm K:SL(X)>25!(SL(X)<3) X s:’Sd(X) am" s:anl"*" cme" 


1 STREET ACDRESS FREE Text K:SL(X)>30! (SL(X)<L) X 
M/FORM FID # 2 


28 STORED: =$p(“10C(DA(1),4,08,0),""",2) 
44 POST ID: s Neem K:SL(X)>30!(SL(X)<1) X s:"Sd(X) ame” ssam("*" amet” 


2ChyY FREE TEXT K:SL(X)>20!(SL(X)<1) X 
PYFCRH FID # 3 


28 STORED: $p{“10C(DA(1) ,4,D8,0),""",3) | 
44 POST ID: s Xeam K:SL(X)>20!(SL{X)<1) X s:’Sd(X) am” s:an{"*" ane" 


3 SINIE FOINIER 1003’ 1Z(1003, 
M/FCEM FID # 4 


20 CONVERSION COKE: = s amGe(cme”":", "(Sd( “DTZ (1003 can, 0) #10) som, 1:$p{ “DIZ(1003,cm,0) ,"*"",1)) 
3 STURED: Ko TOC(DA(1) 4,08,0),""", 4) 








| 


4 ZIP CLE FREE TEXT K:SL(X)>101 (SL(X)<5) X 
MFCR FID #5 


28 STORED: = $p(“ICC(DA(1),4,D8,0),""",5) 
44 POST ID: s Meom K:$L(X)>10! (SL(X)<5) X s:/$d(X) ane"" san" cre"! 


6 WIINESS SIRNTEMENT 


/FORM FID # 7 


28 STORED: novhere 
29 PREFIELD COLE: 
8:/Sd(lvl) Ivl=O i Sd(cbi(0))>9 s shhfilee] d fileme‘ptrfilel k 
i Sd( file), file s filingsSs(‘S$d( filing) :lvl+l,lvl' <filing:ivl+l,1: eit 
+d nodeO* ffm s New), cbi(0)="" k file 
§ lvlelvi+l 
i lvl s DA(O)=0R,D1=e08 f ielv):-1:1 s:Sd(DA(i-1)) OA(i)=OA(i-1) 


30 POSTFIELD (LIE: 
i lvl s DCA(O)sQA f islsl:lvl s:$d(DA(i)) DACi-1)=QA(i) 
6:lvl DeeDA(O) k DA(Ivl!,DA(0),f2 5 lvlelvi-1 
16 CALLS M/FORM: WYINESS SIRJEMENT (#722) 


M/FORM: WITNESS SIRIEMENT (#722) 





I. PRE-FOR COLE 


n filen, rptfile,New s:'$d(nocanp) filene*ptc(iform,99) 
+5:$d(nocarp) filen=°ptg(903,iform,99) s Newd, mptfiles! 
Ss Un""" i 'Sd(DT) s MeGad(SH),WIe"" d “MOT s DY k X,Y 

d sec*fmfon 
d crindk” fmfon 


TI. WINDS 
witness statement Window 1 





ORIN ELEMENT DAIA TYPE FOINIER GLOBAL FEFERENCE CR INEUT VERIFICKTICN 
-O1 WIINESS STROEMENT WORD PECCESSING 
M/FCEM FID # 1 
28 STORED: $p( “IOC(DA(2),4,DA(1),1,08,0),"",1) 
IIT. 


i Sd(file), file s filingsSe( 'Sd( filing) :lvl,lvbfiling:lvl,1:Ziling) 
+d shuffle’ fmém d node0* fmf 


TEL ALTE LS LAL TE TEE TLR LEI TE TE LSI SN TO TN ST LOL IIT EG! NITE INTIS LINEA TEESE TETAS EL ASA DOE DREGE LOREAL GEER GI LLG ELM NTA ENEL CIEE 














———a, 
a eae TEE Til. FOS GLE 
i $d(file),file s filing6s('$d( filing) :lvl,lvbfiling:lv),1:filing) 
+d nock0* fméon 

120 CAUSE OF ROLY POINTER 1026’ N0(1026, 
M/FORM FID # 68 
20 COWERSICN OE: camGs(cane™":"™,"(SA{ “IND( 1026 ,cm, 0) #10) sem, 12S “IND(1026 ,cmn,0) ,*°",2)) 
28 STORED: $p( “ICC(mA,110),""",5) 

101 NATURE CE INQURY OLE POINIER 1017" N0(1017, 
M/FORM FID # 49 
20 CONVERSICN CODE: = cms(ame":", ’ (Sd(“IN0(1017 can, 0) )#10) som, 2:96 °2N(1017,cn,0) ,"°",2)) 
28 STORED: =$p( “Icc(mA,100),""",2) 
32 POST FILING CLE: di setinck”finfem 

100 BOCY PREY COE FOINIER 1018’ m0(1018, 
M/FOEM FID # 48 
20 CONERSICN COLE: 5 artes (cme: "", *(Sd(“INT( 1018, cm, 0) #10) sean, 1:90 “INI(1018,cm,0),"7",2)) 
28 STORED: 9 $p(“I0c(mH, 100) ,"*",1) 

126 SOURCE OF INULRY POINIER 1027’ NJ(1027, 
MFO FID # 51 
20 CONVERSICN CEE: = cames(cane"": “(Sd “2NI(1027, can, 0) )#10) em, 1:90 “RD(1027,<.,0)," 2) 
28 STORED: $m(“I0C(DA,120) ,"*",3) 
32 POST FILING COKE: d setinck’finfon 

126.5 SCURE CLE FREE ‘TEXT K:SL(X1361 (SL(X)<L} X 

M/FORM FID # 50 
28 SICRED: $p(“ICC(DA,120),"°",9) 
44 POST ID: 5 Mec K:SL(X)>6!(SL(X)<1) X s3’Sd(X) cme ssa" ane" 

102 THOURY OSHA COLE FOINIER 1057’ 1N0(1057, 
M/FORM FID # 16 
20 CONWERSICN CODE: «5 ameSe(cmm":"", "(Sd “2N(.1057 crn, 0) ) #10) rom, 13$( °2N9(1057,cm,0),"7",2)) 
28 STORED: 9=$(“10¢(DA, 100) ,"*",,3) 

113 BLOG/SHIP FREE TEXT K:SL(X)>15!(SLX}EL) X 


M/AACEM FID # 64 








eal 
——~ 


28 STORED: $p(“I0C(DA,100),"7", 14) 
44 OST ID: & Yom K:SL(X)>155 1t(X) <1) X s3/Sd(X) ame" ssanf""" am" 


4 SPECIFIC LOCATICN FREE TEXT K:SL(X)>40! (SL(X)<1) X 


M/FORM FID # 65 


28 SICRED: S$p(“ICC(DK, 190),"*",15) 
44 POST ID: s Mean K:SL(X)>40!(SL(X)<1) X s:/Sd(X) ame"" s:anl"*" amet" 


———— a Wie 


<A ELEMENT CANA TYPE FOINIER GLOPAL REFERENCE CR INU? VERIFICUIICN 
LO RERORIRBLE CASE Ser OF CES. ss Y: YES 
N:NO 
MFCM FID # 18 


20 CONVERSION CODE: s cam6p(Sp(";¥:YES;N:NO;",";" cn ":",2),"5",1) ,camOp(an,":",1) 
28 SILRED: $p( “20C(DA,100),""", 11) 


09 RECCRORELE CASE SET OF CLES §Y:YES 
N:NO 
R: REMOVED 
M/FCEM FID # 22 


20 CONVERSION CODE: 8 cmeSp(Sp(";¥:YES;N:NO;R:REMOVED;",";"_cm_":",2),"3",1) ,cam@p(amn,":",1) 
28 STORED: =$p( “ICC(DA, 100) ,"*", 10) 


134 PECRERNTION INOURY SET CF CQOOES ss Y: YES 
Nin 


M/FCRM FID # 23 
20 CONVERSION COLE: = ameSp($p(";¥: YES;N:ND;",";"_ can ":",2),";",1) cman, ":",1) 
28 STORED: S~10-(DK,13),""",3) 
111 ‘TERMINATION TRANSFER SeT OF ¥: 25 
N:ND 
M/FORM FID # 21 


20 COWERSICN CODE: = 3 cm6p($p(";¥: YES;N:ND;","5"_an ":",2),75",1) ,amop(am,":",1) 
23 STORED: $p(“TOC(TA, 100),""",12) 








104 LOST TIME ACCITENT SET OF COOESsY: YES 
N:NO 
M/FORM FID # 19 


20 CONVERSION COKE: = amep($p(";¥:YES;N:ND;",";" cm “:",2),";",1) ,amOp(am,":",1) 
28 SICFED: $p(“ICC(DA, 100),"*",5) 


105 LOST WORK DAYS NUMERIC FORMAT K:+X! =X! (30999) !(X<0)!(X?. EL". "IN.N) X 
M/FCEM FID # 63 


28 STORED: $p(“ICC(DA, 100) ,"°",6) 
29 PREFIELD COKE: S:’SD(cbi(19)) skips"D" i "Sd(skip) s:cbi(19)("N" skip~"D" 


106 LIGHT CUTY DAYS NUMERIC FCRWAT K:4+X’ eX! (30999) 1 (X¢0) | (MP EL". "IN.N) X 
M/ECEM FID # 27 
28 STORED: $p(“I0c(DA,100),"°",7) 

108 FIRST AID CASE SEY CF COCES Ss: YES 
M/FORM FID # 20 nee 


20 CONVERSICN CLE: 5 amp($p(";¥:YES;N:NO;",";" am ":",2),"5",1) ,am€p(amn,":",2) 
28 STORED: $p( “1K (0A, 100),""",9) 


135 VEHICLE INOURY SET OF QLES ss: ES 
N:ND 


M/FCEM FID # 25 


20 CONVERSION CODE: 8 cmGp( $p(";¥:¥ES;N:ND;",";" an ":",2),"5",1) ,crm@p(can, ":",1) 
28 STORED: $p( “Toc (on,13),""", 4) 


133 TOY INDEY SET OF QOES—sY: YES 
N:NO 


M/PORM FID # 24 


20 COWERSICN CLE: 5 omp(9p(";¥:YES;NsNO;","5" om "2",2),5")L) camep(arn,"2")1) 
28 STORED: = $p( “10¢(0A,13),""",2) ) 


136 TWO WEEL VEHICLE INOURY SET OF OOOES = Y: YES 
N:ND 


M/FCEM FID # 26 


2) COWERSICN COLE: 5 rteSp( Sp( " ;¥:YES;N:NO;",";" cm "3",2),"3",1) ,comOp(em, *:",1) 
28 STCRED: §=$p( “100 (DA, 13),"7", 5) 














; 


ORTE OF DERIH DATE S Wie"EI" D “WT S MY K:Ycl X I SOLK) KX<SP{ “ICC(OK,0) ,U,2) X 


M/FCRM FID # 30 
20 COWERSICN CCIE: 


& X="(" s:+Se(am,4,5) eK Sp( "JAN. FEB.MAR.APR.MAY.JUN.JUL.AUG. SEP.CCT. NOV.TED”,"” 
elas: 5)) "" s: +Se(am,6, 7) XeX Se(am,6,7)_", " S XaK_ (1700+Se(am,1,3)) 


£:Sp(an,".",2)/="" XK" at " Se(am_"000",9 10) "3" Se(am_"000",11,12) s XaK")" 
:%="(1700)" Ye" § ameX 
. 28 STORED: $p(“IcC(DA,100),”°",4) 
' AGENT OF ACCIEENT FOINIER 1068’ IN0(1068, 
M/ECRM FID # 28 


20 COWERSICN COLE: $s amSs(ame™":"", "(Sd “IN0(1068,,can, 0) ) #10) :aan,:9p(“2N0( 1068, crn, 0) ,"°",2) ) 
23 STORED: $p( “TOC(DA,12),"°", 4) 


3 AGT OF ACC BARTICLLAR FREE TEXT K:$L.(X)>60!($L(X)<1) X 


M/FCRM FID # 31 


28 STORED: $p(“z0C(nA,12),"*",5) 
44 FOST ID: gs Mec K:SL(X)>601(SL(X)<1) X 8:’Sd(X) ame"” s:an{"*" ane" 


9 UNSAFE PRACTICE FREE TEXT K:$L(X)>40! (SL(X)<1) X 
M/FCRM FID # 22 


28 SICEED: $p( “TCC (A, 12) ,""" 6) 
44 FOST ID: § Mam K:SL(X)>40! ($L(X)<1) X s:’$d(X) an="" s:anf**" ame" 


30 UNSAFE CONDOITICN FREE TEXT K:$L(X)>40! (SU(K)<1) X 


M/FCRM FID # 33 


28 SICFED: $p(“Icc(DA,12),"*",7) 
44 POST ID: 5 Nec K:SL(X)>40!(SL(X)<1) X s:/Sd(X) ane" s:an{**" am” 


32 STRESSOR INWCLVED INLAY FOINIER 1083’ SIFESS(0, 


M/FORM FID # 34 


20 CONVERSION CLE: = camée(ame":", " (Sd( “STRESS(0,can, 0) #10) scm, 1:$p4 “STRESS(C,cam,0),""7"",1)) 
28 STORED: = 9p( “ICC (DA, 13),""", 1) 


3) PRE INCOED DOU FREE ‘TEXT K:SL(X)>40! (SL(X)<1) X 
M/ECEM FID # 35 


28 STORED: $p(“I0C(DA,12),"°",8) 
44 POST ID: s Xeon K:$L,(X)>40!(SL(X)<1) X s:’$d(X) anm"" s:an**" an” 
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Til. FOSTS ..4 COE 


i Sdi file), file,New'=0 s:/Sd(lvl) lvleO 
+6 filingSs( 'Sd( filing) :1vl,lvbfiling:lv1,1: filing) 
4d upontr” fméom S Us"*" 
EAN SE SORE EEO AE SN SN I OE I, I EL IE EE LILLE. RESTS OE IE ELE TEE DETTE LESLIE LE LE SETI OD ACA IG IU ELIE TITTIES, 











4.4.2 


Enter Speedletter [T3CSPD] 


Purpose of transaction: This option uses an M/FORM template for 
data entry of the Navy Speedletter. 


Transaction Description: Menu option initialized when OSHRKS system 
is installed. | 


Type of transaction: Input 

Global Dictionary Reference: M/FORM “ptg(903,603 

Type of Menu Option: Action 

Action/Routine Code: S iforme603,clearel K DIC(0),wipe D “ptrform 
Output: Data stored in Injury file #1005 “rIcC( | | 
Retention: Required for historical purposes should be archived. 
Security/Privacy: Calls “T2USER to verify agency access. 


Flexibility: M/FORM input templates should be changed by programmer 
familiar with the VA FileMan —- M/FORM interface problems. 


wcror Recovery: Error trap by Kernel “%ER routine 

Report Format Requirements: 

Inputs: See following pages for input templates and documentation. 
SPEEDLETTER 








NAME CASE SERIAL NUMBER 
INJURY/TLLNESS DATE & TIME BLDG/SHIP. 

SPECIFIC LOCATION 

DUTY STATUS _ SHIPS STATUS AT INJURY 

MONTHS ON JOB WORK OPERATION 

EVOLUTION OF INJURY LOST WORK DAYS 

NATURE OF INJURY 

EXTENT OF INJURY 

BODY PART 

CAUSE OF INJURY 

TYPE OF ACCIDENT 
WHO CAUSE OF ACCIDENT or ke 
FAILURE TD DO OAYS HOSPITALIZED 

WHY FAILURE 

DATE SPEEDLETTER SENT 

*Press <Return> for NARRATIVE* 

*Press <Return> for CORRECTIVE ACTION* 
*Press <Return> for SPEEDLETTER PEMARKS* 





























*Word Processing Window will apnear 
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MARL SPERTLETIER (4603) 





I. PRE-FORM COLE 


n filen, pptfile, filing s:’$d(nooomp) filene’ptc(ifom,99) 
+8:5d(nocamp) filen=“ptc(903,iform,99) s New), rptfile=i 
§ Un""" i 'Sd(DT) 5 XeSad(SH), Wie" d “ROT s Diby k X,Y 

@ sec*fmfon 


II. WINKS 





| Sain aidw lt CCCCSCtCSSSSSSSSS 
DATA ELEMENT CRIA TYE POINTER GLOBAL REFERENCE OR INEUT VERIFICATION 


2 NE ; FOINIER 1004’ EMPLOY( 
MVFCRM FID # 31 


20 CONERSICN COE: «8 amGs(cane'":"", "(Sd “EMELOY(can, 0) )#10) scm, 1:94 “EP@LOY(an,0),“°",1)) 
28 STORED: $0(“10C(DA,0),"°",3) 


32 POST FILING CE: setinck” fof 
44 RST WD: i Dlrew) s:’Sd( “IC ("C" new, xh)) Seatac Tot legged as claim" Cote", yom24 
‘A INEX: = “ICC("C*) 
55 LOOKUP NYE: , 
31° "So “ICL Lids,0),"°", 3) 
“23°Spt “I0C( Lids ,0),"°",2) 
36°40°Sp( “Ice( Lids, 100),"°",2) 


M/FCEM FID # 29 
20 CONVERSION CCIE: 


28 STORED: Se{ “ICC (mA, 0),"°", 1) 
44 POST ID: 

s:anl an" 

$:0n099999999 on’"” 


1 INDRY/ILINESS OIE 6 TI OXIE S Wih"El" D “WI S MY KY X I W(X) K:SP(X,”.",1) OF X 


M/PCH FID # 1 


20 CONVERSION CLE: 


S Xe"(" s:+Se(am,4,5) eK Sp{ "JAN. FEB. MAR.APR.MAY..UN.JUL.AUG. SEP.OCT.NOV.DEL™,".", 
+Se(am,4,5)) " ° s:+Se(an,6, 7) YK Se(am,6,7)_", " S Yak (1700+Se(an,1,3)) 


s:$o(am,.",0) =" YK" at " ' $e(an! "000",9,10).": a Sela "000",11,12) s X=x_")" 
5:¥=""(1700)" %e"" s amex . 








28 STORED: 9p( “ICC(DA,0),"7",2) 
29 PREFIELD CIDE: i '$d(cbi(31)) s skip="D"erifoam'Q” ;31* 
32 POST FILING COLE: *d setirrk* fmf 
44 FOST ID: i Sd(new) s:/Sd(“ICC("D" new,xL)) mag="Tate not logged as claim!" cme", wa24 
54 INEX: “I0C("D") 
55 LOCRUP NXE: 
1°23°Sp “10C( Lids,0} ,"7",2) 
31°30°Sp( “10C{ Lids,0) "7", 3) 
36°40°SpX “10C{ Lids, 100) ,"*",2) 
113 BLDG/HIP FREE TEXT §=—K:SL(X)>151(SL(X)<1) X 
M/FCRM FID # 35 


28 STORED: 9p( “10C(DA,100),"7",.14) 
44 FOST ID: 8 Yeam K:$L(X)>151(SL(X)<1) X s:’Sd(X) ane" s:an("*" ans" 


114 SPECIFIC LOCATICN FEE TEXT K:SL(X)>40! (SL(X)<1) X 
M/FORM FID # 34 


28 STORED: $p(“10C(DA, 100),"7", 15) 
44 POST ID: s Xeam K:SL{X)>40!(SL(X)<1) X s:°Sd(X) cme" sant!" ane” 


124 OUTY STINILS SET OF COCES = CN: CN DUTY 
CRF :CFF DUTY 


M/FCEM FID # 9 


20 CONVERSICN CODE: = 8 ameGp(Sp(" CN:CN DUTY;CFF: CFF Oury;",";" am ":",2),";",1) ,crm@p(am,":",1) 
23 STCRED: $po( “roc (DA, 12),"°",1) 


118 SHIPS SIMIUS AT INOLRY FREE TEXT K:SL(X)>20!(SL(X)<1) X 
M/FORM FID #7 


28 STORED: $p(“Ioc(mA, 11),"7", 3) 
44 FOST ID: = s Yeam K:$L(X)>201(SL(X)<1) X s:’Sd(X) ame" ssa" ame" 


23 MONIES CN OB NUMERIC FORMAT K:+X’ =X! (30999999999) {(X<0) !(X?.E1"."1N.N) X 
M/FCRM FID # 10 
2 SICFED: $p(“1cC(DA,3),"°", 11) 
157 WORK CRERATICN FREE TEXT K:SL(X)>40!(SL/X)<1) X 
M/FCHM FID 4 8 


28 STORED: $p(“I0C(DA,11),""*",2) 
44 FOBT ID: 5 Yecan K:SL{X)>40!(SL(X)<L) X s:"Sd(X) cme”" ssemi**" cet” 








NEO TE SE SS 


—— 
115 EXCLUIIGN CF INARY FREE TEXT K:SL(X)>20!(SL{X)<L} X 
M/FORM FID # 6 
28 STORED: $p{ “ICC(DA, 100) ,"°", 16) 
44 FOST ID: s Neem K:SL(X)>20!(SL(X)<1) X s:/$d(X) cne™” ssa” ome't" 
105 LOST WORK DAYS NUMERIC FORMAT K:4X' eX! (X>999) 1 (X<0)!(X?.E1"."IN.N) X 
M/ECEM FID # 16 
28 STORED: $p( “IcC(DA,100),"°",6) 
101 NATURE OF INDY COLE POINTER 1017’ in0(1017, 
“1/FCRM FID # 3% 
20 CONVERSION CODE: 3s ameGs(are"" 5", ” (Sd( “INI( 1017, cm, 0) #10) scm, 1:9 “IN0(1017,cm,0),"7°",2)) 
28 STCRED: = “IOC(m™m,100) ,"°",2) 
32 FOST FILING COLE: d setinck fmfom 
116 EXIENT CF INOURY ST OF COLES): FATALITY 
2: PERM TOIAL DISABILITY 
3: PERM PARTIAL DISABILITY 
4:ND DISABILITY LIKELY 
S: MISSING 
M/FORM FID # 15 
20 CONVERSION CODE: 3s ameGo(Sp("; 1: FRIALITY;2:PERM TOTAL DISABILITY; 3:PERM PARTIAL DISABILITY; 
4:ND DISAATLITY LIXELY;5S:MISSING;",";"_an_":",2),";",1) amépiam,":",1) 
28 STORED: 9Sp( “ICC (A, 11),""",1) 
100 BODY PART COLE FOINIER 1018’ ~20(1018, 
M/C FID # 12 
20 COWERSICN COLE: «5 amGe(cme":"", " (Sd( “1ND( 1018, c8n, 0) 410) scm, 1:Sp¢ “IND(1018,cm,0),""*,2)) 
28 STORED: §=$p( “ICC(DA, 100) ."°",1) 
120 CALEE OF INARY ; FOINIER 1026’ ND(1026, 
M/FCEM FID # 13 
20 CONVERSION COLE: «5 arrés(cm”"":"", " (Sd(“INI( 1026, cm, 0) }#10) som, 1: = = 7N)(1026,an,0),°°",2)3 
28 STCRED: $p(“ICC(OA, 110),"°",5) 
112 1YPE OF AXCICENT POINTER 1025’ 9 0NI(1025, 


‘M/FORM FID # 14 


20 CONERSICN CLE: $s camSs( come!" (Sd "2N00( 1025, can, 0) #10) sean, 1 Sp RS an) 
2B STORED: $p( “iC(nA,100),"°",13) 


89 








2] WED CALBE OF ACCITENT FRE TEXT K:$L(X)>30!(SL(X)<1) X - 


M/PCRM FID # 18 


28 SIORED: = $p(“1CC(DA, 11).""",6) 
44 POST ID: s ecm K:SL(X)>30!(SL(X)<1) X 8:’Sd(X) am" s:ani"*" ane" 


22 FAILURE ‘TO 50 FREE TEXT K:$L(X)>30!(SL{X)<1) X 
M/FORM FID # 19 
28 SToRED: Spl “1cC(2A,11),"*",7) 
44 POST ID: s ecm K:S$L(X)>30!(SL(X)<1) X s:’$a(X) am" s:an{"" ane"" 
19 DAYS HOSPTTALIZED NUMERIC FORMAT K: +X! sk! (30999) 1 (X<0) 1(X2.EL"."1N.N) X 
M/FCRM FID # 39 
28 STORED: $p( “10C(MA,110),"*", 4) 
23 WHY PAILLRE FREE TEXT K:SL(X)>60!(SL(X}<1) X 
M/FCEM FID # 20 


28 STORED: $p(“Toc(mA,11),"°",8) 
44 POST ID: 6 Yea K:SL(X)>60!(SL{X)<1) X s:/Sd(X) ame’ s: on "*" ane"" 


5 DATE SPEEDLETIER SENT CATE S We"E" D “WT S Mey K:¥cl X I SOX) K:X<SP(“ICC(OA,0),U,2) X 


& Xe"(" §:4Se(cm, 4,5) Nak SX “JAN. FEB.MBR APR. MAY. JUN. JUL.AUG. SEP OCT NOV. DEC”, " 
+$e(an,4,5)) " "5; +Se(an,6, 7) XK Se(am,6,7) ", " Ss XeX_(1700+Se(am,1,3)) 
8:So(am,".",2)/="" XaX_" at " Se(an "00U" 19,10): ":" Se(am_"000",11,12) s Xak_")" 
8: “¥e"(1900)" Ye" 5 ote 


28 STORED: $p(“I0C(DA,120),"°",2) 
52 NARRACTVE 


M/FCRM FID # 21 


28 STORED: nowhere 
29 PREFIFLD CCIE: 
8:'SA(lv1) IvleO i Sdicti(0))>9 s shhfile=l d filecre’ptrfilel k sthfile 
i Sd( file} ,Cile,New'=O s filingsSa( 'Sd( filing) :lvl+1,lvl’<filing:1v)+1,1: filing) 
4d vomits’ tno § News, chi(0)="" k file 
s lvlelvl¢i 
i lvl 5 CA(0)eOA,00e0R £ ielvl:+1.1 s:Sd(OAli-1)) OACi)=CACi-1) 
k ONO) S Dhe*" De" 


30 TOSIFIELD CIE: 
4 lvl 6 ONO)=OA £ iel:l:ivl s:SdiDAli)) OA(i-1)=0Ni) 
S:lvl DheCA(0) k DAL ivl),ONC),O1 s lvlelvi-1 


16 CALLS M/FORM: NARRAITVE (#604) 


9 











M/FORM: NARRATIVE (#604) - 
1. PRE-FORM Le 


n filen, ptfile,New s:$d(noomp) filen“ptc(ifomn, 99) 
+6:$d(mocanp) filene’pts(903, iformm,99) s News), rptfile-l 
s accra i ‘SG(DT) s XxSad(H1), Wie" d “Wr s DY k X,Y 

d sec’ ftom 
dq crinck® fmfon 


TI. WINDOS 





Seem 


DATA ELEMENT | DATA TYPE FOINIER GCBAL FEFERENCE CR INGUD VERUFICATICN 
.01 NARRATIVE A WORD PROCSSING 
M/FORM FID # 1 
23 STORED: $p( “10C(TA(1),6,08,0),"",2) 
Tit. edo 3 


i Sd( file), file s filingGe('$d( filing) :lvl,lvbfiling:1v1,1: filing) 
4d shuffle* finfom d nodeO* ffm 
‘ape ean gS ET SE OE SS LIT EE REI OIE SE EEE SIT TELAT E LM TIEN, IESE TTT IE A STOR EE GT EITEL SET TNE MSL TEEN A LEAT 
83 CORRECTIVE ACTION 


M/FORM FID # 22” 


22 STORED: rotere 
29 PREFIELD COLE: 
$:'Sd(lvl) lvled i $d{ chai (0) )>9 $ Shfileel d filecre’ptrfilel k sthfile 
[ $d( file), €ile,New’=a0 5 filingeSs('$d( filing) :lvl+l,lvl’<filing:lvl+l,1: filing) 
4d upentr* ffm s News, coi(0)="" k file 
$ lvis=lvl+l 
i lvl s DA(O}=CA,D080K f ielvl:-L:1 s:Sd(DA(i-1)) DA(i OAC i-1) 
k OA(O) S DRe"™" Dla” 


30 POSTFIELD CCIE: 
i lvl s DA(O)=0A f iel:lsivl s:Sd(DAli)) DACi-1)=OA(i) 
Szlvl DAeOA(O) k DAC v1), OA(0),O1 s lvl=ivl-1 
16 CALLS M/PORM: CORRECTIVE ACTICN (#605) 


M/FCRM: CORRECTIVE ACTION (#605) 
EAT EOE ET EL DE APT CC EPEC EGE SETS IIE ED ETED SEES LEE DOS EC TTL OE ARTEL LIE AACE DEE LETTS ECE NELLIE TEESE MEIER IPE TERETE TE LLL. 








I. PRE-FOM COE 
n filen, pptfile,New s:'$d(nooamp) filen="pte(iform,99) 
+68:$(noomp) filen=“ptg( 903, iform,99) s New, ptfiles! 
S Us" i 'Sd(DI) s %xSad(SH), We" d “WT s DRY k X,Y 
d sec” fmém 
d@ crinck” fnéon 
TI. WINS 
CORRECTIVE ACTICN Wirckw 1 
CATA ELEMENT CAA TYE FOINIER GLOBAL REFERENCE OR INPUT VERIFICATICN 
.01 CORRECTIVE ACTICN WORD PROCESSING 
M/FCRM FID #1 
28 SIGRED: 9 $p( “ICC(DA(1),7,08,01,"",1) 
Tit. Retro Che 


i $d( file), file s EilingsGs( ’$d( filing) :1v1,lvbfiling:Iv1,1:filing) 
4d shuffle” fméne d nodeO"éménn 





54.5 SAFETY REMARKS 
M/FURM FID # 30 


28 STCRED: rowhere 
29 PREFIELD LE: 
8:'Sd(lvl) lvleO i Sd(chi(0))>9 s sthfileel d filecne*ptrfile! k shhfile 
i Sd( file), file, Nered s filingsSe( 'Sd( filing) :lvlel,lvl’<filing:lvlel,1:£iling) 
+d upmntr® fnérm 5 News), coi (0)="" k file 
6 lvlelvl+l 
i lvl s DA(0)=CA,00e0QH f ielvl:-1:1 s:Sd(CA(i-1)) OMi)=<OAi-1) 
k DA(O) S Ohe"* ple” 


30 FOSTIFIELD COLE: 
i lvl s DA(O)=OA £ iwlslslv) s:Sd(DAli)) DACi~1)}<OMi) 
s:lvl OheQA(0) k CAC 1lv1),DA(0),D1 s lvlelvi-1 


16 CALLS M/PORM: SPEEDLETTIER FEMARES (#723) 


M/PORM: SPEEDLETIER FEMARSS (#723) 








eta arsnata ra ase a DESAI IGE A BEI SCY IO ME TE SITIO ITE EEE LER TELE NE GEL LSET AGATE REELED E LE EATS TLE NE ELLIS EEE EEL, 


I. PRE-FORM COLE 
n filen, optfile,New s:’$d(nooomp) filen=*ptc(iform,99) 
+6:Sd(nocamp) filen=’pt9(903,iform,99) s New, mptfile=1 
§ Un"*" i 'Sd(DI) s XmSzd(SH) Wt" d “WT s DIvy k X,Y 
d sec’ ffm 
@ crincdk” fmf 


TI. WINDS 
OXTA ELEMENT CATA TYE POINTER GLOBAL REFERENCE CR INPUT VERIFICATION © 
-O1 SAFETY REMARKS WORD PROCESSING 


M/FCEM FID # 1 
28 STCFED: $p(“10C(DA(1),11,08,0),"",1) 





TY. FOST-FOR4 CCE 


i $d( file), file s filingsée( '$d( filing) :Ivl,lvbfiling:1vl,1:filing) 
44 shuffle” fmfon d nodeO* finton 


‘ ; a ‘ 





“TIT, POST-FOM COLE 


.i SA( file), file, New'ad s:’Sd(lvl) lvl=0 
+6 filinpde('Sd( filing) :lvl,lvbfiling:]v1,1:£iling) 
+d upontr’ finfon 
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Print/Display Safety Data (T3CSR SAFETY REPORTS] 

Purpose of transaction: This menu is used to produce 

several Safety Office reports, including: OPNAV 5106/10 

Log Report, Naval Safety Speedletter, Adjudication Status 
Report, and Case Summaries. 

Transaccion Description: This transaction is called from a Menu 
option [T3C CSR SAFETY REPORTS) in the OSHRKS application package. 
It is created using VA FileMan print templates and to be used only 
as an example of reports. 

Type of transaction: Print Selection 

Global Dictionary Reference: 

Type of Menu Option: Menu 

Act.ion/Routine Code: 

Inputs: Transaction allows person to select from the following. 
Retention: This option was creat.ed as an example of the type of 
payment informat:ion reports that. the site manager can create. 
Options can be added oc deleted at the discretion of the site 
manager. 

Security/Privacy: Calls “T2USER to verify agency access. 
Flexibility: Can be changed by site manager. 

Ertor Recovery: Error trap by Mernel “%ZR routine 


Report Format Requirements: 
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4.4.3.1 Injury Log Report [T3CSR1 INJURY LOG] 


Purpose of transacticn: Print/Display Case Summary Report by 
Injury Date and Employee. 


Transaction Description: This transaction is called from a Menu 
option {T3CSR INJURY LOG] in the OSHRKS application package. 


Type of transaction: Print Selection 
Global Dictionary Reference: ICC( 
Type of Menu Option: Routine (Print) 
Action/Routine Code: DIPT 


Inputs: Print template [PRINT INJURY LOG) - 
Sort template [T3CSORT1 DUTY STA/SHOP/DATE] 


Output: PRINT OUT SAMPLE 
INJURY LOG REPORT 


Case Date Inj Employee Name Dept BDY NOI CD Death LTA LWD LTD NCW T/T 





MM/DD/YY MM/DD/YY 





COUNT 





Retention: This option was created as an example of the type of 
payment information reports that the site manager can create. 


Security/Privacy: Kernel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Can be changed by site manager. 
Error Recovery: Errot trap by Kernel “SER routine 


Report Format Requirements: 

OUTPUT FROM WHAT FILE: ICC FILE #1005 
PRINT TEMPLATE: [PRINT INJURY LCG] 
HEADING: INJURY LOG REPORT 

READ ACCESS: 

WRITE ACCESS: 
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oe 


WDYIKDMS WNP 


te 
WHO. 


PRINT 
CASE SERIAL NUMBER; “Case” 
NUMDATE( INJURY/ILLNESS DATE & TIME);"Date 
NAME; "Exployee Name” 
SHOP; "Dept" 
BODY PART CODE; "BDY" 
NATURE OF INJURY CODE;"NOI" 
INJURY OSH. CODE; "Cb" 
NUMDATE(DATZ OF DEATH); "Death" 
LOST TIME ACCIDENT; "LTA" 


. LOST WORK DAYS; "LWD” 

. LIGHT DUTY DAYS; "LTD" 

. NONFATAL LOST WORKDAYS; "NCW" 
. TERMINATION TRANSFER; "T/T" 


Inj we 


FORMAT 
CI;R6 
ca 
C18 ;L16 
C35;W4! 
c40 
c44 
C48;W2 
052 
C62 
C66 :R3+ 
C70;R3+ 
C74 
C78 








4.4.3.2 Event/Case Summary Report [T3CSR2 CASE SUMMARY} 


Purpose of transaction: Print/Display Case Summary Report by 
Injury Date and Employee. 


Transaction Description: This transaction is called from a Menu 
option [T3ICSR2 CASE SUMMARY] in the OSHRKS application package. 


Type of transaction: Print Selection 
Global Dictionary Reference: ICC( 
Type of Menu Option: Routine (Print) 
Action/Routine Code: DIPT 


Inputs: Print template {CASE SUMMARY REPORT] 
Sort template [T3CSORT2 EMPLOYEE] 


Output: PRINT OUT SAMPLE 








CASE SUMMARY 
Case No: Name/SSN/Bdge : / ; 
Inj Date/Time: : NOL: BP: Shop: Stt: 
Cost Ctr: UpV : LTA Days: tt Duty: 
OWCP File: 3rd Pty Case: —Sss DATE to GWCP: ID: 





Claim No: Form: ‘Date of Claim: MM/DD/YY 











Retention: This option was created as an example of the type of 
payment information reports that the site manager can create. 


Security/Privacy: Kernel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Can be changed by site manager. 
Error Recovery: Error trap by Kernel “%ER routine 


Repcxt Format Requirements: 

OUTPUT FROM WHAT FILE: ICC FILE #1005 
PRINT TEMPLATE: [CASE SUMMARY REPORT] 
HEADING: CASE SUMMARY 

READ ACCESS: 

WRITE ACCESS: 
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PRINT 


"case No:" 

CASE SERIAL NUMBER;" “ 
"Name /SSN/Badge : " 

NAME 

sf? 

SSN 

"7 * 

BADGE NUMBER 

"Inj Date/Time:" 


. NUMDATE(INJURY/ILLNESS DATE & TIME) 


. TIME( INJURY/ILLNESS DATE & TIME) 
. "NOI:" 

. NATURE OF INJURY CODE 
< "Bp: cL] 

. BODY PART CODE 

. “"Shop:" 

. SHOP 

. “Sft:" 

. SHIFT 

. “Cost Ctr:" 

. EMPLOYEE COST CENTER 

. "Supv:" 

. SUPERVISOR’S NAME 

. “LTA Days:" 

- LOST WORK DAYS 

. "Lt Duty:" 

. LIGHT DUTY DAYS 

. "CWCP File:" 

. CACP FILE NUMBER 

. "3rd Pty Case:" 

. THIRD PARTY CASE 

. “DATE to OWCP;" 

. NUMDATE(DATE CLAIM SENT TO OWCP) 
. "ID:" 

. CLAIMS CLERK ID 

. "Claim No:" 

. SENT TO OWCP 

. "Form:” 

. CLAIM FORM LAST RECEIVED 
. "Date of Claim:" 

. NUMNATE(DATE OF CLAIM) 
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FORMAT 
$1 
L8 


C20 
X;L25 


C3 


x 
C36 
CA5 
c$3 
X;L5 
cé65 
c3 
C21 
X;L25 
c$3 


c69 


x 
C30 
xX 
c49 


X;L6 
C20 


C35 





4.4.3.3 OPNAV 5100/10 Log Report [T3CSR3 OPNAV 5100/10 LOS] 


Purpose of transaction: Print/Display OPNAV 5100,'10 Report. 
Requires a 132 column width. 


Transaction Description: This transaction is called from a Menu 
option [T3CSR3 OPNAV 5100/10 LOG] in the OSHRKS package. 


Type of transaction: Print Selection 
Global Dictionary Reference: ICC( 
Type of Menu Option: Routine (Print) 
Action/Routine Code: DIPT 


‘Inputs: Sort template [T3CSORT3 DUTY STA/CASE/DATE] 
Print template (OPNAV 5100/10 LOG] 


Output: PRINT OUT SAMPLE 





OSH LOG 
Case Employee -- Deseription of 
No. Date Name Occupation Department Injury/Tllness 
RECOMBCE, CASK ee ee 


OSHA Death LTA LWDays LtDuty NENLW T/T 





MM/DD/YY 





Retention: This opcion was created as an example of the type of 
payment information reports that the site managet can create. 


Security/Privacy: Kernel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Can be changed by site manager. 
Ertor Recovery: Error trap by Kernel “%ER routine 


Report Format Requirements: | 

OUTPUT FROM WHAT FILE: ICC FILE #1005 
PRINT TEMPLATE: [OPNAV 5100/10 LOG] 
HEADING: OSH LOG 

READ ACCESS: 

WRITE ACCESS: 
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PRINT FORMAT 


1. “RECORDABLE CASE:"” $1;C10 
2. RECURDABLE CASE xX 

3. CASE SERIAL NUMBER; "Case" R6;C1 
4. NUMOATE( INJURY/ILLNESS DATE & TIME); Date” CB; W852 
5S. NAME;“Employee Name" C17 ;Wl1o 
6 CCCUPATION: OCCUPATION TITLE; "Occupation" C34;W15 32 
7. SHOP;"Dept" C50 ;W% 
8. NATURE OF INJURY CODE:NATURE OF INJURY;"Description of "C55; 
9. BODY PART CODE:BODY PART DESCRIPTION;"Injury/tliness" C71;w1S 
10. INTURY OSHA CODE; "OSHA" c8? 

11. NUMDATE(DATE OF DEATH); “Death” C92;2 
12. LOST TIME ACCIDENT; "LTA" Ci02 
13. LOST WORK DAYS; "LWDays” C107 
14. LIGHT DUTY DAYS; "LtDuty” c115 
15. NONFATAL LOST ‘NORKDAYS; "NFNLW" : C122 
16. TERMINATION TRANSFER; "T/T" C12e 
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4.4.3.4 Personal Case Summary Reports (T3CSR4 PERSONAL CASE SUMMARY } 


Purpose of transaction: Print/Display Case Summary Report by 
Injury Date and Emplcyee. 


Transaction Description: This transaction is called frum a Menu 
option [T3CSR4 PERSONAL CASE SUMMARY] in the OSHRKS application 
package. 

Type of transaction: Print Selection 

Global Dictionary Reference: ICC( 

Type of Menu Option: Routine (Print) 

Action/Routine Code: DIPT 


Inputs: Print template [PERSONAL CASE SUMMARY] 
Sort template [T3ICSORT2 EMPLOYEE] 


Output: SAMPLE 
PERSONAL INJURY/ILLNESS REPORT 








Name: = SSN: __, Sex? DOB: MH/D: 
Badge No: Occupation: 
Case: 











Injury Date: MM/DD/YY Time: 00:00 OSHA Site 
Code: 


Shop at inj: Shift: Date Entered: MY/DO/YY 


Location: 














Nature of Injury: 
Body Part : os 
Accident Type: 
Source : 
Cause of Injury : 








Se aeasmmnemammend 











re te he tare RRETTES rt EAE 


Primary Supervisor 











Witness Name 
Date of Death: MM/DD/YY LTA Days: _ bight Duty Days: 
Extent of Injury: Speedletter Sent ROOT 





Retention: This cption was created as an example of the type of 
payment information reports that the site manager can create. 


Security/Privacy: Xernel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Can be changed by site manager. 


Etrot Recovery: Error trap by Kernel “%ER routine 
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Report Format Requirements: 


OUTPUT FROM WHAT FILE: ICC FILE #1005 
PRINT TEMPLATE: {PERSONAL CASE SUMMARY] 
HEADING: PERSONNEL INJURY/ILLNESS REPORT 
READ ACCESS: 

WRITE ACCESS: 


OODAHAMNSAWwH 
ist cat eae? toubeh oe. wie) 


me 
tr O- 


~ 
to 


mr be 
DBAIKDUS Ww 


~ 
i J 


tN 
Q 


hNMNNNPM 
WN & wh rh 


ax fh LD Oo @ WwW WW Ww Ww & Ww ow WN NN 
AMNhWNFP OW DBDAIKHMAWNHrFOUWOODAA 


PRINT 


"Name:" 

NAMEX ; 

“SSN: il 

SSN 

"Sex: " 

SEX 

"DOB: " 

NUMDATE( BIRTHDATE ) 
"Badge No:" 


. BADGE NUMBER 
. "Occupation:" 
. OCCUPATION 


w J w 


. OCCUPATION: OCCUPATION TITLE 

. "Case:" 

. CASE SERIAL NUMBER 

. "Injury Cate:” 

. NUMDATE(INJURY/ILUNESS DATE & TIME) 
. "Times" 

. TIME(INJURY/ILLNESS DATE & TIME) 
. "OSHA Site Code:” 

. OSHA SITE CODE 

. "Shop at Inj:" 

. SHOP 

. "Shift:"” 

. SHIFT 

. "Date Entered:" 


NUMDATE( INJURY LOG ENTRY DATE) 
"Location: " 


. SPECIFIC LOCATION 

. DuP("*",50) 

. “Nature of Injury:” 

- NATURE OF INJURY CODE 

. NATURE OF INJURY CODE:NATURE OF INJURY 
. “Boay Part:" 

. BOOY PART CODE 

- BODY PART CODE:BODY PART DESCRIPTION 
. "Accident Type:" 

. TYPE OF ACCIDENT 

- TYPE OF ACCIDENT: ACCIDENT TYPE 

. “Source:” 

. SOURCE OF INJURY 

. SOURCE OF INJURY: DESCRIPTION 

. “Cause of Injury:" 

. CAUSE OF INJURY 

. CAUSE OF INJURY:DESCRIPTION 
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FORMAT 
$1;¢c1 
L25 
C35 


X;C30 
X;L5 
X;C30 
cl 

Xx 
X;C30 


X;LzZ 
X;C30 








- DUP("*",50) 

- “Primary Supervisor:" 

- PRIMARY SUPERVISOR 

- "Witness Name:" 

- WITNESS NAME (MULTIPLE) 


A. WITNESS NAME 


- "Date of Death:" 

- NUMDATE(DATE OF DEATH) 

. "LTA Days:" 

- LOST TIME ACCIDENT 

- "Light Duty Days:" 

+ LIGHT DUTY pays 

. "Extent of Injury:" 

- EXTENT OF INJURY 

- "Speedletter Sent:* 

» NUMDATE(DATE SPEEDLETTER SENT) 
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X;C15 
cl 

X 

cl 


X;W257C25 
cl 

xX 
C30 
X 
cso 
X;L3 
cl 

Xx 
c50 
x 











4.4.3.5 Naval Safety Speedletter {T3CSRS SPEEDLETTER] 


Purpose of transaction: Print/Display Naval Safety Speedletter by 
Injury Date and Baployee. 


Transaction Description: This transaction is called from a Menu 
option (T3CSRS SPEEDLETTER) in the OSHRKS application package. 


Type of transaction: Print Selection 
Global Dictionary Reference: ICC( 
Type of Menu Option: Routine (Print) 
Action/Routine Code: DIPT 


Inputs: Print template [SPEEDLETTER/2] 
Sort template (T3CSORT2 EMPLOYEE] 


Retention: This option was created as an example of the type of 
payment information reports that. the site manager can create. 


Security/Privacy: Kernel secucity routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility. Can be changed by site manager. 


Error Recovery: Error trap by Kernel “%ER routine 
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Output: SAMPLE 


NAVAL SPEEDLETTER 





OPNAV 5102-1 (PID) Date: MM/DD/YY 
To: 


SUBJ: NAVAL SPEEDLETTER 5102-1 


ALPHA: 1. Activity UIC: 
2. Type of Mishap: ; 
3. Local DIG of Mishap: MM/DD/YY 


4. — 

5. Location of Mishap: 

6. Evolution of Mishap: 
7, Ship’s Status at Mishap: _ 














BRAVO: N/A 


CHARLIE: : ; 
. Occupational Grade: ee 
. Duty Status: 
- Job at Mishap: 
. Months Experience: 
. Medical Diagnosis: ’ 
. Extent of Injuries/Iliness: ne 
. Estimate of Lost Time: 
A, Total Lost Workdays: 
B. Days Hospitalized: 

















DOU Ww & w 
. 








DELTA: 1. Basic Cause(s) of Mishap: 
2. Who Caused Mishap: 

3. Failure to Do: 

4. Why Failure: 





+ —ipcmnreneteerertinatnrneeneriarecmarsehtinninie ste ene AACE YA 





rer emrerrenineteneratient arpa nti yea 


— 





ECHO; NARRATIVE 
1. Chain of Events: 
2. Corrective Action: 
3. Remarks: 














FROM: Safety Division, Code 106.2 
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Report Format Requirements: 


OUTPUT FROM WHAT FILE: 


PRINT TEMPLATE: [SPEEDLETTER/2 ] 
HEADING: @ 

READ ACCESS: 

WRITE ACCESS: 


PRINT 


1 
2 
3 
4. 
5. 
6 
7 
8 


wo 


10. 
ll. 
12. 
13. 
14. 
15. 
16. 
17. 
18. 
19. 
20. 
21. 
22. 
23. 
24. 


38. 
3S. 
40. 
41. 
42. 
43. 


"NAVAL SPEEDLETTER” 
"OPNAV 5102-1 (PID)" 
“Date: " 

DATE SPEEDLETTER SENT 
“To: COMMANDER" 
"NAVAL SAFETY CENTER” 
“NAVAL AIR STATION" 
“NORFOLK, VA 23511" 


"SUBJ: NAVAL SPEEDLETTER 5102-1" 


“ALPHA: l. Activity UIC:" 
ACTIVITY UIC 
"2. Type of Mishap:" 


TYPE OF ACCIDENT:ACCIDENT TYPE 


"3. Local DIG of Mishap:” 
INJURY/ILLNESS DATE & TIME 
DUTY. STATION 

DUTY STATION ADDRESS 

pUTY. STATION CITY 

DUTY STATION STATE 


DUTY STATION ZIP CODE 


. "S. Location of Mishap:" 
. SPECIFIC LOCATION 

. "6. Evolution of Misnap:" 
. EVOLUTION OF INJURY 

- "7. Ship’s Status at Mishap:" 
- SHIPS STATUS AT INJURY 


“BRAVO: N/A" 
"CHARLIE: 1, 


"2. Occupational Grade:" . 
CCCUPATION 
ad / n 
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ICC FILE #1005 








77. 
78. 
79, 
80. 
81. 
82. 
83. 
84, 


. OCCUPATION:OCCUPATION TITLE 
. "3. Duty Status:" 

. DUTY STATUS 

- "4. Job at ninhens 

. WORK OPERATICH 


"5. Months Experience:” 
MONTHS ON JCB 
"6. Medical Diagnosis:" 


: BODY PART CODE:BODY PART DESCRIPTION 
u“ v 
wee 
. NATURE OF INJURY CCDE:NATURE OF INJURY 
. "7. Extent of Injuvies/Illness:" 


EXTENT OF INJURY — 
"8. Estimate of Lost Time:” 


. "A, Total Lost Workdays:”" 

. LOST WORK DAYS 

. "B. Days Hospitalized:" 

- DAYS HOSPITALIZED 

- "DELTA: 1. Basic Cause(s) of Mishap:" 
. CAUSE OF INJURY: DESCRIPTION 
- "2. Who Caused Mishap:" 

. WHO CAUSE OF ACCIDENT 

. "3. Failure to Do:" 

- FAILURE TO DO 

. “4, Why Failure:" 

. WHY FAILURE 


“ECHO: Narrative" 

"1. Chain of fSvents:” 
NARRATIVE 

“2. Corrective Action:”" 


. CORRECTIVE ACTION 


"3. Remarks:" 


. SAFETY REMARKS 


"FROM: Safety Division, Code 106.2" 
DUTY STATION 

DUTY STATION ADDRESS 

OUTY STATION CITY 


DUTY STATION STATE 


DUTY STATION ZIP CODE 
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4.4.3.6 Print Detail of Injuries [T3CSR6 ALL INJULIES] 


Purpose of transaction: Print/Display all injuries by shop, 
Injury Date, and Employee. 


Transaction Description: This transaction is called from a Menu 
option (T3CSR6 ALL INJURIES] in the OSHRKS application package. 


Type of transaction: Print Selection 
Global Dictionary Reference: ICC( 
Type of Menu Option: Routine (Print) 
Action/Routine Code: DIPT 


Inputs: Print template [ALL INJURIES REPORT] 
Sort template [T3CSORT3 DUTY STA/DATE] 


Output: PRINT OUT SAMPLE 


























ALL INJURIES 
Injury Employee Job Specific 
Case Date & Time Nime Title Shop Location Bldg/Ship 
MM/DD/YY 
Cause of Injury NOI BP  LWDays Primary Supervisor 
COUNT 





Retention: This option was created as an example of the type of 
payment information reports that the site manager can create. 


Security/Privacy: Kernel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Can be changed by site manacer. 
Error Recovery: Error trap by Kernel “SSR routine 
Report Format Reruirements: 

OUTPUT FROM WHAT FILE: ICC FILE #1005 

PRINT TEMPLATE: [ALL INJURIES REPORT] 

HEADING: ALL INJURIES 


READ ACCESS: 
WRITE ACCESS: 
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. 


OW OAHU & Wd 


Ree 
WHO. 





PRINT 


CASE SERIAL NUMBER; "Case" 

NUMDATE( INJURY/ILLNESS DATE & TIME);"Inj Date" 
TIME( INJURY/ICLNESS DATE & TIME);"& Time” 
NAME; "Employee Name" 

OCCUPATION: OCCUPATION TITLE;"Job Title” 

SHOP: "Shop" 

SPECIFIC LOCATION; "Specific Location” 
SLDG/SHIP; "Bldg/Ship" ; 

CAUSE OF INJURY:DESCRIPTION; "Cause of Injury" 


. NATURE OF INJURY CODE; "NOI" 


BODY PART CODE;"BP" 
LOST WORK DAYS; "LWDays" 


. PRIMARY SUPERVISOR; "Primary Supervisor" 
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FORMAT 


R6 

c10 

C20 
C30;L25 
C57 31.20 
c80;L4! 
C87 :L30 
C120;L12 
C20 ;w35 
cs8 

c65 

C72 

C87 








4.4.3.7 Case Summary for Date/Name Range [T3CSR7 CASE RANGE SUMMARY] 


Purpose of transaction: Print/Display Case Summary Report by 
Injury Date and zZmployee. 


Transaction Description: This transaction is called from a Menu 
option {T3CSR7 CASE RANGE SUMMARY] in the OSHRKS package. 


Type of transaction: Print Selection 
Global Dictionary Reference: ICC( 
Type of Menu Option: Routine (Print) 
Action/Routine Code: DIPT 


Inputs: Print tenplate {CASE RANGE SUMMARY} 
Sort template [T3CSORTS DATE/NAME] 


Output: PRINT OUT SAMPLE 
CASE SUMMARY BY DATE/NAME 
€ase No: Name /SSN/Bdge: /- 
Inj Date/Time: NOT: BP: Shop: SEE: 


Cost Ctr: UPV ¢ LTA Davs: Le Duty: _ 
ONCP File: 3rd Pty Case: FEHB to OWCP: MM/DD/YY ID: 








Retention: This option was created as an example of the type of 
payment information reports that the site manager can create. 


Security/Privacy: Kernel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Can be changed by site manager. 
Error Recovery: Error trap by Kernel “tER routine 
Report Format Requirements: 

OUTPUT FROM WHAT FILE: ICC FILE #1005 

PRINT TEMPLATE: {CASE RANGE SUMMARY) 

HEADING: CASE SUMMARY BY DATE/NAME 


READ ACCESS: 
WRITE ACCESS: 
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WAWHAUWS wd 
oe ee eo ° 


PRINT 


“Case No:" 

CASE SERIAL NUMBER 
“Name/SSN/Bdge:" 
NAME 

" / n 


* SSN 


ee 
BADGE NUMBER 
"Inj Date/Time:" 


» NUMDATE(INJURY/ILLNESS DATE & TIME) 
.« TIME(INJURY/ILLNESS DATE & TIME) 
« "NOI:" 


NATURE OF INJURY CODE 


. “"BR:" 

. BODY PART CODE 
. “Shop:" 

. SHOP 

. "Sit: 

. SHIFT 

. "Cost Ctr:" 


“OWCP File:“ 
OWCP FILE NUMBER 


. "3rd Party Case:" 
- THIRD PARTY CASE 


"FEHB to OWCP:" 


. NUMDATS (DATE TRANSFER FEHB TO OWCP) 
. “ID:" 
. CLAIMS CLERK ID 
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FORMAT 
$1;Cl 


X;L3 


xX 
C30 
cso 
X 
c73 








4.4.3.8 Tickler File Print/Display [T3CSR8 TICKLER] 


Purpose of transaction: Print/Display Case Summary Report by 
Injury Date and Employee. 


Transaction Description: This transaction is called from a Menu 
option [T3CSR&8 TICKLER] in the OSHRKS application package. 


Type of transaction: Print Selection 
Global Dictionary Reference: ICC( 

Type of Menu Option: Routine (Print) 
Action/Routine Code: DIPT 

Inputs: Print template {TICKLER REPORT2) 
Output: PRINT OUT SAMPLE 











TICKLER REPORT MM/DD/YY TIME PAGE # 
CSN: SHOP: 
NAME: SSN: 
DATE OF INJURY: MM/DD/YY 
CURRENT STATUS: DATE COP BEGAN: MM/DD/YY 
TOTAL LWDays: DATE RETURNED TO WORK: 
TOTAL 
COUNT 


Retention: This option was created as an example of the type of 
payment information reports that the site manager can create. 


Secucity/Privacy: Kernel security routines are cailed to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Can be changed by site manager. 
Error Recovery: Error trap Sy Kernel “SER routine 
Report Format Requirements: 

PRINT TEMPLATE: [TICKLER REPOR‘2} 

HEADING: TICALER REPORT 


READ ACCESS: 
ARITE ACCESS: 
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PRINT 


“CSN:" : 
CASE SERIAL NUMB 
“SHOP:" 

AGENCY UNIT 
"NAME: " 

NAME 

"SSN:" 

SSN 

"DATE OF INJURY:" 


. INJURY/ILLNESS DATE & TIME 
. “CURRENT STATUS:" 

. "DATE COP BEGAN:" 

. COP BEGIN DATE 

. "TOTAL LWDays:" 

. LOST WORK DAYS 

. "DATE RETURNED TO WORK:" 

. D/T RETURNED TO WORK 
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FORMAT 


c65 
X (SUPRESS HEADER) 

xX! 

$1;c5 

X;L30 

c35 

x 

c35 


C12 
C35 


x 
c13 
c35 








4.4.3.9 Adjudication Status Report [T3CSR9 ADJUL:CATION STATUS] 
Purpose of transaction: An output template using the VA 
FileMan print capabilities to show the adjudication status of 
individual cases and events. 


Transaction Description: This transaction is called from a Menu 
option [T3CSR9 ADJUDICATION STATUS] in the OSHRKS application package. 


Type of transaction: Print Selection 

Global Dictionary Reference: ICC( 

Type of Menu Option: Routine (Print) 
Action/Routine Code: DIPT 

Inputs: Print template {ADJUDICATION STATUS] 


Output: PRINT OUT SAMPLE 








ADJUDICATION STATUS REPORT MM/DD/YY TIME PAGE # 
NAME: 

SSN: 

CASE . NO: NOI: 

DOI: 

ADJ STATUS DATE ENTERED DATE REMOVED 
Ra a rm RE EEN AIS PEIN RPT SIT ES IRE EIEN I NTE IT LI SENET IE ONE EIEN EE AONE I ITT DEED EE HEN I POET EEO NEN LOOSE IIE SETI SETS 
23 NEED INFORMATION ~- FROM CLAIMANT & MEDIC MM/DD/YY MM /CD/YY 

22 NEED INFORMATION ~ FROM MEDICAL SOURCE MM/DD/YY MM/DD/YY 

24 NEED INFORMATION - FROM EMPLOYER MM/DD/YY MM/DD/YY 
AQ3 CLAIM ACCEPTED BY OWCP - COP AUTHORIZED MM/DD/YY ( PENDING) 


Retention: This option was created as an example of the type of 
payment information reports that the site manager can create. 


Security/Privacy: Kernel security routines are called to verity read, 
write, delete, and laygo (add) access. 


Flexibility: Can be changea by site manager. 
Error Recovery: Error trap by Kernel “*tER routine 
Report Format Requirements: 

PRINT TEMPLATE: {ADJUDICATION STATUS] 

HEADING: ADJUDICATION STATUS REPORT 


READ ACCESS: @ 
WRITE ACCESS: @ 
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PRINT FORMAT 
1. “NAME:" $l 
2. NAME X (SUPRESS HEADER) 
3. "SSN:" c50 
4. SSN x 
S. "CASE NO:" C3 
6. CASE SERIAL NUMBER X;L8 
7. “NOI:" C21 
8. NATURE OF INJURY CODE:NATURE OF INJURY x 
9. "DpOr:" cé60 
10. NUMDATE( INJURY/ILLNESS DATE & ILLNESS) ‘ 
11. “ADJ STATUS" $l 
12. "DATE ENTERED" cs0 
13. "DATE REMOVED" C65 
14. DUP("=",80) X;Cl 
15. ADJUDICATION STATUS (MULTIPLE) , 
A. ADJUDICATION STATUS X;Cl 
B. ADJUDICATION STATUS:STATUS DESCRIPTION X;C5;L40 
C, NUMDATE(DATE ENTERED) x%:C50 
D. NUMDATE(DATE REMOVED) X;C65 
16. DUP( "=", 80) X;Cl 
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4.5 


ICC File Maintenance Functions (T2C6 FILE MAINT]. This option allows 


the module manager to update controlled vocabularies and reference files used 
exclusively by this module. See Appendix C for list of ICC file attributes. 
The transactions for this level are as follows: 


4.5.1 


4.5.2 


OCP Duty Station Agency File — mniter/fdit (TZC6 OWCP AGENCY] 


Purpose of transaction: Allows system manager to enter/edit OWCP 
Duty Station used at the site. 


Transaction Description: This transaction is called from a Menu 
optizn [T2C6 OWCP AGENCY] in the OSHRKS application package. 


Type of transaction: Routine 

Global Dictionary Reference: VA FileMan Data Dictionary “DD(1062 
Type of Menu Option: Routine (ZDIT) 

Action/Routine Code: DIE (See VA FileMan Programmer’s Guide) 

Inputs: DRe".01;9",D%Cel062,DIC(0)e"ACLMQZ" 

Outputs: Data is stored in “INJ(1962, 

Retention: Data can be edited and updated, FileMan file is permanent. 


Security/Privacy: Kernel security coutines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Table file used in module, can be changed by appropriate 
authorization. 


Error Recovery: Error trap by Kernel “tER routine 
Reporting Office for OWCP — Mter/Edit [T2CS OWCP REPT OFFICE] 


Purpose of transaction: Allows system manager to enter/edit OWCP 
Reporting Office used at the site. 


Transaction Description: This transaction is called from a Menu 
opticn [T2C6 OWCP REPT OFFICE] in the OSHRKS application package. 


Type of transaction: Routine 

Global Dictionary Reference: VA FileMan Data Dictionary “DD( i063 
Type of Menu uption: Routine (EDIT) 

Action/Routine Code: DIE (See VA Fileman Programmer’s Guide) 
Inputs: DRe” ,.91;6",DIC#1063,DIC(0)—"AEMLZ* 

Outputs: Data is stored in “INJ(1063, 
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4.5.3 


4.5.4 





Retention: Data can be edited and updated, FileMan file is permanent. 


Security/Privacy: Kernel security routines are called to verify read, 
«cite, delete, and laygo (add) access. 


Flexibility: Table file used in module, can be changed by appropriate 
authorization. 


Error Recovery: Error trap by Kernel “%&2 routine 
Claim Type File — Enter/Edit [T2C6 CLAIM TYPE EDIT] 
Purpose of *ransaction: Allows system manager to enter/edit file. 


Transaction Description: This transaction is called from a Menu 
option (T2C6 CLAIM TYPE EDIT] in the OSHRKS application ite 


‘Type of transaction: Routine 


Global Dictionary Reference: VA FileMan Data Dictionary “DD(1029 
Type of Menu Option: Routine (EDIT) 

Action/Routine Code: DIE (See VA FileMan Programmer’. Guide) 

Inputs :DRe". 01:1" ,DIC#1029,DIC(0)="AELMZ" 

Outputs: Data is stored in “1NJ(1029, 

Retention: Data can be edited and updated, FileMan file is permanent. 


Security/Privacy: Kernel security routines are called to verify read, 


write, delete, and laygo (add) access. 


Flexibility: Table file used in module, can be changed by appropriate 
autherizaticn. 


Errot Recovery: Error trap by Kernel “%ER routine 
Nature of Injury Pile — mter/Edit (T2C6 NOI EDIT} 
Purpose of transaction: Allows system manager to enter/edit file. 


Transaction Description: This transaction is called from a Menu 
option [T2C6 NOI EDIT] in the OSHRKS application package. 


Type of transaction: Routine 
Global Dictionary Reference: VA FileMan Datla Dictionary “DD(1017 
Type of Menu Option: Routine (EDIT) 


Action/Routine Code: DIE (See VA FileMan Programmer’s Guide) 
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A:5.5 


4.5.6 


Inputs: DR=".01;1",DIC#1017,DIC(0)]"AELMZ" 
Outputs: Data is stored in ~INJ(1017, 
Retention: Data can be edited and updated, FileMan file is permanent. 


Security/Pri-vacy: Kernel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Table file used in module, can be changed by appropriate 
authorization. 


Error Recovery: Error trap by Kernel “$ER routine | 
Body Part Pile — mter/®dit [T2C6 BODY PART EDIT) 
Purpoge of transaction: Allows system manager to enter/edit file. 


Transaction Description: This transaction is called from a Menu 
option (T2C6 BCOY PART EDIT) in the OSHRKS application package. 


Type of transaction: Routine 

Global Dictionary Reference: VA FileMan Data Dictionary °r(1016 
Type of Menu Option: Routine (EDIT) 

Action/Routine Code: DIE (See VA FileMan Programmer’s Gui-le) 

Inputs: DR=”.01;1",D%C#1018 ,OIC(0)="AEMLZ* 

Outputs: Data is stored in “INJ(1018, 

Retention: Data can be edited and updated, FileMan file is permanent. 


Security/Privacy: Kernel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Table file used in module, can be changed by appropriate 
authorization. 


Error Recovery: Error trap by Kernel “%ER routine 
Accident/Injury Type Pile — mMmter/@dit [T2C6 ACCIDENT FILE EDIT) 
Purpose of transaction: Allows system manager to enter/edit file. 


Transaction Description: This transaction is called from a Menu 
option (T2C6 ACCIDENT FILE EDIT] in the OSHRKS application package. 


Type of transaction: Routine 


Global Dictionary Reference: VA FileMan Data Dictionary “DD(1025 
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4.5.7 


Type of Menu Option: Routine (EDIT) 


Action/Routine Code: DIE (See VA FileMan Programmer’s Guide) 


‘Inputs: DRe”.01;1", DIC#1025,DIC(0)="AELMZ" 


Outputs: Data is stored in “INJ(1025, 
Retention: Data can be edited and updated, FileMan file is permanent. 


Security/Privacy: Kernel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Table file used in module, can be changed by appropriate 
authorization. 


Error Recovery: Error trap by Kernel “%ER routine 
Agent of Accident Pile — Mter/®dit (T2C6 AGENT ACCIDENT EDIT) 
Purpose of transaction: Allows syscem manager to enter/edit file. 


Transaction Description: This transaction is called from a Menu 
option [T2C6 AGENT ACCIDENT EDIT} in the OSHRKS application package. 


Type of transaction: Poutine 

Global Dictionary Reference: YA FileMan Data Dictionary “DD(1068 
Type of Menu Option: Routine (EDIT) 

Action/Routine Code: DIE (See VA FileMan Programmer’s Guide) 

Inputs: DRe*.01;1",DIC=1068,DIC(0)="AELMZ* 

Outputs: Data is stored in *INJ(1068, 

Retention: Data can be edited and updated, FileMan file is permanent. 


Security/Privacy: Kernel security routines are called to verify read, 
write, delete, and laygo_ (add) access. 


Flexibility: Table file used in nodule, can be anes by appropriate 
authorization. 


Erroc Recovery: Error trap by Kernel “%ER routine 
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4.5.8 


4.5.5 


Cause of Injury Pile — mnter/@dit [TZCf CAUSE INJ EDIT} 
Purpose of transaction: Allows system manager to enter/edit file. 


Transaction Description: This transaction is called from a Menu 
option [T2C6 CAUSE INJ EDIT) in the OSERKS application package. 


Type of transaction: Routine 

Global Dictionary Reference: VA FileMan Data Dictionary “DD(1026 
Type of Menu Option: Routine (EDIT) 

Action/zoutine Code: DIE (See VA FileMan Programmer’s Guide) 

Inputs: DRe",01;1",DIC#1026,DIC(0)="AELMZ" 

Outputs: Data ig stored in °“INJ(1026, 

Retention: Data can he edited and updated, FileMan file is permanent. 


Security/Privacy: Keriiel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Tablc file used in module, can be changed by appropriate 
authorization. 


Error Recovery: Error trap by Kernel “%ER routine 
Source of Injury Pile — mMmter/¥dit (T2C6 SOURCE INJURY EDIT) 
Purpose of transaction: Allows system manager to entec/edit file. 


Transaction Description: This transaction is called from a Menu 
option [T2C6 SOURCE INJURY EDIT] in the OSHRKS application package. 


Type of transaction: Routine 

Global Dictionary Reference: VA FileMan fata Dictionary “DD(1027 
Type of Menu Option: Routine (EDIT) 

Action/Routing Code: DIE (See VA FileMan Programmer's Guide) 

Inputs: Dae".01;1",DIC#1027, DIC(0)="AELAZ* 

Outputs: Data is stored in “INJ(1027, 

Retention: Data can be edited and updated, FileMan file is permanent. 


Secuvity/Privacy: Kernel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Table file used in module, can be changed by appropriate 
authorization. 
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4.5.10 


4.5.11 


Error Recovery: Error trap by Kernel “tER routine 
Adjudication Status File — Enter/Edit [T2C6 ADJUD STATUS EDIT] 


Purpose of transaction: Allows system manager to enter/edit file. 


. Transaction Description: This transaction is called from a Menu 


option [T2C6 ADJUD STATUS EDIT] in the OSHPKS application package. 
Type of transaction: Routine 

Global Dictionary Reference: VA FileMan Data Dictionary “DbD(1061 
Type of Menu Option: Routine (EDIT) 

Action/Routine Code: DIE (See VA FileMan Programmer's Guide} 

Inputs: DRe",01;1",DIC#=1061,DIC(0)="AELMZ" 

Outputs: Data is stored in “INJ(1061, 

Retention: Data can be edited and updated, FileMan file is permanent. 


Security/Privacy: Kernel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Table file used in module, can be changed by appropriate 
authorization. 


Error Recovery: Ercor trap by Kernel “SER routine 
OSH Injury Codes Pile —- Enter/Edit (T2C6 OSH INJURY CODES EDIT) 
Purpose of transaction: Allows system manager to entet/edit file.’ 


Transaction Description: This transaction is called from a Menu 
option [T2C6 OSH INJURY CODES EDIT] in the OSHRKS application package. 


Type of transaction: Routine 


Global Dictionary Reference: VA Fileman Data Dictionary “DD(1057 


Type of Menu Option: Routine (EDIT) 

Action/Routine Code: DIE (See VA FileMan Programmer's Guide) — 
Inputs: DRe".01;1",DIC#1C57, DIC(0)="AELMZ" 

Outputs: Data is stored in *INJ(1057, 

Retention: Cata can be edited and updated, FileMan file is permanent. 


Security/Privacy: Kernel security routines are called to verify read, 
write, delete, and laygo (add) access. 
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4.5.12 


Flexibility: Table file used in module, can be changed by appropriate 
authorization. 


Error Recovery: Error trap by Kernel “%ER routine 
Pay Status File — Enter/Edit (T2C6 PAY STATUS EDIT] 
Purpose of transaction: Allows system manager to enter/edit file. 


Transaction Description: ‘his transaction is called from a Menu 
option {T2C6 PAY STATUS EDIT] in the OSHRKS application package. 


Type of transaction: Routine 

Global Dictionary Reference: VA FileMan Data Dictionary “DD(1093 
Type of Menu Option: Routine (EDIT) 

Action/Routine Code: DIE (See VA FileMan Programmer's Guide) 

Inputs: DR=".01;1",DIC=1093,DIC(0)="AELMZ” 

Outputs: Data is stored in °INJ(1093, 

Retention: Data can be ecited and updated, FileMan file is permanent. 


Security/Privacy: Kernel security routines are called to verify read, 
write, delete, and laygo (add) access. 


Flexibility: Table file used in module, can be changed by appropriate 
authorization. 


Error Recovery: Error trap by Kernel “%ER routine 
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APPENDIX A 
FORM DOCUMENTATION FOR CLAIMS FORMS 


FORM M/FORM 
LABEL NAME OF FORM ID 4 
CA~1 Federal Employee’s Notice of Traumatic Injury and Claim 613 

for Continuation of Pay/Compensation 
CA-2 Notice of Occupational Disease and Claim for Compensation 644 
CA-2A Notice of Employee’s Recurrence of Disability and Claim 651 
for Pay/Compensation 
CA-3 Report of Termination of Disability and/or Payment 657 
CA-5 Claim for Compensation by Widow, and/or Children 672 
CA-5B Claim for Compensation by Parents, Brothers, Sisters, 688 
Grandparents, or Grandchildren 
CA-6 Official Supercior’s Report of Employee's Death 658 
CA-7 Claim for Compensation on Account of Traumatic Injury 671 
or Occupational Disease 
CA--8 Claim for Continuing Compensation on Account of Disability 662 
CA-~16 Authorization for Examination and/or Treatment 687 
CA-17 Duty Status Report 689 
CA-20 Attending Physician’s Report 708 
CA-z0A Attending Physician’s Supplemental Report 711 

















CA-1 ENPLOYEE’S NOTICE OF TRAUMATIC INJURY CLAIM 





EMPLOYEE DATA 

1. NAME OF EMPLOYEE 

2. SOCIAL SECURITY OE ae ee 3. ae OF SIRT 

4. SEX 

6. GRADE AS OF DATE OF ie ee STEP 

7.  EMPLOYEE’S HOME MAILING ADDRESS 
CITY. STATE alP COD 
OVERS: 

8. DEPENDENTS ; : 


DESCRIPTION OF INJURY 


9. 

10. 
11, 
12. 
13. 


14, 


PLACE WHERE INJURY OCCURRED 


DATE INJURY OCCURRED , 





CAUSE OF INJURY 
CAUSE OF INJURY EOURRTTON Rese stars tor G.USE OF INJURY* 
NATURE OF INJURY A. OCCUPATION CODE 
BODY PART ; Roe oe pee ae TYPE CODE 
C. SOURCE CODE 





OWCP USE-NOT 6» 
*Press <Return> for NATURE OF INJURY/ILLNESS* 


WITNESS 


“16. 


Press <Retutn> for WITNESS INFORMATION 


SUPERVISOR'S REPORT 


17. 


18, 


REPORTING OFFICE 
meu emeensierntsnctarecehiomitwecnttvemityrhinnteenetnntnanaatinanieneenth meinen ditintiehleprniatiibingalatanteindein 


ADDRESS 

CITY Tee ee SER eee 
OWCP AGENCY COBEN OSHA SITE CODE ES 
EMPLOYEE’S DUTY STATION ~~ ne A 
ADDRESS Re 


*Press <Return> for EXPLAIN TasuRy® a aaa aan 
EMPLOYEE CAUSED INJURY? 


*Press <Return> for WILLFUL FUL MISCONDUCT EXPLANATION® 


WAS INJURY CAUSED BY THIRD PARTY? 
“remteneenarnaae tronettinitmennrtnsaran cetera atic techghitemetininata 














CA-1 SUPERVISOR'S REPORT CON’T 


30. Press <Return> for NAME/ADDRESS THIRD PARTY 
31. NAME OF PHYSICIAN 1ST PROVIDING MEDICAL 
ADDRESS 
CITY STATE wlP CODE 
32. FIRST DATE MEDICAL CARE RECEIVED 
33. EMPLOYEE DISABLED FROM WORK? 
34. FACTS AGREE WITH EMPLOYEE/WITNESS? 
*Press <Return> for EXPLAIN NOT AGREE* 
35. DOES EMPLOYING AGENCY CONTROVERT COP? 
*Press <Returcn> for CONTROVERSION ee 
36. PAY RATE WHEN WORK STOPPED 
37. SUPERVISOR’S STATEMENT 
NAME OF SUPERVISOR 
SUPERVISOR’S TITLE OFFICE Said 
38. FILING INSTRUCTIONS” 


<p neerpntttennent ag aer i ppenenennsnhsstpaSPINUtaereseenNenRNisarby he SE 


























WITNESS I TION 


WITNESS NAME 
STREET ADDRESS 
*Press <Return> Tor WINES SIRERENT* 





THIRD PARTY INFORMATION 











*Word Processing Window will appear. 





PYIORE Ori (9613) 
TSEC NI TIT TIEN IT TDI STEIN EIDE TES EG TE IDOE ETSI EEE ELS LT LITE T LV ICN INCE LLIN ETERS 


I. PRE-AM CCE 


n filen, rptfile, filing s:’$d(nocamp) file “pte(iform,99) 
+8:Sd(nooamp) filen=“ptg(°03, ifomm,99) s News), rptfileel, idexist=2 k ident 
S Ue"*" i /Sd(DT) s XxGad(SH),2OIs"" d “Wr s Dey k X,Y 
s 1Z(0)="I" 

a sec*fimfon 





TI. WINDS 


2 NYE POINTER 1004’ EMPLOY( 
M/FORM FID # 115 


- 17 EXIERMAL CEFALLT: NAVE 
18 INTERNAL DEFALLT: =NAMETIR 
20 CONWERSICN COLE: cams(carme™™ 3", "(Sa CEMPLOY( cm, 0) #10) som, 1: Spf “EMPLCY(an,0), 
“e,1)) 
28 STORED: $p(“10C(DA,0),""",3) 
32 POST FILING Cle: di setirck” 
4% MOST DW: 1 Dlrew) 83/91 ("C* new, xd)) rece"'Claim ig not logged!" ye25,crme"” 
_ 5A EX: “ICK("C") 
55 UWOCKLP NTE: 
115°30°Sp( “IC Lids, 0),"7",3) 
16°23°$o( “ICO lids, 0) ,"°",2) 
20°20° Sp “IOC( Licts,100) ,""",2) 


3 SN FREE TEXY KsSL{X)>91(SL(X) <9)! (X2QN) X 


M/FCEM FID $ 2 


28 SIORED: $p( “roc(m,0),°"", 4) 
44 POST ID: 5 Meom K:SL(X)>91(SL(X)<9) 1" (X20N) X s:/Sa(02) ae" ssanl""" ane 


6 BIRDEXIE DATE S$ W'S" D “WTS XY KY X 
4/ECRM FID # 3 


20 COWERSION COLE: 


s cae %X Spi "JAN. FEB.MAR.APR.MAY.JUN. JUL.AUG. SEP.CCT. 
NOV, Paar : 

+Se(am,4,5))_" * ss+Se(am,6,7) XK Sa(om,6,7) ", " § XaK (1700+Se(cm,1,3)) 
s:9p(an,".",2)"="™ %K" at * Se(an "000",9,10) *:" Se(an "000",11,12) 

s Soy, mye ~~ ite —_ — 

5:X="(1700)" xe"" s anxX 


2B STORED: =$p(“TOC(TA,0),"°°",7) 
4 EX ser OF F:FEMALE 
M:MALE 


A-5 











U: UNRROAN 
M/FORM FID # 4 
20 CONWERSION COLE: = am6p(Sp(";F:FEMALE;M:MALE:U:UNAXOAN;",";"_cm_":",2),";",1) 
someSo(an, ":",1) 
28 STORED: 9$p(“1cc(oA,91,""",5) 
10 HOME FECNE NLMEER FREE TEXT K:SL(X)>15!(SUAX)<1) X 
M/FCRM FID #5 


28 STORED: 9 $p(“10C(DA,1),"°", 5) 
44 FOST ID: s Yee K:SL(X)>15!(SL(X)<L) X s:"SdiX) am"* s:an{"" am 


18 BAY GALE FREE TFXT K:SL(X)>3!(SL{(X)<2) X 
M/FCRM FID # 6 


2B STORED: Spi “Toc(nA,3),""", 5) 
44 POST ID: s Yeon K:SL(X)>3!(SL(X)<2) X s2’Sd(X) ame"" s:anf"*" ane" 


19 BAY STEP FREE TEXT K:SL(X)>2! (SL{X)<1) X 
M/FCRM FID #7 


28 STORED: 9p “TCC(DA,3),"*",6) 
44 FOST ID: $ Neem K:SL(X)>2!(SLX)L) X $2°Sd(X) came ssan("*" cane” 


7 STREET ACORESS FREE TEXT R:SL(X)>641 (SLX) <1) 
M/FCEM FID # 8 


28 SRD: Sol “TOC( OR, 1), 7", 2) 
44 POET ID: s Xecra K:SL(X)>641(SL(X)<L) X s2/Sd(X) ame"" s:an("°" cme" 


8 Cy FREE TEXT RsSL(X)>23U(GLAX) <1)!" (X2 AP) X 
M/FCEM FID # 9 
2B STORED: 9p “ICC(EA,1),"*",2) 
ae hes $ Mecen K:SL(X)>23! (SL(X)<L) "(XP -AP) X s:/Sd(X) ane’ s:an 

9 SIRE FOINIER 1003’ oz(1003, 
M/FCRM FID # 10 
20 CONVERSIEN COE: § aSe(crme"*:"*, "(Sd “OES 1003, can, 0) 1410) am, 13S “DIZ 1003,cmn,0) 
ig siren: 9p “TCC(DA,1),"°",3) 

10.3 ZIP CLE FREE TEXT K:SL(X)>108(SLAX)<S) 

M/FCEM FID # Li 


28 SICFED: $p( “ICC(DA,1),"°",6) 











44 POST ID: g Mec K:S2(X)>101 (SLAK)<S) XK 6:°Sd(X) ane" s:an"*" ane" 
9.5 OVERSEAS ADDRESS FREE TEXT RsSL(X)>641 (SL(X) 2) X 
M/FCEM FID # 89 


28 SICFED: =i “ICC(m,1),""",4) 
44 FOST ID: ss Mean K:SL{X)>641(SU(X)<1) X 63’Sd(X) ame" g:anf"°* one"" 


300 DEPENCENIS ST ao axes S:S05f£ 
C:CHILOREN 
O:OLER - 
SC:SFOUSE AND CHILDREN 
SO:SPCLEE AND CIHER 
SOO:SRLEE, CHILDREN, & OCIHER 
CO:CHILOREN AND CIHER 
N:NCNE 


PYPORM FID # 120 

20 CONWVERSICN CODE: «8 oeOp($("S: S805; C: CHILDREN; O-OTHER; SC: SPCLSE. AND CHILCFEN; 
SO:SSOLEE AND OTHER: SCO:SFCLSE, CHILOREN, & OTHER;CO:CHILOREN AND OLR; 

N:tQhe; :*, "3 “ an R 3” 7a). bad Sad 1) arép(aa,":", 1) 

28 smoReD:. Sx™ICLirA, 00), """,1) 


CATIA ELZMENT DATA ‘YPE POINTER GLOBAL REFEFENCE CR INEUT VERIFICATICN 
U4 SPECIFIC LOCNTICN fREE TEXT K:SL(K)>40! (SLX) <1) X 
M/FCEM FID # 15 


2B STORED: $p{ “ICC(DA, 100),"°",15) 
44 POST ID: 8 Mean K:SL{X)401(S1X)<1) % 62/S4(X) came" san" che 


1 INOURY/TLUESS CAE & TI ONIE S Wih"El" D “WT S WY K:¥cl X I SO(X) K:SP(X,".",1) OF X 
M/CRM FID # 16 


20 CONWERSICN COLE: 

5 %"(" 8:4Se(cm,4,5) %eXK_ Spi “JAN. FEB MAR.APR.MAY. JUN, JUL.AUG, SEP .OCT.NOV. DED" ," 
sale 4,5)) °* s:4$e(c.0,6, 7) WX Se(cm,6,7) ", " & XaX_(1700+Se(cm,1,3)) 
s:Sp(an,*.*,2)'="" eX" at " Sela 1 "000",9, 10). ":" Se(am "000",11,12) 6 XaX_")" 

&:4="(1700)" =" 5 comeX 


28 STORED: $p(“1CC(0A,0),"" *,2) 

32 POST FILING CE: i setinck”fmémm 

54 INEX: “I0C("D") 

5S LOOP NITE: 
16°23°S{ “1GC{ Lids ,0),""",2) 
115°30°Sp “100 L.ds, 0) ,""",3) 
20°20°Spi “ICL Lids 100) ,"**,2) 


Av? 














202 DATE CF CLAIM OATE S Wle"E" D “MT S MY KY) X 
M/PCRM FID # 17 


20 COWERSICN CIE: 
S Xe"(" §:+Se(am, 4,5) aX C Sp( "IAN. FEB.MAR.APRMAY.OUN. JUL ALG. SEP.OCT NOV. OE”, " 
+Se(am,4,5)) " " 8:4$e(cm,6,7) %K Se(an,6,7) ", " 8 %K_(1700+Se(ca,1,3)) 
8:So(an,".",2)'a™ YeX_" at " Satan *000",9. 10)" "2" Se(am_"000",11,12) s K_")" 
8: Ye" (1700)" ee" §s ox 


28 STORED: 9p “10C(DA,200),"7",3) 
15 OOLERTIKN FOINIER 1001’ 1z(1001, 
MACEM FID # 18 
20 CWERSILN COLE: _ camGe(came"":"", “($d “DZ 1001 cm, 0) 1410) sem: $p4 “HEZ(1001 ,cm,0) ,"°",23) 
28 STORED: =$p( “ICC (0K, 3),"7", 1) 
32 POST FILING GTE: di setinck”fmémn 
120 CAUSE CP INUURY FOINIFR 1026’ INT( 1006, 
M/TCEM FID # 19 


20 COWERSICN COLE: $5 aieGe(came"":"", ” (Sdi( “IND (1026,cn,0) ) #10) scm, 1: Sp “INJ(1026,am,0),"°",2)) | 
28 STORED: $p( “IGC(DA,110),""",5) 


120.1 CALBE CF INOURY EXPLAIMATION 
M/PCRM FID # 114 


2 STED: rovere 
29 PREFIFLD OIE: 
8:/Sd(lvl) lvleQ i $d(chi(0))>9 s adhfileel d filecneptrfitel k sthfile 
4 Sd( file), file,New'=d) s filingsSs(’Sd( filing) :lvl+l,lvl’ <filing:lvl+l,1: filing) 
+d upontr”fméon s News), chi(0)="" k file 
$ lvlelvl+l 
i lvl s DA(O)=OR, D0 f ielvl:-1:1 s:Sa(DAli-1)) OAL etA(i-1) 
k DAO) s Ge" De" 


30 FOSIFIELD COLE: 
i lvl s OA(O}MCA £ ieislslvl s:Sd(DM(i)) ONi-1)CA(i) 
S:lvl DeeQA(O) k DA(1v1),OK(0),O1 s lvlelvl-1 


16 CALLS M/PORM: CAUSE OF INOURY (#641) 


MFCM: CAUBE OF INKY (#641) 








1. FRe-fOR4 CCE 


n filen, ptfile,New s:/Sd(nocamp) filene"pte( i fon, 99) 
+8:Sd(nocamp) filene’ptg(903, ifom.99) s New0, rptfile=1 
s Un"™"" i ‘Sd(DI) s XxGacd(SH), Wie d “WE s DIBY k X,Y 





d sec*fmfrm 
d@ crirck’ fn~oa 


II. WINGS 
SE CINDY ec 
DATA ELEMENT DAIA TYPE POINTER GLOBAL REFERENCE CR INEUT VERIFICATION | 
01 CAEE OF INUY EXPLA WORD PROCESSING 


M/PCRM FID # 1 
28 STORED: $p(“I0C(DA(1),111,08,0),"",1) 





TTI. FCST-AORM COLE 
i Sd( file), file s filinge( ‘Sd( filing) :1vl idea 1vl,1: filing) 


+d shuttflefinfon d nodeO” fnfon 
icici ca cia a 


101 NATURE OF INOURY COLE POINIFR 1017’ 01017, 
MPO FID # 20 : 
20 CONVERSIGN COLE: 35 amdetane™™:"", § (Si “INO(2017,cn, 0) )#10) rom, 1:$p{ “IN)(1017,ar,0),7°",2)) 
28 STORED: $p4 “I0C(DA,100),"7",2) 
32 POST FILING COE: di setinck fméon _ 
54 INEX: “*I0C("E") 
55 LOOALP NOE: 
20° 20° Sex “TCC Licks 100) ,""*", 2) 
115°30°$p4 “100 Lids 0) ,"°", 3) 
15.5 COOLEATION COoe FREE Tex K:$L(X)>6! (SL(X)<5) X 
MACHM FID # 71 
$p( “1aC( DA, 3) ,"°*,2) 
Pa) PREFTFID COOE: =f Sd(chi(18)) s PLGP(chi(18),cb,1) s:7L’="* cbod (71 GRY “DN 100, FL, 0),U,1) - 
44 FOGT ID: Mecan R:S2(X)>61($L(X)<5) X 8:’Sd(X) ame” s:anl"*" ae” 
100 BODY PRT CUE FOINIER 1018’ = 1ND(1018, 
M/AACRA FID ¢ 21 


20 CONERSIQN COE: § cGa(cme"*:"",* (Sd INT( 1018, c0a,0) 810) scr: $p(71N(1018,cn,0),"°" 2) 
28 STORED: 9p(“100(OA,100),**",1) 


12.5 TE OE PRE TEXE «= K:SLAX)DS1(SL{XICL) X 








4/PORM FID # 72 


28 STORED: =$¢( “ICC(DA,100),"°",17) 
29 PREFIELD COLE: NEW X S %GP(“IOC(DA,100),U,13) S:X’—"™* cht (72)@GRX “IND(1025,X,0),U,1) KX 
44 POST ID: ss dean K:SL(X)>51(SL{X)<1) X 8:’$d(X) om" s:amn{""" an" 


101.1 NATURE OF TNOURY EXPLANA 
M/FCRM FID # 80 


28 STORED: rowtere 
29 PREFIFLD CLE: 
8:'Sd(lvl) lvl=O i $d(chi(0))>9 6 shhfileel d fileoeptrfilel k shhfile 
i Sd( file), file,New=0 s filingsde( ’Sd( filing) :lvl+l, lvl’ <filing:lvl+1,1: filing) 
+d upmntr*fméon s Newed),chi(0)="" k file 
§ lvlelvi+l 


i lvl s DA(O)OA, D080 f ielvl:-1:1 s:Sd(DA(i-1)) ON iA(i-1) 


30 FOSTIFTELD CCLE: 
i lvl s CAO}O8 f iel:i:lvl s:sd(DA(i)) DAi-1)<CA(i) 
S:lvl DAeQA(0) k DA(1v1),OA(0),O1 s lvlelvl-1 


16 CALLS #/FORM: NAQURE OP INOURY/ILLNESS (#642) 


M/PORM: NATURE OF INOURY/TLLNESS (#642) 


GALEN rey exe Raet RONEN 2 ERIE CTE AGS USE AE TEPER TT NTE OIE EER PUT,  BIET I EEE PSE PT IIE LODE BEINN IE LOOT GE LEE GEIL ARES PILE SER LEE ILE DELLE ELEY 


1. PRE-fCRM COE 
Nn filen, ptfile,New s:'Sd(nocomp) filene ptc( i form, 99) 
+6:Sd(nocomp) filen="ptgi 903, i fom, 99) $ Newd, potfiles] 
Ss Ue""" i 'SH(DT) $s MeSard( SH), WOm** d “Ors Dley k X,Y 

d sec” fm€oa 

d crindx” Sn€oa 


1. WNOOS 


A INES indo —— 
CRIA ELEMENT DAOA TPE POINIER GLCANL, FEFERONCE OR INFUT VERIFICATION 
.O1 NATURE CF INOURY EXPLANA HOD PROCESSING 
MV/FORM FID # 1 
28 STORED: = Sp( “LCC DA( 1), 101,00,C),"",1) 


me ema te» an es semen 








IIT. FOST-FCRM OLE 


i Sd file), file s filingeGa( 'Sd( filing): lvl, lvb filing: 1vl,1: filing) 
+d shutfle” intr d noded’ ffm 


AAAS a GENEL HP EASE PL RCE SST ETE TI ECE TL IE STE TTT IESE MTD TEE TEGO NES EDIT IEE INE BEES TES EO LTE LEED EDEL DELO TELIA 


A-10 








126.5 SOURCE Cone FREE Tex? K:SU(X)>61 (SL{X)<1) X 
M/FORM FID # 73 
28 STORED: Spi “ICC{TA, 120), "7",9) 
29 PREJIELD COE: NEWXS MGP( “ICC(DA,120),U,9) Sextus Chai (73 GP “IND(1027,X,0),U,1) KX 
44 POST ID: § Neom K:$L(X)96! (SL(X)CL) X 8:°SA(X) ame" ssamf"*" oe 
101.2 CACP USE-NOI CLE FREE TEX = K:SL(X)>51(SL(X)<L) X 
M/PORM FID # 74 


2 SICH: $p( “TOC( DA, 100) ,**", 18) 
29 PREFIELD COE: NW xs ¥eSP( “TOCA, 100) ,U,2) $:X’a"™ Chil (74 mex “100 1017,X,0) ,U,1) KX 
44 POST ID: s Xam K:SL{X)>52 (SLX) <1) X 8:'SA(X) am"* gayi "** one 
301 SICK/ANNUAL LEAVE CLAIM SET OF COLES COP:CONTINUATICN OF FAY AND CD 
SVA:SICK ANDVOR ANNLAL LEAVE 


M/PCORM FID # 121 


20 COWERSICN come: & cimSp( Sp" ;COP:CONTINUATICN OF BAY AND COMEPNEATICN 
CONTINUES BEYOND 45 DAYS;S/A:SICK ANDAR ANAL LEME" ," 5" cm 2,2), 75" ,1 
28 STORED: 9p( “2001 TA, 00), """,2) 


iP orsmarerry 
) ,Cormiom, "2", 1) 





CAGR ELEMeNr CRIA TYEE FOINIER GLOBAL REFERENCE OR INEU? VERIFICNTICN 
SO WIINESS NAME 
M/PCIM FID $ 91 
23 SUTeD: rovhere 
29 PREFIFLD Core: 
&:'°A(lvl) lvled { Sd(abi(0))>9 5 athfilel d flee’ k shhfile 


1 Sdi file), file,Nw ad § filingsse( ’Sd( filing) siviel, lvl! 
+d upcrtr*finfrm gg New), chi (O}m"" k file 
8 lvlelvl+] 
i lvl 5 DA(O)CA, COCA £ imlvl:-L:1 s:$d(DOAi-1)) TAL OY i~1) 
30 POSIFIFID Core: ; 
. lvl s ON O)eeA £ iel:]:lyi $:$d(DA(i)) DAC i~] etali) 
S:lvl OOK) k DA(iv1),OA(0),01 s lvlelvi-} 


Avl+l,J:f1ling) 


16 CALLS M/ACRM: WITNESS INFOR@CTON (4602) 


MFCR: WITNESS INFCRARTION (#602) 
ins 


1. PREM Coe 


n filen, rpefile,New 8:’Sd(nooomp) fLlene“peet i form, 99) 
+6:5d(nocmp) filane"ptq(903, iform,99) 5 News0, rptfi lee) 


A-t} 











§ Un"*" 4 *Sd(DT) 8 MeGad(SH), We" d “Wr s Diwy k X,Y 
@ sec’ fmtrm 
d crinkk*fmfma 


TI. WINDS 


OXIA ELEMENT DATA TYPE FOINIER GLOBAL REFERENCE OR INPUT VERIFICATION 
-01 WIINESS NAME FREE TEXT R:SL(X)>251(SL(X)<3) X 
M/FORM FID # 6 


28 STORED: Spi “ICC(DA(1),4,D4,0),"*",1) 
44 POST ID: 8 ecm K:9L(X)>25!(SL(X)<3) X 82/Sa(X) cme g:anf""" ane" 


1 SIREET ACCRESS FREE TEXT K:SL(X)>30!(Si(X)<1) X 
M/7CRM FID # 2 


28 sToFep: 9 ‘-4 “I0C(DA(1),4,00,0),"°",2) 
44 POST ID: & Mean K:SL(X)>30!(SL(X)<1) X s:’Sa(X) ane"" s:an("*" am” 


2 Cy FRRE TEXT K:SUL{X)>201 (SL(X)<1) X 
M/FORM FID # 3 


23 STORED: Sof “ICC(DA(1),4,D8,0),"°",3) 
44 POST ID: 5 Mme K:SL(X)>201(SL(X)<L) X s:°Sd(X) aae"* s:an{"*" an" 


3 STNIE POINIEF: 1003’ 012(1003, 
M/PCRM FID # 4 


20 COWERSICN COE: «8 anGa(ane"*:"", (Sd DTZ( 1003, ca, 0) )#10) sem, 1:9p( “DZ 1003,cmn, 0) ,"7",1)) 
28 STORED: Sof “I0C(DA(1),4,24,0),"*",4) 


4 2IP CLE FRFE, TEXT R:SL{X)>102 (SAX) <S) X 
M/PCHM FID # 5 


28 STORED: $p( “IOC(DA(1),4,04,0),"°",5) 
44 POST 1D: = s Mecm K:SU{X)>101(SU(X)<5) X s3/SdiX) ae” ssont"*" ane" 


6 WIINESS SIMIEPENT 
MACHR FID # 7 
28 SICFED: notere 
2o PREFTPLD (TIE: 


8:'Sa(1lv]) lvleQ i Sd(chi(0))>9 s shhfileel d filere*ptrfilel k sdhfile 
i Sdi file), file s filingsa(’Sd( filing):lvlel, lvl’ <filing:lvi+1,1:filing) 


A=-12 








4d nodeO*finfom 5 New), chi(0)="" k file 

s lvl=lvl+1 

i lvl 5 DA(O}=DR,D1lefA £ ielvl:-1:1 s:$d(DA(i-1)) DA(i OA i-1) 
30 RKOSIPLFID CIE: 

i lvl s DA(O)=OAR £ ielslslvl s:$d(DA(i)) DA(i-1)=OR(i) 

s:lvl D6eGA(0) k DA(1V1),DA(0),02 s lvlelvl-1 


16 CALLS M/FORM: WIINESS SIMIEMENT (#722) 
M/PORM: WIINESS SIRIEMENT (3722) 
mA em ee wr NO EE EI OES IT TE TIS LTE ITE DL IIE ETE EE AT EEE ELE TES SLL E NELLIS IED ELI IET LIDS IEEE TET EE EE ADEE EES 
I. PRE-FORM COLE 
n filen, rptfle,New s:/Sd(nooomp) filen="pte( i form, 99) 
+6:Sd(noamp) filen="ptg(903,ifoun,99) s Newd, rptfile=] 
Ss Un"*" i 'Se/DT} 8 XeGzd( SH), WOTe”"" d “WT & Diky k X,Y 
a sec” fimérm 
di crindk* fnfon 
TI. WINS 
=z 
ORTA ELEMENT CAMA TYPE POINTER GLOBAL REFERENCE CR INEUT VERTFICATICN 
-O1 WINESS SIRISMENT WORO PROCESSING 
M/FCEM FID ¢ 1 
28 STORED: $p(“IQC(DA(2),4,LA(1),1,08,0),"",1) 





TI. ROMCM CIF 


i $d(file), file s EiLiepget “Sa filing): Ih _Wviotilire: Il, 1: £iling) 
4d shuffle“fintom d node" fino 


ee ESPRESSO TT SEE TED CTO ES ETS TO IOS IE OC EIST ELEN SA ET OIS NE IAI TON BCS OER NEE ANE SL IER EOE 








TI. POST-ACRM OTe 
i Sd( file), file s filingeée( "$d{ filing) :1v1, lvl> filing: lvi,1:EiLing) 
+d nodkO" finfna 





14 REPORTING CFFICE FOINIER 1063’ INJ(1053, 


A-13 











14.01 FO ADDRESS 


14.02 FO CITy 


14.03 FO SINE 


14.04 FO 2 CLE 


M/FCRM FID § 99 


20 CONVERSION CODE: s améGe(ane”":"", "(Sa “INI(1063,can, 0) #10) sam, 1 :Sp( “INI(1063,am,0),"°",1)) 
2B SICFED: $= $p( “10C(mH,10),""",1) 


FREE TEXT K:$L(X)>54! (SL(X)<1) X 
M/FCEM FID # 100 


28 STORED: $9 9p( “ICC(TA, 10) ,"°",2) 
44 FOST ID: 5 eam K:SL(X)>70!(SL(X)<1) X s:’Sda(X) ane" s:onf"*" ame" 


FREE: TEXT K:SL(X)>20!1(QU4X)<1) X 
M/PCRM FID # 101 


28 STCRED: $p(“10C(DA,10),"°", 3) 
44 FOST ID: s Neem K:SL(X)>20!(SL(X)<1) X 8:’Sd(X) am" s:an("°" ame" 


POINIER 1003’ D1z(1003, 
M/FORM FID # 102 


20 COWERSICN CODE: «5 amts(ame"":"", "(Sd “DTZ(1003,can, 0) ) #10) seam, 1: $p¢ “TZ 1003,am,0),"*",1)) 
28 STORED: $(“I0C(I,10),"*", 4) 


FREE TexT R:SL(X)>101 (SLAX)<S) X 
M/FCRM FID # 103 


28 STORED: =$o( “10C(K, 10) ,"°", 5) 
44 POST ID: 5s Meum K:SL(X)>101(SUAX)<5) X s:’Sd(X) ane"” s:an("°" an"” 


13.1 CACP AGENCY CIE FREE TEXT R:SU(X)>6! (SL(X)<6) X 


M/FCEM FID # 97 


2 STCFED: $= S(“10C(A,9),"°", 2) 
44 POST ID: s Moc K:SL(X)>6!(SL(X)<6) X s2/Sd(X) cme" s:an(""" om" 


13.9 CGHA STTE OLE FREE TEXT K:SU{X)>91 (SLX) 1) X 


13 DUTY STATION 


M/PCEM FID $ 98 


28 STCRED: $p( “IG=(DA,9),"*",10) 
44 POST ID: s Mean K:SL(X)>9!(SLAX)<1) X 82’Sd(X) cme** s:en{"°* ane"" 


FOINIER 1062’ 1Nd(1062, 
MFCRM FID # 92 


20 CONVERSION CE: «5 aeGa(cae"™ 2, "(Sif “INT( 1062, 0) #10) sam, 1:S$p( “INT(1062,cm,0) ,""",1)) 
28 STORED: Sp “ICC(DA,9),""",1) 


a-14 








13.4 DLNY SEATICN ACKRESS FREE TEXT K:SL(X)>541 (SL(X) 1) X 
M/PORM ID # 93 


28 STORED: =$p( “T0C(TA,9),""",5) 
44 BGS? ID: § Yom K:SL(X)>701(SL(X)<L) X s2/SdiX) ane" szanl"°" cane" 


13.5 DUTY SIATION CITy FREE TEXT K:SL(X)>20! (SL{X)<1) X 
M/FCEM FID # 94 


28 STORED: $p(“10C(0A,9) "7", 6) 
44 POST ID: s Mean K:SL(X)>20!(SL(X)<1) X 8:’$d(X) am" s:anl"*" ane" 


13.6 DUTY SINTIGN SINE POIMIER 1003’ 012(1003, 
M/PCEM FID #95 


20 CONVERSION COKE: 8 amGe(came’™ 2", " (Sa “DIZ( 1003, cm, 0) #10) scm, 12 9p “DIZ( 1003, cm, 0) ,”"",1)) 
28 STORED: =$p( “ICC(DA,9),""",7) 


13.7 DUTY SIATICN ZIP CLE FREE TEXT K:$L(X)>10! (SL(X)<S) X 
M/FCRM FID # 96 


28 SICFeD: = $p(“r0c{OA,9),""",8) 
44 FOBT ID: Neca K:SL{X)>101 (SL(X)<S) X 82/Sd(X) cae" s:anl"-* cme” 


302 REGULAR WORK HOURS FREE TEXT KsSL(X)>14! (SL(X)<6) X 
YPC FID # 27 | 


3B SICRED: $4 “20C(DA, 300),""",3) , : < 
44 POST ID: Meum K:SL{X)>14!(S92(X)<6) X 82/SA(X) am" sranl*"" ame" 


303 PAGLLAR WORK SCHEDULE FREE TEXT KzSL(X)>151($L(X)<3) X 
M/PCRM FID # 28 
28 STORED: $o( “10C(DA, 300),"°", 4) 
29 PREFIFID CCre: 
82 ’SA(chxi(28)) Sp(chai (28) ,db,1)}=""-" chi (U,28 }="" newexb= "ME" 
4 $d(cbi(28)) 8:9p(ciak (28) db, 1}="* Sp( chi (28) ,db,L)="4-2" chi (0, 28}="" 
44 POST ID: ss Mee K:SL(X)>15! (SL(X)<3) X s2/Sd(X) ane" son "*" ane" 
M/PORM FID # 69 
20 CCOWERSICN COLE: 


28 STOFED: rowhere 
44 FCT DD: 


A-15 











304 LATS RECEIVED NOTICE XIE S We"E" D “WT S Myr K:Ycl X 
M/ACEM FID # 29 


20 CONERSION CIE: 
S ¥e"(" $:45e(an, 4,5) XaK C SO "ON. FEB.MAR.APRLPAY UN. JUL ALG. SEP.OCT.NOV..DEI"".", 
+Se(an,4,5)) ""s: +Se(cm,6, 7) ¥eX_Se(an,6,7) *, " Ss XxX (1700+Se(amn,1, uae 
Ss: Sx(an,". " ,o)'= rene xX" at " ' Se(cra "000", 9 1D)" ". wn * Se(an "00", lu 12) s Xeax_")" 
5:X="(1700)" %"" s amX 


28 STORED: 3p( “ICC(DA, 300),""", 5) 
229 D/T STOPPED WORK ORE S Wi"EI" D “WF S WY K:Y<l X 
M/FORM FID # 83 


20 CONWERSICN CLE 
Ss %e"(" s: sSe(cr4, 5) eX _Sp( "JAN. FEB .MARLAPRLMAY.. JUN. JUL-AUG. SEP.OCT.NOV DEC", ".", 
seal, 5))_" " s:+Se(an,6, 1) eK Se(cmn,6,7) *, " 8 WK_(1700+Se(am,1,3)) 
5:9p(an,".",2)'="" Xe * at * ' Se(cm "000",9,10). "2" Se(am "000",11.12) s %=K_")" 
8:Xe"(1700)" He" 5 ceX 


28 STORED: = $p(“ICC(DA,221),"°",1) 
230 DT BAY SICEFED oe S WEI" D “WY S HY Kv X 
" MVRCRM FID # a1 


20 CCNVERSICN COLE: 
& Xe"(" s:+Se(cm,4,5) Yak Sof "JAN. FEB.MAR_APRLMAY.JUN. JUL.AUG. SEP.OCT.NOV. DEC", "".", 
alee. 5))." " s:+Se(am,6, a %eXK_Se(an,6,7) *, " s XaK (1700+Se(an,1,3)) 


s:Span.”.",2) "=" Xe." at" Se(crn "000",9, 10)" ":" Se(ce_ "000", 11,12) s XaK_")" 
$:¥="(1700)" Xe" 5 crmeK 
28 STORED: $p(“ICC(DA,221),""",2) 
210 COP BEGIN DATE CAE S WEI" D “Wr S wy R:¥cl X 
M/ECRM FID # 84 


20 COWERSICN COLE: 
8 Xe"(" s:4Se(cm,4,5) eX Spi “OPN. FEB.MARLAPRMAY.JUN.JUL.AUG. SEP. OCT NOV.CED™,”." 
+Se(am,4,5)) * " s:+Se(cn,6,7) YX Se(cam,6,7) *, © 8 XX (1700+Se(an,1,3)) 
s:Sp(an,".",2)/="" eK" at * " Se(cm "000",9,15).*:" Se(cm "000", 11,12) 8 XK_")" 
8:X="(1700)" Xe" 8 ont 


28 STORED: so° “TCC{DA, 220),"**,1) 
29 PREFTELD CLE 


i SA ci (84) 8:$d( cbr (16) )&( cd (84 =") chi (B84 eatsi (16) 
i *SA( chai (84) )e(Sd(chi(16))) 8 cbt 84 obi (16) 


231 D/T RETURNED TO WORK ONTE S WIe"El” D “WE S wer Kydd X 


A-16 











M/ACAM FID # 85 


20 COWERSICN CE: . 
S ¥="(" :4$e(am,4,5) JX Sp("IAN. FEB.MARAPR MAY. JUN. JUL AUG. SEP.CCT-NOY.C™,",", 
+$e(am,4,5)) " " s:+Se(am,6,7) HoX Se(cm 6,7)", " s NX (1700+Se(cm,1,3)) 
8:Sp(an,".",2) =" eK" at *_Se(an_"000",9,10)_":" Se(caa "000", 11,12) 's eK)" 
$:%="(1700)" Ye" 3 cyt 


28 SICRED: 9p{*I0c(DA,221),"*",,3) 


OXIA ELEMENT OMIA TYEE POINTER GLOBAL REFERENCE CR INU? VERIFIOWICN 
307 INOLFED IN LINE OF cory SST CF CHES §y:yes 
N:hO 
MARCH FID ¢ 4 


20 CONVERSION CCIE: 5 SPL SOA "FYEVESINEND;",";" cm ":",2),%3",1) camp(cnm,":",1) 
28 STORED: $p{ “ICC{EA, 300), "*",8) 


307.1 EXPLAIN INOURY 
M/ACRM FID ¢ 35 


23 SICFED: nowhere 
2 PREFIPID COLE: 
i *Sd(abi (34)) 5 skipe"O" chi (0, 35}="" 
L Sachi (34)} Scho (34) [ "¥"! (chat (34) "y") Skip="0” chi (0,35 ei" 
stdin stra «ela Seni Sone a ae 
’ ’ 8 ¢ slvlel, lvl’ sivl+l,i: ) 
4d upcntr“fintma s New), chai (0)e"* k file 
8 lvislvl+l 
ilvls CACO CA DOA £ imlvls—1:) S:Sd(DA( i-1)) DAL i )=OA(i~2) 


30 FOSIFTEID CCE: 
i vl s CAC OA F fel stsivl S:Sd(DA(i)) DACi~1 ati) 
S:lv] DeeDA(O) k TA(]v1),DA(0) OL s lvlelvi-) 


16 CALLS M/FORM: EXPLAIN INQRY (#616) 


M/PORM: EXPLAIN INOURY (#616) 
1. PRE-FORM COE 
Nn filen, rptfile,New 8:’$d(noamp) filene“ptct i form, 99) 
+6:Sd(noomp) filene"ptq( 903, iform,99) 5 NewdQ), 
S Ua""" i *Saory) 5 *Gad( SH), Wie" GW s Dfey k XY 
@ sec" finfra 
d crinckk* fifa 


1. WINOS 


A~1? 














XA DO Widow DtC—<“<=‘“~S™S™S™S”S”S”~<“=~Ss™sSONSCSS 
DATA ELEMENT DATA TYPE POINTER GLOBAL PEFERENCE CR INEUI VERIFICATION 
-01 EXPLAIN INOURY WORD PROCESSING 

M/FORM FID # 1 

28 STORED: $p(“ICC(DA(1) , 306,DA,0),"",1) 





ITI. FOST-FORM CLE 


i $d( file), file s oer mg :lvl,lvbfiling:1vl,1:filing) 
+d shuffle’ finfon d nodeO*fmfon 








308 WILLETY, MISONOUCT ST OF OES Y: YES 
N:NO 


M/PCEM FID # 26 


20 COWERSION CODE: s camSp( Sp(";¥:¥ES;NehO;",";"_cn ":",2),"3",1) ,camGp(am,":", 1) 
28 STCRED: $0(“10C(DA, 300),"°",9) 


308.1 EXPLAIN WILLFUL MISCONDU 
M/ACEM FID #37 


26 SICFED: nowhere 
2g ea ea COLE: 
1 *$d(cbd(36)) s skip="D* chi (0,37)="" 
1 Sd(cbi(36)) secbd (36)("n"! (coi (36)("N") dcip="D", cht (0, 37}—="" 
8:'Sd(lvl) lvls i $d(chd(0))>9 s shhfileel d filecne’ptrfilel k shhfile 
i $d( file), file,New’=0 s filingpSe( ’Sd( filing) :lvl+l,lvl’<£iling:lvl+1,1: filing) 
+d upantr* ffm s News), chi (0)="" k file 
§ lvlelvl+1 
i lvl s CA(O}CA,DOWA f imlv):-1:1 s:Sd(DA(i~-1)) OA i OA i-1) 
30 FOSIFIFLD COLE: 
i lvl s DAO) £ ielslslvl s:Sd(DA(i}) OAi-1)eOKi) 
$:lv] DheQA(0) k DA(lv1),DA(0) D1 s lvlelvl-1 


16 CALLS M/PORM: WILLTUL MISCONDUCT EXPLANATION (#618) 


M/FORM: WILLFUL MISCCNOUCT EXPLANATION (4618) 





I, PRE-FCH1 OTE 
n filen, rptfile,New s:/Sd(nocarp) filene’ptc( i foo, 99) 


A-18 











+6:$d(nocarp) filene"ptg(903, iform,99) s NewaO, rptfile=1 
8 Us""" i /Sd(DT) 5 XeGed(Si), WD" d “Wr s Dey k X,Y 
di sec" fnérm 
@ crisck*finéon 


TI. WINGS 


TT —”—“ME ME Wd ltttt*~=<“=‘“SOS;™S™S™!™~™~™~™~™COCOOCCOCOCSNSCSCSSSSS 
CATR ELEMENT DAA THE FOINIER GLOBAL REFERENCE OR INEUI VERIFICATICH 
0 EXPLAIN WILLFUL MISOCNOU «= WIRD PRCCESSING 
MFCM SID # 1 
28 STCRED: $p( “ICC(DA(1) , 301,08,0),"",1) 








TH. FOST-OR! “OLE 


i $d( file), file s. tilinerSel "$d filing): lvl ibaa lvl,1: filing) 
+d shuffle’ fmfon d node” fmfon 


140 ‘THORD FRRTY CASE SAT OF GTES = Y:vES 
NeND 


M/FCRM FID # 38 


20 CONVERSICN COKE: —s amp($p(";¥:YES;N:ND;",";" cn ":",2),";",1) cmon, ":",1) 
28 STORED: $p/ “ICo(DA,130),"°",9) 


141.1 THIRD PRRIY 
M/FCRM FID # 61 


2 SICFED: rowere 
2 ves, COLE: 
i *$d(chi(38)) s skip="p" chi (0,61 )="" 
i $didbi(38)) sch (38){“n"t (chi (38)(°N") skipe"D" chi (0,61 )="" 
s:'$d(1v1) IvleO i Sd(chi(0))>9 s shhfile=l d filecre‘ptrfilel k sthfile 
i Sd( file), file,Naw=0 s filingpGe('$d( filing) :lvl+1 acum 1vl+1,1:filing) 
pes abet : finfiom :3 Newsd),chi(0)="" k file 
8 lvlelvl+1 


i lvl s DA(O}=OA, DOOR £ imlvl:-1:1 s:Sd(DA(i-1)) DA(i)=OA(i-1) 


30 OSIFIFLID CE: 
i lvl 5 DCA(O}eOA £ ielslslv) s:$d(OK(i)) DA(i-L)OA(4) 
S:lvl OfeQA(0) k DA(1v1) ,DA(O),O1 s lvielvl-1 


16 CALLS M/PORM: NAME/ADORESS THIFD PARTY (4626) 


A-19 











M/PORM: NAME/ADDRESS ‘THIRD PARTY (#625) 


ne  ] 


CATA ELEMENT 


01 NAME 


I. PRE-FORM COLE 
n filen, mptfile,New s:’$d(noconp) tilen»"ptc(ifoem,99) 
46:$d(noommp) filen=*ptg(903,ifoon,99) s New, rptfileel 
s Un"*" i /Sd(DT) s XeGad(SH), Wie" d “WT s Dimy k X,Y 
d sec” ffm 
d crindx” fméma 


TI. WINOOS 
CATA TYPE FOINIER GLOBAL REFERENCE CR INPUT VERIFICATION 
FREE, TEXT K:$L(X)>301 (SAX) <1) X 
M/FCRM FID # 6 


28 STORED: 9 $p(“I0C(DA(1),140,08,0),""",1) 
44 POST ID: $s Neem K:$L(X)>301(SL(X)<L) X 8:/Sd(X) ame" s:ani"*" am 


5 SETTLEMENT AMOLNT NUMERIC FCRMAT S:X["S" %GP(X, "S",2) Ke’ ok ( X27 NL"."2N) | (309999999.99)1(X<0) X 


1 ACTRESS 


2 City 


3 SIME 


4 ZIPXOLE 


M/PCEM FID # 7 
28 STORED: $p(“I0C(DA(1) ,140,04,0),""",6) 

FREE TEXT K.SU(X)>70! (SLAXI<1) X 
M/PORM FID # 2 


23 STOFED: §=$p( “ICC(MA(1),140,04,0),"°",2) 
44 FOST TD: 6 Ymamn K:$L(X)>70!(SL(X)<1) X 62°Sd(X) ame" ssan{""* aoe" 


Free TEXT K:S(X)>20! (SLX) 1) X 
M/FORM FID # 3 


2B STORED: 9$p( “10C(DA(1),140,04,0),"°",3) 
44 FCST ID: 5 Meom K:SLA{X)>201 (SLAX)<1) X 8:’Sa(X) ame” gsc "*" ane” 


FOINIER 1003’ o12(1003, 
M/FCRM FID # 4 


20 CONVERSICN COLE: «ss ameésfane™":"", “(Sd “DIZ (1003, cen, 0) )#10) scm, 1S “DIZ(1003,cm,0),""",1)) 
28 STORED: $p( “ICC(DA(1),140,08,0),"°",4) 


FREE TEXT K:$U(X)>10! (SL{X)<S) X 
M/FORM FID #5 


A-20 





= % 
. mere oF 





28 ‘SICFED: ‘Sp( “ICC(DA(1) ,140,04,0),"*",5) 
44 FOST ID: 8 Meom K:91(X)>10!(S2(X)<5) X 8:’Sd(X; ame"* s:onl"°" am" 








TH. ROSA COE 


i $d( file), file s filinsSe( ‘Sd filing) :lvl,lvbfiling:lvi,1:filing) 
4c nodeO* fine 








400 APTENOING PHYSICIAN FRE TET RSU(X)>301( LX) <1) X 


. 460.1 DOSS ACORESS 


400.2 DOCS City, 


400.3 DOCS SINE 


400.4 DOOS zircon 


M/PCHM FID # 105 


2B STORED: 9=$p( “10 (cH, 400) ,"°"",,1) 
44 POST ID: s Moa K:SL(X)>50!(SU{X)<L) X s:'Sd(X) ane” ssanf"*" ane" 


fYeE TEXT K:SL(X)>54!1(SL(X)<L) X 
MFCM FID # 105 


28 STORED: =$p(“10C(DA, 400),""",2) 
44 FOST ID: Mecmn K:SL{X)>451(SL{X)<1) X 82’Sd(X) ame" s:anl"*" om" 


Free TEXT KeSU(X)>201(SL(X)<1) X 
M/ECE® FID # 107 


28 SICFED: Se" TCC( DA, 400) ,"°", 3) 
44 POST ID: 8 Mecm K:SL(X)>20!1(SL(X)<L) X s:/Sd(X) cae" s:an""" ane" 


POINTER 1003’ nrz(1003, 
M/C FID # 108 


20 CONAPSION COLE: = § cmGe(crme”™ 2, ($d “DZ 1003,.an, 0) )#10) som, 1:Sp( “DIZ 1003,cm,0),"°",1)) 
2B SICFED: $p(“TOC(DA, 400),""", 4} 


FREE ‘TEXT K:SL(X)>101(SL(X)<S) X 
M/PORM FID $ 109 


28 STORED: $(“ICC(DA, 400),"°",5) 
44 POST ID: ss Meow K:SL(X)>10!($2(X)<5) X s2’Sd(X) ane" s:anl"*" ane" 


310 FIRST BOM ONT OXIE S Wh"E" D “WOT S HY KY X 


M/PCRM FID # 40 


20 CCWERSILN OE: : 
8 Xn"(" g:4Se(cam,4,5) Hak Sp( “PN. FEB.MAR_APR.AY. JUN. JUL-AUG. S2P.OCT.NOV.DEC",".", 
<$e(can,4,5)) " " s:46e(cm6,7) HK Se(cm,6,7)_", " Ss HX (1700+Se(am,1,3)) 


A-21 














s:Sp(an,".",2)/="" Ye at " Se(ca_"000",9,10)_":" Se(am_"000", 11,12) s XaK_")" 
8:¥="(1700)" Y="" 5 cmX 


28 STORED: $p{ “IOC (DA, 303),""",1) 


311 DISABLED FOR WORK SET OF COOES—sY: YES. 
NeND 


M/FCHM FID # 41 


20 CONVERSION CODE: = § cme$p($p(";¥: YES;N:ND;","s"_an":",2),";",1) amepiam,":",2) 
28 STORED: $p( “ICC(DA, 03),"*",2) 


312 SUPS FRCIS AGE WITH EM «= SETOF CIDES.sY:5 
N:ND 


M/PORM FID # 42 


20 COWERSION CDE: 58 armeSpi $p(";¥: YES ;N:ND;",";" crn ":",2),"3",1) ,amGp(an,":",1) 
28 SIOFED: $= Sp “ICC/M, 303),""",,3) 


312.1 SUPERVISE FACTS 


M/FCEM FID # Sl 


2B STCRED: nowhere 

29 PREFIELD CLE: 
i ‘Sd(cbi(42)) s skipe"D" chi (C,51}—"" 
1 Sch (42)) ssobri (42) ("¥"! (chad (42) ("Y") skip "D" ci (0,51 )” 
s:'Sd(1vl) lvl=0 i $d(chi(0))>9 s sthfilewl d filecre’ptrfilel k sthfile 
i Sd( file), file,Newa s tilingsds( ’$d( filing) :lvl+l,lvl’<filing:lvl+l,1: filing) 
+d upontr’ info § Newe),coi(0)e"" k file 
8 lvlelvl+i 
i lvl s DA(0)}eQA,DOSCA £ ielvi:-l:1 s:Sd(OMi-1)) OA(L aA i-1) 

30 POSIFIELD CLE: 
i lvl s DA(0)OA f ielsL:lvl s:Sd(DMi)) DA(i-1)=CA(i) 
8:1] DeeQA(0) k DA(1vl), DAO), s lvlelvl-1 


16 CALLS M/FCEM: EXPLAIN NOT AGREE (#620) 


M/FCRM: EXPLAIN NOI AGREE (#620) 





I. PRE-AOR COLE 


n filen, ptfile,New $:'Sd(nocomp) file"ptet i form, 99) 
+6:Sd(nocarp) filen="ptg( 903, iform,99) s News), rptfile=! 
S Us" i 'Sd(DT) s XeGacd(SH), WI" d “WE s DY k X,Y | 

d sec” fafa 
d crindk” fifo 


TI. WINDS 


A-22 








EN RE BD 


DORIA ELEMENT DADA TYP FCINIER GLOBAL REFERENCE OR INFUr VERIFICATION 
.01 SUPERVISOR FACIS WORD PROCESSING 
M/PCRM FID # 1 
28 STORED: 9p(' IOC(DA(1) , 304,08, 0),"",1) 
Ce teen nr 
UI. POST-FORM COLE 


1 Sd( file), file r, filingsSe( ‘$d( filing) :lvl, lvb>filing:lvi,1:£iLing) 
+d shuffle” fiéma d nodeO*finfoa 


———— LLL SSSR I esntsnnstesemeestessonmstestensenessnasrtitenitnenanan 


205 CLAIM C§ONTIRCVERIED SST OF ayES so y-vS 
XO 


P/PCHM FID # 44 


20 CONVERSION CDE: | camep($p(";¥:YES;N:80;",";" om ":",2),";",21) camép(am,":",2) 
28 STORED: $p( “ICC(DA,200),""",6) 


205.1 CONTROVERSICN SXPLANATID 
PYPCRM FID @ 45 


28 STORED: noshere 
29 PREFIELD COE: 
1 'Sd(chi(44)) 8 skip="D" cbt (0,45)—a"™ 
1 Sd chi (44)) @sebk (44) 0"! (ct (44) "N) skips ,cbi(0,45}="" 
8:‘Sd(lvl) lvleO i Sdichi(0))>9 6 shhfileel d filecne“ptrfilel k sthfile 
i Si( file), file,New' =) § filinpée( 'Sd( filing) :Ivi+l, lvl’ <filing: lvl4l,1: filing) 
+d upontr’ fata § New, chi(0}e"" k file 
& lvlelviel 
1 lvl & CA(0)eOR,DOHOA f telvl:-1:1 8:Sc(DM i-1)) ON i mOAsi-1) 


30 FOSIFTFLD ae: ; 
2 lvl § CALO}OA £ ielsdslvt B:SciDNi)) DALi-1 OA i) 
s:lvl DeQK(0) & CA lvl) ,DA0) 20 s lvlelvl-1 


16 CALL” \/RORM: CONIROVERSICN EXPLANATION (6608) 


M/PORM: CONIROVERSICN EXPLANATION (#608) | 
I, REHOME 


n filen, rpttile,New s:’Sd(nocomp) filene"ptc( i form, 99) 


A-23 








+6:$d(nocemp) filen=ptg(903,ifonn,99) 5 New), rptfile=) 
Ss Us"*" i ‘Sda(DT) s Sad(SH),W0lm"" d “WT s Diky k X,Y 
d sec” finfon 
d crinck’ finfon 


IT. WINDS 
a” RN AN SE Ci“‘“C ™SOSOC™C*”*”.OUOUOUUUUUUU 
DATA ELEMENT DAIA TYPE POINTER GLOBAL REFERENCE OR INPUT VERIFICATION 
.O1 CONTROVERSION EXPLANATIO. «= WORD PROCESSING 
M/FORM FID ¢ 1 


28 STOPED: §$p( “ICC (OA 1) ,25,00,0),"",1) 





III. FOST-FORM COE 


i Sd( file), file s filingeGe( 'Sd( filing) :lvl,lvbfiling:lv1,1: filing) 
+d shuffle’ fmton d noded” fn€on 





229.3 WORK STOPPED BASE RATE NUMERIC FORMAT S:XU"S" MeGPIX,"S%,2) Ks eXE (2 NL". MAN) 1 (90999999.99) 1(X<0) X 


M PCRM FID # 9 
28 STORED: § Spt “ICCA 22),""", 1) 
229.2 WORK STOPPED BASE BASIS QT OP COYES) H:HOLPLY 
: W:WEFFLY 
M: MONTHLY 
B: BI-POTTHLY 
A: ANNUALLY 
O:CAILY 
M/PCRM FID @ 118 


20 CTMPSTON COME: = 8 creGp( 901 * | H: HOURLY WW: WEERLY 8: MONTHLY ; 8: BI-MONTHLY ;A: ANNUALLY; 
D:OAILY;",";" cm ":",2),%5",1),camedp(can, "2", 1) 
28 STORED: =X “Toc(mR, 222),""", 2) 
TOD CRYICLAL REMARKS FREE TEXY’ R:SA%1950!8 (QA) X& 
M/PORM FID @ 104 


3BOSTOPED: §=%pt roc (om, 402),"°", 4) 
44 POST 1D: 8 fern K:SU%)>WO! (SAX) 1) K 8:°Sd(X) ce"* sco '°" aae"* 


S52 SOPFPVISOR'S NAME FREE TEXT Ki LiX)> OL ( DIL) X 








M/PCRM FID # 110 


28 STICFED: $p( “IGC(DA, 402),""",1) 
44 POST ID: s Meom K:SL(X)>301(SL{X)}<1) X s3’$d(X) ame" s:ani"°" ome"" 


402.4 DRE SPERVISR SIGED DXIE S Wh"E" D “WT S HY Rive X 
M/FORM FID # 1.3 
20 CONERSICN COE: 
§ e"(" 8:+Se( am, 4,5) Sek Spl “JAN. FEBLMARAPR.MAY JUN. JULAUG. SPP.OCT.NOV.DEC",".", 
+$e(ca,4,5)) " " s:4+Se(cm,6,7) HX Se(cm,6,7) ", " § HK (1700+Se(cm,1,3)) 
s:Scdan,".",2)'="" Ye" at * "Sei "000",9,10) | "3" Se(cm "000", 11,12) ¢ XX _")" 
2%"(1700)" %e"" 5 aX 
—— 3B STORED: Spf “2CC{DA, 402),""", 5) 
402.1 SUPERVISCR'S TTILE PRE TEXT = R:SU(X)>301(SLAXI<L) X 
MFCM FID # 11) 


28 STORED: 9S “ICC (DA, 2),""", 2) 
44 POST ID: 5 mom K:SL(X)>301(StAX)<L) XK w2’Sd(X) am"" s send *"* ce aes 


402.2 SUPERVISOR'S PHONE NUMEE Freez TEXT K2$L(X)>14t(SLAX)<7) X 
MACHA FID # 112 


28 STORED: $p( “ICC(EA, 402) ,"7", 3) 
44 POST ID: § Moom K:SL(X)>141(SL(X)<7) X 62/Sd(X) cane sary "7" cone 


314 CLAIM FILING CXDEORY S#T OF COYES~—s1:NO LOST TIM AND NO MEDICAL 


2:NO LOST TIME, MEDICAL EXPENS 
3:LOST COVERED BY LEAVE, LACP, 


M/PORM FD $ SO 


20 COMEPSICN CODE: «8 ameGp( 9"; 1:ND LOST TIME AND ND MEDICAL EXPENSE; 
2:NO LOST TIME, MEDICAL EXPENSE INCURRED; 3:LO5T COVERED BY LEME, LACP, CR 
oP ;",";" ce 72",2),"5",1), comegiom, "2", 1) 

2B sven: Sp “1cC(mA, 3), °*", 4) 








TT. POST-Grt Cre 


i Sd( file), file,New=< s:/Sd(lvi) Ivled 
+8 filingpSe(’ Saari Lani: lvD filing: lvl,1: filing} 
“fafoe 


od upatr 
i fileel!(Sd(BRFLAG)) d CAL“TICPINF, “TOCFILE 











CA-2 NCTICE OF OCCUPATIONAL DISEASE AND CLAIM 


EMPLOYEE DATA 


HHNAN Ee 


8. 


NAME OF EMPLOYEE 


SOCIAL SECURITY NUMBER J 3. DATE OF BIRTH 
SEX 5. HOME TELEPHONE 


GRADE AS OF DATE OF LAST EXPOSURE LEVEL STEP 
EMPLOYEE’S HOME MAILING ADDKESS 


CITy STATE ZI DE 
DEPENDENTS 





CLAIM INFORMATION 


9. 


10. 
pie 
12. 
13. 
14. 
15. 
16. 
17. 


EMPLOYEE’S OCCUPATION OCCUPATION CODE 
WHERE YOU WORKED WHEN = 

DATE YOU FIRST BECAME AWARE OF ILLNESS 
DATE FIRST REALIZED DISEASE/ILLNESS CAUSED... SCT 
*Press <Return> for EXPLAIN RELATES TO ILLNESS* OWCP USE-NOl CODE 
*Press <Return> for NATURE OF INJURY/ILLNESS* TYPE CODE 





-*Press <Returcn> for AFTER 30 CAYS* SOURCE CODE 


*Press <Return> for EXPLAIN REASON FOR DELAY* 
“Press <Return> for EXPLAIN MEDICAL REPORTS DELAY* 


SUPERVISOR’S REPORT OF OCCUPATIONAL DELAY 


ener naennaseftistnineate 


SUPERVISOR’S REPORT 


19. 


20. 


21. 
Z2. 
23. 


24. 
25. 
26. 
27. 
28. 
29. 
30. 
31. 
32, 
33. 


REPORTING OFFICE 











ADDRESS 

CITY_ 

OWCF AGENCY CODE OSHA SITE CODE 
EMPLOYEE’S DUTY STATION 

ADDRESS 

CITY STATE ZIP 2868 





REGULAR WORK HOURS 

REGULAR WORK SCHEDULE —~—<—S;~; 3ZSTC*;é<‘<‘;7<7;3 STt”!”!”S” 

PHYSICIAN FIRST PROVIDING MEDICAL CAL. 

ADDRESS 

CITy STATE ZIp CODE 

FIRST DATES MEDICAL CARE RECEIVED 

WAS EMPLOYEE DISABLED FOR WORK? 
DATE EMPLOYEE 1ST REPORTED TO SUPERVISOR 

DATE AND HOUR EMPLOYEE STOPPED WORK 
DATE AND HOUR EMPLOYEE’S PAY STOPPED 
DATE LAST EXPOSED TO CONDITIONS 
DATE RETURNED TO WORK 

*Press <Return> for DESCRIBE NEW DUTIES* 

WAS INJURY CAUSED BY THIRD PARTY? 

Press <Return> for NAME/ADDRESS THIRD PARTY 














SIGNATURE OF SUPERVISOR 


3¢., 


SUPERVISOR ACCEPT S$ TATEMENT 

NAME OF SUPERVISOR 
SUPERVISOR’S TITLE 
OFFICZ PHONE DATE 


oe a A VPC PP SS AIEEE 











eet terete 


Anh 


CA-2 CON'T 


eee ences arene ernment bass Df SRSA 





THIRD PARTY INFORMATION 





NAME SETTLEMENT AMOUNT 
ADDRESS : 


CITY STA 











*Wword Processing Window will appear. 
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PYERE Or2 (164) 


pee eee eceeeeemmnrenaannnnmmmmmammmmanaaatel 


DATA ELEMENT 


2 NE 


3 SN 


6 BIRTHOAIE 


4 EX 


1. PRE-FORM CIE 


S clear=l 
n filen, ptfile, filing s:’$d(nocomp) filere"ptc(ifomm, 99) 
+6:$d(noomp) filen=*ptg(903,iform,99) 5 New, rptfile=l, idexist=2 k ident 
s Un"*" i ‘Sd(DT) s Gad(SH), 40" d “WOT s Deby k XY 
di sec’ finfom 


TI. WINOOS 


CAA TYE FOINIER GLOBAL REFERENCE OR INEUT VERIFICATION 
POINTER 1004’ EMELOY( 


M/PCRM FID # 67 


20 CONVERSION CLE: § cnmGa(cane":", “($d “EMPLOY (crn, 0) )#10) acti Spt “EMELOY(an,0),"°",1)) 
28 STORED: 9p( “Icc(TA,0),""",3) 
2 RET FILING COTE: di setinck” fmfon 
44 POST ID: I Dinew) 62°Sd(“IOC( "Crew, xL)) meage"CLAIM NOT LOGGED!” , ye24 cate" 
54 EX: “*IOC("C") 
SS LOOP NIE: 
67° "Sp “10C( Lids,0) ,“*", 3) 
14°23" Sp “1CC(Lids,0),""".2) 


tPEE TEXT K:SULX)>9! (AX) <9)!" (XZGN) X 


'VFCRM FID # 2 


28 STORED: 9p( “I0C(K,0),"7", 4) 
44 POST Dz § Mecan R:SU(X)>91 (SLX) <9) 1” (XPGN) X 82/Sd(X) cme" sro" cm 


CAME S Whe" D “WI S MY K:Ycl X 

4/PORM FID # 3 

2) COWERSION (TLE: 
8 Xe"(" 8:45e(cm,4,5) YK Sp{ “JAN. FEBLMAR.APR.PAY. JUN. JULAUG.SEP OCT. SOV .DEC™,”." oo 
+Se(am,4,5)) * " s:+Se(cm,6,7) XK Se(am,6,7) ", * $ MK (170C+Se(am,1,3)) 
s:Sp(an,".",2)/="" YaK_" at" Seca "000", 9,10) *:" se(aa "000", 11,12) 5 XaK_")" 
3i¥e"( 1700)" Xe"" 5s cmX 

28 STOPED: $p¢ “10c(,0),"°",,7) 


STO OLES «FP: FEMALE 








M:MALE 
US UNSNCAN 


M/PCRM FID # 4 


20 CONVERSION (KLE: 8 ce6p($p(";F: FEMALE ;M:MALE;U:UNOOWN;",*;" cm ":",2),";",1) ,ameQo(am,”:",1) 
28 SICFED: $p(“10c(DA,0),""",5) 


10 HOME PHONE NUMEER FREE TEXT K:SL{X)>151(SL(X)<1) X 


19 BAY STEP 


M/PCRM FID #5 


28 STORED: $p( “IOC(MA,1),"°", 5) 
44 FOST ID: ss Mean K:$L(X)>151(SL(X)<1) X 8:/Sd(X) am g:anf"*" cne”” 


FREE ‘TEXT K:SL(X)>3! (SL(X)<2) X 
M/PCRM FID # 6 


28 STORED: =$p( “ICC(0A, 3),"°", 5) 
44 FOBT ID: 5 Mean K:SL(X)>3!(SL(X)<2) X $:°Sa(X) ame” ssa "*" ame" 


FREE TEXT R:SL(X)>2! (SL{X)<l} X 
PYPCRM FID ¢ 37 


28 STORED: § $( “T0C( OA, 3),"°", 6) 
44 POST ID: 6 Mean R:SL(X)>21(SL{X)<L) X g2”Sd(X) ame" s:oml"*" ome” 


7 STREET ACDRESS FFE TEXT K:$L(X)>641(SL(X)<1) X 


8 CIly 


9 SINE 


10.5 ZIP Ore 


M/FORM FID #7 


28 STORED: =$p( “10C(DA,1),°°",1) 
44 POST ID: Mec K:SL{(X)>64!(SUAX)<1) X 8:/Sd(X) com" s:on{"*" ce" 


FREE ExT K:SL{X)>231(SL{X) <1) 1" (XP.AP) X 
M/PCHM FID ¢ 8 


28 STOWD: Sof “TOCA, 1), "°",2) 
44 FOS. LD: Mem FsSLAX) 0231 (SL{X) <1) 1 (XP_AP) X 82°SA(X) came san" const” 


POINT” 1093’ 012(1003, 
MPC FD 49 


2 COW” UN CEE: ss cam s(came*:", “(Sd “DZ 1003, crn, 0) #10) cm, 1: $ot 112 (1003, cm,0),"°",1)) 
3B ST Eb; So “2° Oh,1),"7",3) 


IE WoT K:SU{X)>101 (SLAX)<5) X 
M/F TD # 10 


A-29 














28 SICFED: $p(“ICC(T™,1),""", 6) 
44 RST ID: s Xeon K: SL(X)>101 ($UAX)<5) X 8:/${X) ame"” s:on(""" ane"" 


300 DEPENCENTS ST or cyes) §S:SFO5E 
C:CHILOFEN 
O:OTHER 
SC:SFOUBE AND CHILDREN 
SO: SPOUSE AND OIHER 
SOO: SPOLSE, CHILDREN, & ODER 
CO:CAIILDREN AND OIKER 
N:NCNE 


M/PORM FID # 68 

20 CONVERSION COE: 8 camp Sp( ";S:SECLEE;C:CHILDREN;O:ODER;SC:SECOUSE AND CHILDREN; 
SO:SECLEE AND ODER; SCD: SPOLEE, CHILDREN, = eee ee 

N:NONE;",";" cn "2",2),"3",1) ,cerm@plam,”: “ rl) 

28 SICRED: So( 100 tA, 300),""*, 1) 


So ge eg a be EE ge eg eR 


DATA ELEMENT DATA TYE FOINIER GLOBAL REFERENCE OR INEUT VERIFICATICN 
15 OCOLRATION FCINIER 1001’ rz(1001, 
M/PCRM FID # 12 


20 COWERSION OLE: 38 ateSe(cne"":"", "(Sal “DIZ( 1001 ,caw, 0) )#10) som, 1 Sp “DTZ( 1001 ,cmn, 0) ,““°",2)) 
28 STCOFED: Sp pags nw 1) 
32 POST FILING CLE: di setinckx’ fmfon 
15.5 COCLEATIGN COLE FREE TEXT K:SL(X)>6!($L(X) <5) X 
M/TORM FID # 13 


2B STCRED: $p/ “I0C(DA,3),"°",2) 
44 FOST ID: Yecm K:$L(X)>6!(SL(X)<5) X $:’Sd(X) came"* g:an("*" an" 


114 SPECIFIC LOCATION Freez TEXY K:SL(X)>40! (SL(X) cL) X 
M/PCRM FID # 15 


28 STORED: $p( “10C(DA,100),"*", 15) 
44 POST ID: s Xecm K:SL(X)>401(SL(X)<1) X $2°S(X) cm" s:ani"*" ane” 


1 TNOURY/ILLNSS OME & TI OME S W"EI" D “WI S MY K:Y<l X I D(X) K:SP(X,".",1) 07 X 
M/YCRM FID # 14 


20 CONVERSION COLE: 
S Xe"(" 5:4Se(cm, 4,5) YeX Spl “JAN. FEB.MAR.APRLPAY. JUN. JUL.ALG. SEP.OCT.NOV.DEC",”.", 
+Se(an,4,5)) ""s: sSe(an,6, 7) %X Se(am,6,7) *, * § XK (1700+Se(amn,1,3)) 
s:Sxam,".",2)/="" eX" at " Se(aan "000",9, 10)" *:" Se(cm_"000", 11,12) s %aK.")" 
3:¥="(1700)" %e"" s amX 


A-30 








2 STORM: 9 $p( “ICC (Dh, 0),"°",2) 

32 POST FILING ODE: di setinc&k® 

54 INEX: “I0c("D") 

55 LOOXLP NOE: 
14°23°$p( “ICC( Lids, 0) ,"°",2) 
67° 30°SK “100 (Lids, 0),"°", 3) 


321 ORME 1ST REALIZED OXIE S W'S" D “MOT S Hey K: <1 X 


M/KRM FID # 16 


20 CONWERSICN COLE: 

5 %»"(" 5:+Se(cm,4,5) xX C Sp( “JAN. FEB.MAR_APR. PAY. UN. OUL.ALG. SEP.CCT.NOV.DEC",".", 
deals: 5)) " " s:+Se(am,6,7) HK Se(an,6,7) ", " 8 HK (1700+Se(an,1, a 
8:9p(an, ~"/Z)'at™ Yo" at * * Seca "000"-9,10). "3" Se(am_"000",11,12) s 4X") 

s:X="(1700)" ee" s cmX 


28 STORED: $p(“ICC(DA, 303),"*",6) 
315 FELATES TO ILLNESS 
M/PCRM FID # 17 


2B STCFED: rowhere 
2 PREFTELD COLE: 
8:'Sd(lvl) lvleO i Sd(chi(0))>9 s shhfileel d filecne’ptrfilel k shhfile 
i $d{ file), file,New’=d) = filingSa('Sd{ fling) :lviel,lvl’<filing:lvl+1,1:filing) 
+d upontr“finérm § Newa),chi(0)="" k file 
§ lvl=lvl+1 
i lvl s DA(O)eOR, DOA £ ielvi:-1:1 s:Sc(OMi-1)) DA(i)<OACi-1) 
k DA(O) S Dhe"" Dla"* 


30 POSTFIELD CCIE: 
i lvl s DA(O}@ON £ ied. :2vl s:Sd(DA(i)) CACi-1)DA(i) 
$:lvl DAeOA(O) k DA(]v1),DX0),D1 s lvlelvl-i 


16 CALLS M/f0RM: EXPAIN RELAIES TO ILLNESS (4629) 


M/FORM: EXCLAIN RELXIES TO ILLNESS (#629) 


1, PRE-FOR! COE 
n filen, rptfile,New s:'$d(nocamp) filene*ptc( i foun, 99) 
+6:$d(nocamp) filen="pty( 903, ifoan,99) s News), rptfile=) 
8 Ue" i /SA(DP) 8 Gadi $1), Wie" d “Wr 5 DIbY k X,Y 
@ sec” frfra 
@ crinck” fafna 


TX. WINDS 


ee  —__ EXELAIN TOEMOEN Windw tCtC—“‘“ CS; z OCS:*;‘(CS;”;:;:;C<;<;<S;CSCS*é*;:” 


A-31 











OATA ELEMENT OMA TYPE FOINIER GLOBAL REFERENCE CR INEUT VERIFICATION 
-O1 RELATES TO ILLNESS WORD PROCESSING 

M/FCRM FID # 1 

28 STORED: =$p( “IOC(DA(1) ,307,04,0),"",1) 





III. ROST-+ORM CE 


i Sd(file), file s filing-6e( '$d( filing) :Ivl,lvb filing: lvl, 1:£LLing) 
4d shuffle” fimérm d roce0" finn 





101.2 CACP USE-NOI COLE FREE TEXT K:$L(X)>5!(SLX)L) X 
M/FORM FID # 19 


28 STORED: %(“ICC(DA,100),"°",18) 
44 FOST ID: s Mec K:SU(X)>5!1(SL(X)<L) X 82/Sd{X) ane" ssam"*" are 


101.1 NATURE OF INOURY EXPLANA 
MCHA FID # 18 


28 STCFED: rouhere 
2 PREFIFLD (QE: 
$:‘Sd(lvl) lvl=O i Sd(chi(0))>9 8 shhfileel d filecne’ptrfilel k sthfile 
i Sd file), file,New=0 s filingsée('Sd( filing) :lvl+1,lvl!<filing:lvl+l,1:filing) 
+d upantr’ finfrm s News, chi (0)0"" k file 
& lvl=lvi+l 
i lvl s CA(O)=OA,D080A f felvl:-1:1 s:Sd(OA{i~l)) CALL )@OQA(i-1) 
k DA(O) S Dee"" De” 


30 FOSIFIELD CIE: 
i lvl s DA(O)=0A £ imlsl:lvl s:Sd(DA(i)) OMi-L)A(i) 
S:lvl DAeCA(0) k DA( lvl) ,DA(0),21 5 lvleivi-1 


16 CALLS M/PORM: NATURE OP INQURV/ILINESS (#642) 


My FORM: NAQURE OF INOURY/TLIDESS (#642) 
1, PRE-FORM COE 


n filen, ptfile,New s:/Sd(nocomp) filen=“ptr i forma, 99) 
+8:Sd(noomp) filen*ptg( 903, ifoma,99) s Need), rptfileel 
S Ue""" i *SA(OT) & XGarck(SH), We" d “Wr s Diey k X,Y 

d sec” fre 
d@ crinck’ fnfoe 





A-32 








TI. WINCOS 


OMIA ELEMENT DORIA TYE POINIER GLOBAL REFEFENCE CR INPUT VERIFICATION 
(-O1 NATURE GF INOURY EXPLANA WORD PROCESSING 





M/PCEM FID # 1 = 
28 SIRED: $p(“TCC{DA(1) ,101,08,0),"",1) ! 





TX. KOSTA CUE 


i Sd( file), file s ppp aire sabe lear po sun lvl,1: filing) 
+d shuffle*fmfma d node0" fino 


112.5 TYPE COE Free TexT R:$L(X)>5!(SL(X)<1) X 
M/FCRM FID # 20 


2B STCFED: $p( “ICC(DA, 100) 7°", 17) 
44 POST ID: s&s Xeon K:SL{X)>51(SE{X)<L) X 6:'$0(X) cw" sramnf""" one" 


316 WEY FILED AFTER 30 CAXS 
M/PCRM FID # 22 


28 SICRED: rodbere 
2 PREFIELD COE: 
8:/Sd(lvl) IvleO 1 $d(cbi(0))>9 s sthfile=l d fileme‘ptrfilel k sthfile. 
i $d( file), file,New<) s filingéa( 'Sd( filing) :lvl+l,lvl’ <filing:lvl+1,1: filing) 
4d upontr” ftom § New), chi (0)}="" k file 
8 lvlelvl+l 
i lvl s CA(O)=DA,D0etA £ ielvl:~1:1 s:$c(OR(i-1)) OA(i ON i-1) 
k DPA(O) S Dee"* Ole" 


 PCSIFIELD CLE: 
4 lvl s DA(O}OA £ ielsl:lvl s:Sd(DAi)) DA(i-1)<OA(i) 
s:lvl DreCA(0) k DA(lv1),OK0) 01 6 lvlelvi-1 
16 CALLS M/PORM: AFIER 30 DAYS (4649) 
M/APORM: AFTER 30 DAYS (#649) 
I, "RE-FOR CLE 
hh filen, rptfile,New s:'$d(necmmp) filen»“pte( i form, 99) 


A-33 








+6:$d(nocanp) filene’ptg(903, ifomn,99) 5 New, rptfile=1 
5 Us"*" 3 'Sd(DT) 5 MeSad( SH) ,WIe"" d “WI s Diby k X,Y 
d sec” fméom 
@ crindx” fméon 


TI. WINKS 


FER StS Winkwiltttttst=C<CSsti‘™S 
DATA ELEMENT DATA TYPE FOINIER GLOBAL REFERENCE CR INEUD VERIFICATION 
.O1 WHY FILED AFTER 30 DAYS) «= WORD PROCSSING 
M/FORM FID # 1 
28 STORED: $p( “ICC(DA(1) , 308,DA,0),"",1) 





TIT. FOST-7CRM CLE 


i $d( file), file s arya "$d( filing) :1vl,lvbfiling:1vl,1: filing) 
+d shuffle’ fmfrm d nock0* fing 





126.5 SOURCE CLE FREE TEXT K:SL(X)>61(SL{X)<1) X 
M/FCEM FID # 21 


28 STORED: 9p(“ICC(DA,120),""",9) 
44 POST ID: s Xeam K:SU(X)>61(SL(X)CL) X $:/Sd(X) ame"" ssan("*" ome" 


317 REASCN FOR SIXIEMENT CEL 
M/FCRM FID # 23 


28 STCFED: rowere 
29 PREFIELD CCIE: 
8:/Sd(lvl) lvl=O i Sd(chi(0))>9 8 shhfileel d fileone*ptrfilel k shhfile 
1 Sd( file), file,New'=O s filingeGa( 'Sd( filing) :lvl+l,lvl'<filing:lvl+1,1:filing) 
+d upontr’ ffm 6 New, chi (0)="" k file 
8 lvlelvl+1 
i lvl s CA(O}=0A,D0e0A f ielvl:-1:1 s:$d(OMi~1)) DACi <OA(i-1) 
k CA(O) S Dhe"* Dla" 


30 POSIFIELD CIE: 
i lvl s CA(O)=fAM f imlsls:lvl $:Sd(DMi)) OM i-1)ONi) 
s:lvl DAeQA(0) k CA(Lv)),OA(0),O1 ¢ lvlelvl-i 


16 CALLS M/PORM: EXPLAIN REASON FOR CELAY (#650) 


A~ 34 











M/PCRM: EXPLAIN REASON FOR CELAY (#650) 


am nba, acme ech I RD AEN SE AI I EEN PII TET TI EOE LT OR LESTE SLI IE IES OOS ELE ESL SIE EI OR SAAT ON EYL IIS 
1. PRS-PCRM COLE 
n filen, rptfile,New 6:'$d(nocamp} filen=ptc{ iform, 99) 
+5:Sd(nooamp) filen=*pb3( 903, iform,99) s NewO, rptfile=1 
$s ord te i ‘Sd(DT) s %Sad(SH),OIe"" d “WI s Dey k X,Y 
a sec*fneon 
d@ crindx* foto 


TZ. WINDS 


ee ELAN HEN RR EA Window DOCi‘“=~SSSSSSSSCTTCCCCSCS 
DAQA ELEMENT DIA TYPE FOINIER GLOBAL PEFEFENCE OR INEUI VERIFICATION 
.01 REASCN GOR SINIMENT CELA = WORD FROCESSING 
M/PCRM FID # 1 
28 STORED: 9p(“ICC(DA(1),309,08,0),"",1) : 





TT. ROST-FORM CCE 


4 $d( file), file s perp "$d( filing) avi ea lv1,1: £iNing) 
+d shuffle’ ffm d nodeO* finfon 





318 WHY MEDICAL REFORIS [ELA 
M/PCRM FID # 24 


28 STORED: rowtere 
2 PREFIPLD COLE: 
s:/Sd(lvl) lvl=O { Sd(chi(0))>9 8 ehhfile=l d filecne’ptrfilel k sthfile 


i Sd( file), file,New'=) = filimpée('$d( filing) :lvlel, lvl! <filing:lvl+1,1:filing) 
ihn ee oo & Need, chi(0}"" k file 
$ IV. Vi+. 


i lvl s DAO} OA, D000 £ ielvl:~1:1 s:Sd(DRi-1)) OACi OA(i-1) 
k CACO) S Oe" De 
30 FOSIFIFLD CLE: 
i lvl s CA(O}@OR f iml:1:lvl s:S$d(DA(i)) DACi-1)@0R(i) 
s:lvl O%OA(0) k DA(lv1),DA(0),22 8 lvlelvl-1 
16 CALLS M/PORM: EXPLAIN MEDICAL REPORTS DELAY (4635) 
M/PCEM: EXPLAIN MEDICAL RERORIS DELAY (#635) 


RES RIENCE AIOE HEI EO SITS I SN ESET A ST SIR DO PO ESE ENE EPTFE RATE TIE GET EOIN SST TS ae 


A-35 











I. PRE-FORM COE 
n filen, rptfile,New s:'Sd(rocanp) filene’ptc(ifomn,99) 
+6:5d(nocenp) filen="ptg( 903, ifoun,99) s New), pptfile=1 
S Un"'*" i ‘SA(DP) s XeSzd( S41), Wie" d “WI s Dlby k XY 
d sec’ finfon 
@ crinck” fméom 


TI. WINKS 


A PEEL FCS EA Winwl~C~C~“<‘; ; OD*é<“‘( StS”: 
DATA ELEMENT DATA TYPE FOINIER GLOBAL REFERENCE CR INSU VERIFICATION: 
.O1 WHY MEDICAL REFORIS CLA 86 - WOR PROCESSING 
M FORM FID # 1 


28 STORED: Sp(“ICC(DA(1) ,310,08,0),"",1) 





TI, FOST-PORM COE 


i Sd( file), file s filingse( bertap yh ll oe lvl,1: filing) 
+d shuffle’ fmfon d node0” fat 








cas Winkkw 3 
CATA ELEMENT DATA TYPE FOINIER GLOBAL REFERENCE OR INPUT VERIFICATION 
14 REPORTING CFFICE FCINIER 1063’ 1N0(1063, 
M/FCRM FID # 66 


20 CONWERSICN COLE: 5 cmGe(came"™:"", (Sd “IN(1063,c%.,0) )#10) scmm, 1: 9px “IND(1063,cmn,0) ,"*", 1)) 
2B STORED: 9 $p( “IQC(DA,10),"°",1) 


14.01 FO ACORESS THEE ToT F3SL{X)>54! (SL(X)L) X 
M/PCRM FID # 52 


2B SIGED: Sp( “10C(mA,10),"*", 2) 
44 POST ID: 5 ecm K:SL{X)>70! (SLX) <1) X s3’Sd(X) awe" s:anf"*" one" 


14.02 FO CITY FREE TEXT R:S{X)>20!(SL(X)e1) X 
M/FCRM FID # 53 


3B pele So( “TOC( DA, 10) ,"°", 3) 
44 FCST ID: 5 Mom K:SL(X)>201(SL(X) <1) X s:°Sa{X) cane" ssoml*°" ate” 


A-36 

















14.03 FO SIME FOINIER 1003’ o72(1003, 
M/PCRM FID $ 54 


20 CONWERSION COE: «5 camGe(came":", ? (Sd “DTZ 1003 cm, 0) )#10) scan, 1 Spx “DIZ 1003,cm,0),""",1)) 
28 STORED: 9% “ICC(DA,10),""",4) 


14.04 FO ZIP CLE FFeE TEXT K:SL(X)>101 (SAX)<5) X 
M/PORM FID # 55 


28 STORED: =Sp( “I0c( DA, 10),""", 5) 
44 FOST ID: 5 Yeo K:SL(X)>101(SL(X0<5) X s:'Sd(X) am" s:an{"°" ae"” 


13.1 CHCP AGENCY COLE FREE TEXT K:SL(X196! (SL{X)<6) X 
M/PCRM FID # 50 


28 STORED: = Q(“ICC(IA, 9), °°", 2 
44 POST ID: 6 Youn K:SL(X)>61 (SLA X16) X 6:2/SA(X) cae"" s:cnl**" am" 


13.9 CSA SLE OTE rRey TExr K:SL(X)991 (SEAX)<L) X 
M/FCEM FID # 51 


28 STORED: «9p “I0C(DA,9),"°", 10) 
44 POST ID: s Yowmn K:SL{X)>91(SLXICL) X 8: /$d(X) comm" gran "°* cane" 


13 CUTY SINTTON POINIER 1062’ 2N0( 1062, 
M FORM FID #45 


20 CONVERSION COKE: «8 cman cane"? 2,“ (Sd “TNT( 1062,,can, 0) 10) som, 1: 9p “INT( 1062,cm,0),"°",1)) 
28 STORED: Sp “ICC(OK,9),"7"", 1) . 


13.4 DUTY SINTICN ACLRESS FREE TEXT K:SL(X)9541(SLIX)<L) X 
M/FORM FID # 46 


28 STORED: §=9p( “IC (DA,9),"°",5) . 
44 POST ID: 8 mm K:SUAX)>701( SAK) CG) xX g3'Sa(X) am"" s:ayq""" am" 


13.5 UIY SIREN CITy FREE TX K:SL(X)>201( LAX) X 
M/ACRA FID # 47 


28 STORED: = Sp{“TOC(0A,9),"°",6) | 
44 POST ID: $ Moca K:SL(X)>2'(SL{X)<L) X 8:/SA(X) cme"* 3:an{""" aae"" 


13.6 CUTY SIMTICN SIME POINTER 1003 r2(1003, 


M/ACRM FID ¢ 48 


20 CCVERSICN COKE: «8 cSe(cone"*2™, “(Si “DIZ (1003, ca, 0) 810) scam, 1: 9 “DTZ(21003,an,0),""",1)) 


A-3) 





28 STORED: Spi “IOC (mA, 9)", 7) 
13.7 DUTY SINTIN ZIP COE Free Text K:SL(X)>10! (SUX)<S) X 
M/FCRM FID # 49 


2B STORED: 9=Spi “ICC{ OA, 9),""", 8) 
$4 FOST 3D: 5 ern K:SLixX)>101(SL{X)<S) X 6:’Sa(X) ame" s:anf*°" a"" 


X02 RECULAR WORK HOLES FREE TEXT K:SL(X)>14! {SUX} <6) X 
M/PCRM FID # 28 


28 STORED: 99p¢ “ICCI DA, 300),"*",3) 
44 POST ID: 5 Mom K:SL{X)>14! (SL(X)<6) X 8: 'Sd(X) ame”* 6:0n{"°" am" 


303 RECULAR WORK SCHEILLE FREE TEXT B:SL{X)>151(SL(X)<3) X 
M/*CRM FID ¢ 8 


2B STLRED: = Spi “ICC(DA, 00),"°", 4) 
44 POST DD: ss Meorm K:SU/X)915! (924 X)<3) X 8:/SA(X) ane** ssa *°" cme” 


400 ATTENOING PHYSICIAN FREE TEXT K:SU(X)>30! (LAX}<L} X 
M/PCRM FID @ 61 


2B STORED: 9 $pi “1oC{DA, 800),°°",1) 
44 POST ID: s Mec K:SU(X)> USL) X s:°Sa(X) ame"? s:0nf °°" one” 


400.1 OOCS ACDRESS FYEX TEXT R:SUX)SMi(SUXIa) X 
MPCRM FID @ 62 


28 STOPED: = 9p¢ “10C(oW, 400) ,"°", 2) 
44 POST TD: 8 Mean KR: SLX) >451 (SLX) K 6: Sc(X) come" s:cnf"°" cone"* 


WO.2 DOGS CITY hE TET F: SUX) Wt (AKI) xX 
M PRM FID @ 63 


28 STCRED: 3p “OC{ Oa, 400),"**, 3) 
44 POST TD: 8 erm KSLA X) 201 (LA X)<1) X 8:°Sc(X) come” g:crnf"°* ce” 


400.3 DOCS SIE POO TER 1003’ mmz(1003, 
M, PCRM YTD @ 64 


30 CCOLMPRSION OTE: 8 areal come?) (Sd “OTE 1003, 90, 0) 810) scam, 1900 HZ ( 1003, cm,0),7°",1)) 
2B OTTO: CIA, 400), 4) 


0.4 OCS 2IPXTE FY TET KLIK) IGE LLNS) X 


4 FORM FTD 845 


A- 08 








28 STORED: §=$p( “Icc(oA, 400) ,""", 5) 
44 XT ID: s&s wca Ra OSS) X 8:°Sd(X) cae” g:cnf"*" cme 


310 FIRST SOM DME OPaE 5 Wie"E" D “WI S WY K:Yd X 
M/ACHM FID ¢ 399 
20 CONVERSION COLE: 
S %e"(" 5:4Se(cm,4,5) 4K Spl "JAN. FEB.MAR.APR.PAY. JUN. ULAUG.SEP.OCT.NOV.DEC™,".", 

sea 5))_" * s:4Se(cm,6,7) XK Se(cm,6,7) ", " s XK (1700+Se(am,1,3)) 
s:Sp(aa," " 2) ta tek” at Se(cai "000",9,10). ms :* Sei "000", 11,12) 8 K")" 
$2%"(1700)" %e"" 5 cm 

28 SHRED: Spi “KOA, 303),"°",1) 


311 OFSABILED FOR WORK SeTorP ares $y:vES 
SEND 


MFCR FID @ 31 


20 CONVERSION COLE: «8 amd Spi"; ¥:YES;N:ND;",";" cu ":",2),°5",2) ,cpGp(an,":",1) 
28 SIGRED: SpU TOC OA, 303), nee 2) 


304 CAQE RECEIVED NOTICE oe S Wme"E" D “WI S WY K:Yd X 
M/FCRM FID # 40 


20 CONERSICN CXe: 
8 %e"(" §:46e(cm, 4,5) aK Soi" AN. FEB _MARLAPR. MAY. JUN. JULAUG. SEP.CCT.NOV.DEC™,"..", 
+$e(ca,4,5)) " " 8:+Se(an,6,7) Hx Se(aa,6,7) *, * 8 MK (1700+Se(cn,1,3)) 
3:So(an,*.*,2)’="" eK” at * Sete "00" 9,10) ":" Se(ca_“000",11,12) 6 K.")" 
24e"(1700)" He" 6 aK 


28 STORED: Sp¢ “TOC( mA, 300),"°",5) 
229 O/T SICPRED WORK cae S WireET* D “WT S HY KE: Yd X 
M/PCRM FID @ 41 
20 COWEPSIN CIE: 
8 "(" §:4Se(cm, 4,5) SK Spl “JPN. FEB LAPRPAY UN. JULWAUG. SEP.CCT NOW. DBC, *.", 
+$e(cm,4,5)) * * s:6e(an5, 7) %K_Se(ca,6,7) *, * @ MK _(1700+Se(am,1,3)) 
s:3plaa,*.",2)'="" eK“ at” ' Sefcm "000", 9, 10) * tes Sean » "000", 1,12) 6 %K_")* 
g2%="(1700)" "" 5 ct 
23 SUFED: 9S “TCA, 22),"°", 1) 
2300 OT PAY Sipe oa S Wih"2I* D “Wr S HY K:Y¥cl X 
WECRA FID § @ 


20 CONVERSION CCIE: 


5 %"(" 8:+5e(am,4,5) Nok Spt JPN. FEB. PRRAPRLMAY LN, LAG. SEP OCT.NOV. DE", ",* ve 
oa/cm,4,5)) " * 0:460(,6,7) Ht Se(cm,6,7)", * 8 YK (17006Se(am, 1,3) 


Ao39 











s:9p(an,".",2)'=*" eK" at * Setcm_"000",9,10) ":" Se(am_ "000", 11,12) & eX _")" 
S:m"(1700)" xe"" 5 cneX 


28 STORED: =$p( “I0C(DA,221),"°",,2) 
ee 
DATA ELEMENT OATA TYPE FCINTER GLOBAL REFERENCE OR INSUS VERIFICATION 
319 ONTE LAST EXPCEED TO CN CNIE S mE" D “Or S Ne KCl X 
M/FCEM FID ¢ 22 
20 COWERSICN COLE: 
S ¥e"(" s:+Se(am, 4,5) YK Sp( “JAN. FEB MAR.APP. MAY. JUN. JUL AUG. SEP.OCT.NOW DEC", "."", 
+Se(am,4,5))_" " s:+Se(am,6,7) MeX Se(an,6,7) ", " 5 XaK (1700+Se(an,1,3)) 
s:9o(am,".",2)/="" Yak” at " Se(cm_"000",9,10)_ ":" Se(am "000", 11,12) s HaK_")" 
S:%e"(1700)" Xe" s omk 
28 STOFED: Spy “ICC( DA, 303),°7", 5 
231 O/T RETURNED TO WORK XE ae ee 
MFCR FID + G 
20 CONVERSIGN COLE: 
S ¥e"(" §:Se(cm,4,5) KX C Spt “UAN. FEB YRLAPRUAY UN. UL ALG. SPP .COCT. NOV. CR”, "..", 
+Se/om,4,5)) * " e:4Se(am6, 7) ek Se(am,6,7) ", " § XaX (1700+Ge(cm,1,3)) 
s: spe " L)'a"" YeX * at”  Se(cm_"000",9, 15)" *:" Sefam_ "000", 11,12) s Xax_")" 
Ye" 1700)" te" ss cmeX 
28 STORED: § Spt “ICC( OA, 21), 77", 3) 
320 CESCRLBE NEW FORK ASSIGN 
MFCR FID @ 33 
38 STOED: rotere 
29 PREFTELD COLE: 


S:/Sd(ivl) lvleQ i Sd(cti(0))>9 s storfileel d filecne*perfilel k sthfile 


i Sci file), file,Newed ¢ filing e( ‘Sd filing):lvlel, lv)’ <ciling:lvlel,2:filing) 
+d upontr’ fafon s New, chi(0)e"" k file 


5 lvlelvlel 
i ivl 6 CA 3 OA, CONOR f ielvl:-1:1 s:Sd(OMi-t)) OM iON i-1) 
k CACO) S Chye*" Ole"® 
30 POSTFIPLID CIE: 
i iv! s OMOMOA f iel:):lvl s:Sd(OMi)) ON i-LOA(i) 
Silvl GweQN0) k ON lvl),OA(0),O2 § lvlelvi-1 


1$ CALLS M/PORM: CESCRIBE NEW CUTIES (6630) 


“ORM: OFSCRIBE NOW OUTTES (9630) 


A= al) 








re 
I. RE-AC COE 
n filen, rpptfile,New s:’Sd(nooamp) filene"ptc( ifom,99) 
+6:$d(noomp) filene*ptg( 903, iform,99) s New), rptfileel 
5s Un"*" i 'SA(DT) 5 MGark( SH), We" d “WT s Diky k X,Y 
@ sec’ ffm 
@ crindk*fatoa 


T. WINOOS 


TAA ELEMENT ONIA TYE FOINIER GLOBAL REFERENCE CR INEUT VERIFICATICN 
.O1 DESCRIBE NEW WORK ASSING WOO PROCESSING 


Y/ECRM FID #1 
28 STORED: =$p(“10C(DAK(1),311,08,0),"",1) 











TIT. ROST-ACe Cooe 


i $d(file),file s fiLinpéet “Si filing): lvl, vb filing lv, 1:filing) 
sd shuffle ftom d nock0" fot 


140 .A°RD PARTY CASE SST OF COOESY: YES 
N:NO 


M/PCRM FID @ 34 


20 CONVERSION CXE: 8 ceQy$p( "| ¢: YES;N:ND;",";" cm ":",2),°3",1) ,amOp(am,“:”, 1) 
2B STFFD: 1 “TOC(DR,130),""",9) 


141.1 THRO PARTY 


MACHA FID ¢ 35 


28 STFED: rodere 
29 FREFTELD CIR: 
T 'Sdictd (34)) 8 skipe’D” 
A Sct (34)) ws (bak (34) ("1") 1 (cd (34) ("N") shipe"D* 
6:'Sd(lvl) IvleO 4 Sd(cbd(0)}>9 6 ahhfileel d fileone*ptrfilel k sthfile 
i 3 fle), file ttw's) = filingde('Sd( filing) :Ivlel, lvl’ <filing:lvl+l,1: filing) 
4d upontr*fafioe 5 Nuead),chi(0)="" k file 
§ ivlelvlel 


i lvl s CAO)=QA,DOMOK £ imivi:-1:1 s:Sd(DAi-1)) OA i OA i-1) 
30 FOSTFIELD CIYE: 


A-41 








RET EEE OE EPL AA NRE ROTEL IIS LOOMED CRG NTIS, 


i lvl s CA(O)eCA £ iml:l:]lvl s:Sd(DA(i)) OALi-1)OK/i) 
S:lvl DheQA(0) k DA(1V1),DA(O),O1 5 lvlelvl-1 


16 CALLS M/FORM: NAME/ADDRESS THIRD PARTY (#626) 


M/FORM: NAMEVADORESS THIRD PARTY (#625) 





I. RE-AHI COE 


n filen, pptfile,New s:‘$d(noomp) filen’ptc( iform, 99) 
+8:$d(noommp) filene’ptg( 903, iform,99) s Naw), optfi len! 
S Us" i /Sd(DT) s %Sad(SH) ,AOM"" d “WT s Diky k X,Y 
d sec” frfrm 
d crirck fmfre 


TI. WINS 


OATA ELEMENT CRIA TYPE FOINIER GLOBAL FEPERENCE OR SNEUT VERIFICACICN 
.OL NAME free TW K:SUXX)>301(SL(X)<1) X 
4/FCEM FID # 6 ; 
2B STORED: 9 $pi “IOC(DA(1),140,0@,0),"°",1) 
44 FROST ID: s Mec K: SAX) > 301 (SL{X)<1) X 82 /Sd(X) aoe" s:cr**" came" 
5 SEYILEMENT AOLNT NUMERIC FORMAT S2X{"5" GPX, "S",2) Ks 4K X"2NL®."2N) # (309999999.99) 1 (X0) X 
M/FCRM FID #7 
28 STORED: §=$0( “ICC(DA(1),140,08,0),""",6) 
1 ACKRESS FRED TEXT K:SL(X)>7OL(SU(X)cL} X 
MTOR FID @ 2 
28 STORED: 9$p( “ICL (04/1),140,00,0),"°",2) 
44 FST ID: s Mean K:SLAX)>701 (AX)<1) X 8: °SciX) cme”* graf """ one" 
2aTN FREE TEXT K:SAX)>201(SLUXIA) X 
4 FORM FID ¢ 3 
2B STORM: §=Spf “TOC OA 1),140,04,0),"°", 3) 
44 POST ID: 8 Mec K:QLX)>201(SUAX)CL) X 8: °SX) cme” s:cmf*** cne"” 
3 STATE FOINIEP. 1003’ o7z( i003, 


“POR FID ¢ 4 


Av42 











20 COWERSICN CE: 5 ame (came™":™, “($4 DT2(1903, cam, 0) #10) zm, 1: sp{042(1003,cn,0),"°" 1) 
28 STORED: © $p( “1C(DA(1),140,0A,0),""",4) 


¢ ROE FREE TEXT K:$L(X)>i0! (SL{X)<S) X 
M/PCRM FID # 5 


28 STORED: =$p( “J0C(DA(1),140,08,0),"°",5) 
44 POST DD: 5 Wan K:SL{X)>101(SLAK)<S) K 82°Sa(X) ane"* ssaonf"*" am" 





OI. RSt-rcrt Ore 
i Sd(e), file s filirge('Sdi filing) :ivl,lvbfiling:1vl,1:filing) 
40 noe0* fiefs 


RL A TEE TET A TY 








20 CRFICIAL REMARKS FREE TEXT F:SL(X)>501(SLX}<2) X 
M/PCEM FID # So 


28 STORED: Spf “10c(Da..02),"°",6) 
44 POST ID: § Mean K: 50 X)>50!1($4{X) <1) X $3/Sd(X) ane"™ sag "" am" 


402 SUPERVISOR'S NAME FREE TEXT K:SUAX}>FOL (HAR)<1L) X 
M/FCRM FLD # 57 


28 STORED: $e “ICC\EM, 402),""",1) 
44 POST ID: s Mean K:QAX)> 301 (SUX)<L, X 82°Sd(X) ane" crank "*" coe" 


402.1 SUPERVISR’S TOILE FREE TEXT KR: SL{X}>3G1 (SL{X)<1) X 





MVPORM FID ¢ 58 | 


2B STORED: 9X “I0C(TA, 402),"77,2) . 
44 FOOT ID: s Mec Ks K)> 301 (SIAX) CL) X w2"SA(X) ame”* gran "** cme” 


902.2 SUPERVISOR'S PHONE NUMBE FRPE TXT K:SL(X)>141(SUX)<7) X 
M/PCRM FID § 9 


28 STORED: 99 “ICC{ On, 4973,""", 3) 
44 POST ID: & Mem 1: SL(X)>141(SL(X)<7) X 83°Sd(X) ane" ssanf"°" ane” 


402.4 DPGE SERVISGR SIGED rE S WINE" D “WT S MY K:Yd X 
M/FORA FID ¢ 60 | | 
20 COWERSION CIEE: 


8 Ye"(" g:+Se(cn,4,5) XeX Sol "CAN. FEB.MARLAPRL AY. UN. OUL.AUG. SEP.CCT.NOV, DEC”,".", 
+Se(am,4,5)) " * s:+e(cn,6,7) HK Se(cn,6,7)", " 8 XK (1700+Se(am,1,3)) 


AW43 











s:Sp(am,".",2)’="" Me” at " Se(an_“000",9,10)_":"_Se(an_"000", 11,12) S Xax_")" 
8:%"(1700)" Xe"" s ank 


28 SIGRED: $p(“10C(DA, 402),""",5) 





TIT. POST-PORM CLE 


i Sd( file). file,New’=C s:/Sd(lvl) lvl=0 
+5 filingpSe( ‘$d( filirg):lvl,lvbfiling:lvl,1: filing) 
+d *fnéoa 
i fileel! ($d(ERFLAG) ) @ CALYTSCAN, “TSCFILE 











CA-2A NOTICE OF RECURRENCE OF DISABILITY 





PART A--EMPLOYER 


ie 
4. 


‘12. 


A. 


13, 
14, 
15. 
16. 
17. 


18, 


ly. 
20. 
21. 
22. 
23. 


NAME OF INJURED EMPLOYEE 
SOCIAL SECURITY NUMBER 3. OWCP FILE NUM BSCS 
HOME MAILING ADDRESS (INCLUDE ZIP CODE) 


CIty STATE Zip CODE. sC~s*S 
HOME TELEPHONE 
NAME OF EMPLOYING ETRE LISHMENT AT TIME OF CRICGINAL INJURY 





hts ee 
CY. -. es OE Oe 
NAME” OF EMPLOYING ESTABLISHMENT AT TIME OF RECURRENCE, IF OTHER 
THAN #6 
ADDRESS 
Cry eee Ce 
DATE AND HOUR OF ORIGINAL INJURY (HO. ,DAY, YEAR) ae aa ee 
DATE AND HOUR OF RECURRENCE 

DATE/HOUR STOPPED WORK (AFT 

DATE/HOUR PAY STOPPED (AFTER RECURRENCE) 
PAY RATE IN EFFECT ON: 

A. BASE PAY 8B. SUBSISTENCE C. QUARTERS D. OTHER PAY 

$ $ 



































DATE deco Beet els 
RECURRENCE PER PER _ PER PER 

DATE WK $ $ ma $ ae 
STP AFT PER PER PER PER 


SHOW WORK WEEK AT TIME PAY STOPPED 

DATE/HONR RETURNED TO WORK (AFTER R RECON oe 

WAS MEDICAL TREATMENT AUTHORIZED? 

DATE FIRST RECEIVED MEDICAL TREATMENT 

ATTENDING PHYSICIAN 

APDRESS 
CITY STATE ZIP CODE 
DISABLED FOR WORK: a rigor sare 
*Press <Return> for DESCRIBE NEW DUTIES* 

*Press <Returcn> for SUPERVISOR’S STATEMENT* 

SIGNATURE OF OFFICIAL SUPERIOR 


TITLE 














PART B--CONTINUATION OF PAY 


z4. 
25. 
26. 
27. 


REGULAR PAY CONTINUED DURING THIS PERIOD 

SHOW GROSS OF REGULAR PAY 

IF PAY CHANGED DURING COP, DATE CHANGED _ . 
IF PAY RATE CHANGED, GIVE NEW RATE 
A. BASE PAY B. SUBSISTENCE C. QUARTERS 
D. OTHER (SSECTFY) SPECIFY OTHER 


pomeneenenenenataneeetetenaammennmmnemenmetmnemeememanammnamennatmmmmnramnamentenens 








A-45 














CA-2A CON'T 








PART C~--EMPLOYEE 
28. Press <Return> for WORK INFORMATION 
29. WHILE DISABLED FOR WORK: 





A. SICK/ANNUAL LEAVE, FROM: THROUGH: 
B. CONTINUATION OF PAY, FROM: THROUGH: 
C. CONTINUING COMPENSATION, FROM: THROUGH: 


31. DATE (MONTH, DAY, YEAR) 








WORK INFORMATION 


ote resentation hana SeremeNocentecssemnne aS 





DATES & HOURS WORKED 

PAY RaTE : oS OTAL AMOUNT EARNED 
TYPE WORK PERFORMED rd fo a Po eee ee 
EMPLOYER NAME 
EMPLOYER STREET ADDRESS 
EMPLOYER CITY/STATE/ZIP CODE ee 


Sean IEIDEER EE nienamneemmenenereeneen nencmneiaemenmnemeenaermanmanaraaarecenmecuness name etiaerasecammemmsamaaeemeeantn aaeee ee enel 





ne rrianeranaencteerennammpetelARctatcAsdenteerectde ett ASA ALCS ATi eestor Arnie aspen hein tneras esr sey.nnsrh denn pyarbehanatmiatontinunrnmatnnnvnienishen 


*Word Processing Window will appear. 


A-46 





2VROR OF-2A (4651) 


as : ; 


1, PRE-FORM COE 


n filen, rptfile, filing s:’$d(noomp) filen="ptc(ifonn,99) 
+6:$d(nocomp) filen=*pog(903, ifoom,99) s New), pptfile=l,idexist=2 k ident 
S Un"*" i /Sd(DY) ss MexSarl( Si) ,We"" d “WT s Diky k X,Y 
d sec*finfom 
n filen, rptfile, filing s:'Sd(noomp) filen="ptc(ifomn, 99) 
T SO(DA) S PAY6S(SO( “TOC(DA, 231) ) :°( 231) SO “TOC(DA, 229) ):*(229),1:"") 
I. (DA) S (“1CC(DA, 213), “ICC(DA, 214) PAY, “IOC(DA,210)—"" K BAY 





TI. WINDS 
oo) . 
TATA ELEMENT CATA TYPE FOINIER GLOBAL REFERENCE OR INSUl VERIFICATICN 
2 NRE FOINIER 1004’ EMELOY( 


M/FORM FID # 57 


17 EXTERNAL CEFALLT: NAME 
18 INTERAAL CEFALLT: 


NYEPIR 
20 CONVERSION CE: camGa(ane™":™,*(S( “EMELON( can, 3! #10) som, 1:9 “EMPLOV(am,0) ,"*",1)) 
23 STORPD: = $p(“ICC(0A.0),""", 3) 


32 FOST FILING COE: d setinck”fmérm 


44 FOST ID: 1 S(new) s:/Sd(“ICC("C*,new,x1)) come"" »mage"CLAIM NOT LOGED!", ye24 
54 INCEX: “100("C") 


55 LOORUP NOLE: 
57° 30°Spl “100 Lids,0),""",3) 
12°23°Sp( “IOC( Lids, 0),"°",2) 
3SN FREE TEXT 9 KssL(X)091(SL(K)<9) 1 (XOGN) X 
M/PCRM FID # 2 . 


2B STORED: = Spt “1cl(ma,0),""",4) 
44 FOST ID: § Xecam R:SL{X)>91 (SLX) <9) 1" (X29N) X 82/Sd(X) ame" ssanf"°" ce 


137 CACP FILE NPEER FREE TEXT R:SL{X)>131 (SAX) <1) X 
M/PCRM FID ¢ 3 


28 SICRED: = $p(“10C(DA, 130),""",6) 
44 FORT ID: Mecm K:SL(X)>131(SL(X)1) X s:"Sd(X) ame" s:an{"*" am" 


7 STREET ACKRESS Pree TEXT R:SL(X) 641 (SAX) CL) 2X 
M/FCEM FID @ 4 


AW47 














28 STORED: $p( “ICC(mR,1),""",1) 
44 POST ID: ss Yeam K:SL(X)>64!(SL(X)<1) X s:’Sd(X) am" s:an{"*" ame"”" 


8 CITly FREE TEXT K:$L(X)>23! (SL{X)<L) 1’ (X2.AP) X 
M/FCEM FID # 5 


28 STCRED: $p(“ICC(TA,1),""",2) 
44 POST ID: s Yeom K:SL(X)>23!(SL(X)<1) 1" (X2.AP) X s2’Sd(X) am" s:anl"*" ane" 


9 SINIE FOINIER 1003’ 072(1003, 
M/PCEM FID # 6 


20 COWERSION ODE: ss amée(am"":"™, ($d “DIZ(1003, cm, 0) )#10) som, 1:$p4 “DZ(1003,am,0),"°",1)) | 
28 STORED: $p( “ICC(IA,1),"°", 3) 


10.5 ZIP OLE FREE TEXT K:$L(X)>10! (SL(X)<5) X 
M/FORM FID ¢ 7 


28 STORED: $p( “10C(DA,1),"°",6) 
44 FOST ID: 6 Meom K:SL({X)>101($L(X)<5) X s:/Sd(X) one"" s:an[""" cnet" 


9.5 OVERSEAS ACDRESS FREE TEXT K:$L(X)>641(SLX)<1) X 
M/AFCErt FID # 8 


28 STORED: 9$p(“I0C(MA,1),"*", 4) 
44 POST ID: 8 Mem K:SL(X)>641(SL(X)<1) X 82°Sd(X) ome" ssa "°" ane" 


10 HOME PHONE NUMEER Free TEXT R:$U(X)>151(SLAX)<1) X 
M/FORM FID # 9 


28 SICFED: SX “1CC(,1),""", 8) 
44 POST ID: 8 eam K:SL(X)>151(S2AX)<1) X 82'Sa(X) om" s:anf"°" ane"” 


13 DUTY SIATICN FOONTER 1062’ IND(1062, 
M/ACFM FID # 22 


20 CONVERSICN COE: ss cGe(come"*:", "(Sci “1N(1062,cm, 0) ) #10) mn, 1: 9p “2N0(1062,cn,0),"°",1)) 
28 STORED: 9$p( “ICC(DA,9),"°", 1) 


13.4 DUTY SUNTTON ACORESS PYLE TEXT K:SEAX)>S4t (SLAX)<1) X 
M/PORM FID # 33 


28 STORED: 9Sp(“10c(mA,9),""", 5) 
44 POST ID: § Yecmn K:SU(X)>701 (SEAX)<1) X s3°Sd{X) cme” gscmg””"" ane" 


13.5 DUTY SINTICN CITY PRES TEXT K:SL{X)>201(SUAX)L) X 


A-48 








M/TORM FID # 34 


28 STORED: $p( “ICC(MK, 9), "-",6) 
44 FROST ID: sg Neon K:$L(%)>201(SL(X)<1) x 8:/Sd(X) ame" g:anf"** gna 


13.6 DUTY SITICN sae FOINIER 1003" 11z(1003, 
M/ECRM FID # 35 


20 COMERSION CEE: 5 CmSe( cme" "11547 “DH2( 1003 ,cxa, 0) }#10) rom, 1 :$p¥ “DHZ(1003,cm,0),""",1}) 
28 SICRED: Set “ICCTA, 9),""",7) 


13.7 DUTY SIREN zp one REE TEx K:$L(X)>101(SL(X)<5) x 
MAEM FID # % ; 


28 Step: Set “Tac(mA,9),""",8) 
44 KET ID: s Xam K2SU(X)>10!($2(}<S) x 8:'Sd(X) ame" S3onf"*" net 


2201 DUTY STATION AT FELREEN FOINIER 1062’ 1ND(1062, 
MPM FID # 2 


20 COWERSIN COE: 5 ame(came™: "1/54 “NZ(1062,.c,0) #10) sem, 1:90 “INT(1062,cn,0),""*,4)) 
2B SIRED: Sp “ICC{EA, 210), ""*, 4) | 


220]. LRECURRENS? ADDRESS FREE TEx K:SU(X)>541(SU(X)<1) x 
M/PCEM FID § 53 


2 STcRen: Sed “TOC( DA, 210) ,"*",5) 
44 OST ID: s Xm K:SL(X)>541(SL(x)<1) X $:'SA(X) cite Sra" cet 


220]. 2FECURFENCE CITY PRES ToxT K:SUAX)>201($24X)<1) X 
N/PCRM FID # 54 


28 Sivrep: Se “TCC(OA, 210) ,""",6) 
44 RST ID: s won K:SU{X)>201 (SUKI) X 8:'Sd(X) ome” s:an "*" one 


2201. FEOURENCE stax FOINIER 1003’ 01z(1003, 
M/PCRM FID #55 


28 SIURD: Spt “TGC( DA, 210),"°",7) 
2201. GFRCURRENCE ZIP COO OE TEXT RESTA) 101 (SLA) <S) 1" (XN ORNL" 99)) x 
MPC FID § 


2B SURED: $9 “TOC(EA, 210), **",8) 
44 FOST ID: 8 Yaa RsSUAX)>101(SLAX)S) 1 (XEN (XPNA"-"4N)) X 2 °S4CK) come s:om""" one 


20 COWERSICN OTE: 5 CmGe(cm"* 3", (S47 “D2(1003,cm,0) }#10) som, 1:94 “DIZ(1003,cm,0),**",2)) 


A-49 











1 DOURY/TLLESS ONE ¢ TI ONE S WIEN D “Wr S MY K:¥<l X I SO(X) K:SP(X,".",1)09P X 
PCR FID ¢ 2 


20 CONERSICN CCIE: 
S Xe"(" s:+Se(am,4,5) XX Sp "JAN. FFB.MAR.APR.MAY.JUN.JUL.AUG. SEP.OCT .NOV.DEC",".", 
+Se(an,4,5)) """ s: +Se(am,6, 7) ¥eK Se(an,6,7) ", * 5 MX (1700+Se(om,1,3)) 
s:Sp(am,".",2)'="" Yak" at " Se(an "000",9, 10)" "3" Se(an "000",11,12) 3 XaK_")" 
s2Xe"(1700)" X=" § ameX 


SICRED: 9p(“IC(nA,0),""",2) 
FOST FILING CALE: di setirck” ffm 
INEX: “I0C("D") 
LOCKLP NIE: 
12°23°9p( “10C{ Lids, 0) ,""", 2) 
57° 30S “IL Lids 0) ,"°", 3) 


REBB 


2202 DATE/TIME OF RECURRENCE CAIE S S"EI” D “WT S Yay K:Ycl X 
M/FCRM FID # 31 


20 CCOWERSICN COLE: 
8 e"(" 8:+Se(cm, 4,5) Ma Spi “JAN. FEB.MARLAPR.MAY JUN. UL.AUG. SEP.OCT NOV. DBC",".", 
+Se(am,4,5)) " " s:+$e(an,6, 7) YK Se(an,6,7) ", " © AX _(1700+Se(ax,1,3)) 
8:Sp(an,". ",2)'="" WK" at”  $e(cn "000",9, 10) it ' Se(cma_“000", 1,12) s *X_")" 

8:X"(1700)" Xe"" 5 cmK 
2B SHRED: = Sp “ICC(TA,210),"°",1) 
2203 REC D/T STOPPED WORK CATE S We"EI” D “WT S Hey K:Y<l X 
M/FORM FID # 67 


20 COWERSIGN COLE: 
& %"(" 8:+Se(an, 4,5) 4K C Sp("OAN. FEB.MARLAPRUPAY..N.OUL.ALG. SEP.OCT. NOV. DEC, ".", 
+Se(-m,4,5)) " " 8:4Se(c,6, 7) YoK Se(cm,6,7) ", " & XK _(1700+Se(am,1,3)) 
s:Sp(an,".",2)'="" eX " at * ' Se(ca_ "000", 9, 0) nee ' Se(aa *000",11,12) & Mei<_")" 
$:%"(1700)" Xe" § aneX 


28 STORED: 9 $p( “ICC (DA, 210) ,*°",9) 
2204 RECLRRENCT OF PAY SICPFE CME S Wls"EI" D “WT S mY K:Ycl X 

M/PCRM FID # 77 

20 CONVERSICN COTE: 
S Xe"(" 8:4Se(an,4,5) YK Spl “IAN. FEB.MAR.APRUPAY. JUN. JUL. AUG. SP.OCT. NOV. D”,,".", 
+Se(am,4,5)) * * 5:4Se(an,6,7) %K Se(am,6,7) ", "s eX C (1700+Se(au,1,3)) 
8:9p(an," .",2)'a™ Na" at" ' Se(ca "000",9,10). _*:" Se(am "000", 11,12) § XK _")" 
6:¥="(1700)" X=" 5 aX 


2B STORED: 9p( “TOC{DA, 210), "*", 10) 





A-50 








42 CONTINUATION SMELOWEE: 
CRIA ELEMENT ORTA TYPE POINIFR GLOBAL REFERENCE OR INFUT Vergrrq@urinn 
2202. LRECURFENCE BASE FRAY NYERIC FORMAT S:X["S" %SP(X, "$",2) K:4X! @XE(X'?.NL"."2N) 1 (3999999.99) 1 (X<0) X 


M/PORM FID # 59 
28 STORED: $p( “1cC(DA,214),"7",1) 


2202. SRECURRENCE SUBSISTINGE NUMERIC FORMAT S:X1"S™ eGP(X,"$",2). Ke-9/ G(X! 21". "2N) 1 (90999999.99) 1X0) X 


M/FCRM FID € 60 
28 STORED: 2p( “T0C(DR,214),""", 3) 


2202. GRECURRENCE QUARTERS NUMERIC FORMA S:Xf"S" XeGP(X, "S",2) 24K XE (X? 2.1L", "2N) ! (X5999999.99) 1(X<0) X 


M/PCRM FID ¢ 63 
28 STORED: 90( “ICC(mA, 214),"7", 5) 


2002 . SRECURRENCY, CIHER AALE NMERIC FORMAT SX1"S" 3GP(X, $7.2) K:+K' K(X 2.NL". "2N) 1 (30999999.99) 1x0) X 


M/YCRM FID ¢ 64 
2B STORED: Spy “IOC{TA,214),"*",7) 


2202. SRECLRRENCE BASE BASIS SET OF COOES)—sH: HOLLY 
W:WEERLY 
M: MONTHLY 
8: BI~-MCNTHLY 
A:ANNLALLY 
D:OALLY 
“rch PID € 53 
20 COMERSICN OTE: 3 corp) Sp" |H: HOURLY fw: WEPRLY ; M:MONTHLY ;B: BI -MONIHLY ;A: ANNUALLY; 
D: DAMS “ 7" cm *:",2),°:",2) ,cmOptaa,”:",1) 
2 SICFED: Sot “Toco, caj,"°",2) 
2202. 3SRECLRRENCE SUB PASIS SET CP COOFS) so H: HILLY 
WACFPLY 
M:MCNIHLY 
B:8I-MONTHLY 
JLANALLY 
D: DAILY 
M/PORM FID 6 61 


20 COMPSION CIE: « om": 4 HOURLS Ww WEERLY ; M:MONIHLY :B: BIMONTHLY ;A: ANNUPLLY ; 


D:DAILY;",";" cm *:*,2),";",1),ca@(an,*:",1) 
28 STORED: 3" Tocita,214),"**, 4) 


AoS1 








~202. SSRECURRENCE CLART BASIS ST CP COPESSs HW: HOLLY 


B: BI-PONIHLY 
DO: DAILY 


M, FORM FID # 62 


20 COWERSION COLE: Ss 5 cri S( "| H: HOURLY WAWFERLY;: M:PONTHLY;B: BI-PONTHLY sA-AANLALLY; 
D:CAILY;",";" am_":",2),";",2) ,ceaeGp(am,":",1) 
28 SICFED: 9p “ICC(mA,218),"*", 6) 
2202. 55SREC OTHER BASIS SAT OP COOES.—sOH:: HOLLY 
W:WEEFLY 
M: MONTHLY 
B: BI-PONIHLY 
ACANLALLY 
D: CAILY 


M PCEM FID #65 


20 CONVERSION COE: § arGp( 9p( °H: HOURLY WNERLY ;M:PONIHLY 8: BI-PONTHLY ;A:ANNLALLY ; 
D:OAILY;",";" aa ":",2),";",1),cGplan,”:",1) 
28 STORED: §=$p¢ “TOc(mw, 214), °°", 8) 


2203. LREC WORK STOPPED BASE RA NUMERIC FORMAT S:X["S* MeGP(X, S742) Kr 4 K(X"? NL". ON) £ (299999999) 1(X<0) X 
M FCRM FID # 69 


2B STORED: = 9p¢ “IOC( DA, 213),"°",1) 

2203. REC WORK STOPPED SLESIST «= NMERIC PRR S:X1S" XeGP(K,"S,2) Ri9N kG OX 2.NL". ON) | (0999999.99) 1X0) X 
M, FORM FID # 70 
2B STORED: 9 9pt “IOC! ow, 213;,,"°", 3) 

2203. 4REC WORK STCPPED CLARIER NUMERIC FORMAT S:X0"S" NeGP(X,°S"2) Ks 4K he (X21. M2N) | (2999999.99) 1 (X<0) X 
MRM FID @ 72 
2B STR: $= 9p “Tc, 23),""", 5) 

2203. SREC WORK STOPPED CTW Ko NLMPRIC FORMAT S:X]"S" eGP(X,°S%,2) KX ev (X’ 2NL". "2N) 1 (30999999.99) 1(X<0) X 
MPR FID @ 74 
2B STORED: = 9p( “1CC( 0A, 213), °°", 7) 

2203, REC WORK STOPPED PASE PA SET OP COTES A: HOLLY 


A-$2 








ANULLY 
D:DAILY 
MACHA FID # 68 
20 COWERSIN ons s Com 9p * A: ECUALY /W-AEERLY 21: PONTRLY 8:80 -FONTHLY ACANNLALLY; 


D:DAILY;",";" we elect Rad ",1) 
28 SURED: $i Tortta, 213)" 12} 


2203. 3GR8C WORK SIQPPED GB EAS SETOP CUES E:HIRLY 
WAEERLY 
MONTHLY 

B:BI-MONIHLY 


ANALY 
D:DAILY 


M/A FD # 71 


20 CONERSICN i 8 camSpk Spt" FH: HOURLY /AABERLY ;M: MONTHLY /B: BT-PONTHLY ;A:ANNLALLY; 
D:DAILY;",";" cm *:",2),":",1),camp(an,”:",1) 
28 SICRED: ‘Toot, 213), 4) 


2203.4SREC WAK STPPED QLART BAS «= STOOP CODES HEU 
WEERLY 
MONTHLY 
B:Bl-MONHLY 
AJNNALLY 
D:DAILY 


MACHA FID @ 73 


20 CONVERSION COLE: 5 cameSpt $p\ * | H: HOURLY AW WEERLY ;M: MONTHLY; 8: 8T-MONTHLY ;A:AANLALLY; 
D:CAILY;",";" cm *:°,2),";",1),cmSam ":",1) 
28 SICRED: "$i “To, 203),""",6) 


7203. SSREC WORK STOPPED OTR S SETOP CIES H:HOURLY 
WAWEETLY 
MONTHLY 
5:B8I-ACNELY 
ANALY 
D:DAILY 


PVETM FID ¢ 75 


anemones 8 sae So” AICLELY W-NERRLY :MAPCNIHLY Pe BT-PONTHLY ACN; 
O:DAILY:",";" cm ":",2),"; *,1),cm6ptam,": :",1) 
28 SERED: ‘$ Tortta, 213)" 8) 


303 FECLEAR WORK SOSTLLE PRE TEXD = K:SUAX) 9151 ($LAX)<3) X 
PY/PCHM FID @ 17 | 


2B STFED: x “ICCIOA, 300),"**, 4) . 
44 HOST Wr & Mec R:SL1X)>101(SLLK)<3) X 82°Sd(X) ae” gran" om 


A-5) 











“205 REC IVT REIURNED TO WOK OME S %le"El" D “WT S HY K:Yd X 
M/ARCRM FID # 78 


20 COWERSICN CIE: 


S Ye" (" s:+Se(am, 4,5) Yak Spf "JAN. FEB MAR APRLMAY. JUN, QLAUG.SEP.OCT.NOV.DEC",".", 
+*Seiam,4,5)} " " 5:4Se(am,5, 7) YeX Se(om,6,7) ", " Ss XK (1700Se(un,1,3)) 


s:Sp{am,". " *. ¥*, 
s:x~"(1700)" xo" § omeX 


28 STORED: $p( “IC@C(OK,210),"°", 1) 


2206 DID CAP AUTHORIZE TREAT ST OF CLES Y: ES 
N:NO 


M/FCRM FID # 19 


20 CONVERSION COLE: s ameGp( Spi" ;¥: YES ;N:NDsnshOsyz¥E5;",";" cm ":",2),"5" 
QR OSTOFED: =$p( “IOC(DA,210),77",2) 


2207 TATE LST TRENIMEINT AFIER CXTE S Wle"E" D “WT S HY K:Ycl X 
M/PCRM FID # 20 


20 COWERSICN COLE: 


& Xe"(" §:+Se(cm,4,5) YeX_Sp( "JAN, FEB.MARAPR.MAY. JUN. JULAUG. SEP.OCT NOV.DEC",” 
+Se(cm,4,5)) * " s:+Se(cm,6,7) eX Se(an,6,7) “, * 6 MK (1700+Se(om,1,3)) 


° 
c 


Z)"="" Xa" at" Seicm "000",9,10)_":" Seam "000",11,12) 5 XaK")" 


1) ,ameSp(cm,":",1) 


. oe 


s:9p1an,".",2)/="" Yak" at " Se(ca "000" 9.1) ":" Se(cah "000", 11,12) 8 XaK.")" 


$:X="(1700)" Xe"" § omnK 
2B STORED: §=9p( “TOC(DA,210),"°", 3) 
400 ATIENOING PHYSICIAN FREE ‘IFXT R:S{X)> 30s (QUAIL) X 
M/PCR4 FID ¢ 2 


<8 STORED: $= Sp “100(mA, 400),"*",1) 
44 POST I: 5 Meo K:SAX)>301(SLAX) <1) X 8:°Sd(X) am”" ssam**" anm”” 


"$00.1 OCCS ACORESS FRE TEx K: SUX) 54! (SUNEL) X 
My PCRM PID ¢ 43 


23 STORED: =9p( “10C( OA, 600),"°", 2) 
44 POET ID: w Meo K:SL(X)>45! (SLX) C1) X 8: °Sd(X) came” san"? cae" 


400.2 DOCS CITy FFEX TEXT K:SU(X)>201 (SUX) X 
M FORM FID @ 44 


28 STORED: $4 77CC( on, 00),"°", 3) 
44 POST De 8 Hoc RSX) >S01(SLUXIL) X s:/Sd(X) am" s:aq"°" ane" 


400.3 DOCS SIME PCINIER 1003’ o7z(1003, 


A=56 








M/PCRM FID # 45 


28 SICFED: So" TOC{ER.400),""",4). 


400.4 DOCS ZIPCYLE FREE TexT K:S1{X)>10!(SL{X)<S) X 
M/FCRM FID ¢ 46 


28 STORED: 9p “10C(DA, 400),"*",5) 
44 POST ID: = Meom K:SLAX)>108(SL1X)<S) X 8:/SA(X) come" s:an("*°" ape" 


CROA ELEMENT CAA TYE FOINIER GLOBAL REFERENCE OR INEUT VERIFICATION 
31. OLSAMLED RR WK Ser ce CEES) = ¥: 85 
N:NO 
M/PCEM FID # 22 


20 COWERSIEN COLE: 8 omdipl Sx ";¥:YESHNEND;", "7" cam "2",2),"5",2) amOpam,"2",1) 
28 STORED: 9p “1CC(DA, 303),°",2) 


320 DESCRIBE NEW WORK ASSIGN 


4/PCRM FID # 23 


28 STORED: rowere 

29 PREFIFLD CLE: 
8:/Sdictd(22)) skip="D" cht (0,23}—"" 
4 SA(chd(22)) sscrt(22)( "7! (cot (22) ("°N") skip="D* cd (0,23)—™* 
e:/Sa(lvl) lvieO 4 Sdicht(0))>9 @ shhfilesl d fileane*prrfilel k sthfile 


i Sd( fle), file, New) 6 flingGa( '$d{ filing) :lvlel,lvi'<filing:lvlel,1:filing) 
+d upcntr” fifo 6 New, choi (0)m"" k file 
& ivlelvl+l 


i lvl s CA(0)=OQA, D000 f ielvi:-1:1 s:$d(DAi-1)) OA(i OA{i-1) 


30 FOSTFIELD CCIE: 


i lvl s CA(O}=OAR £ iel:1slvi s:Sd(DKi)) OM i-1 ON i) 
s:lvl OreQA(0) k OA(1v1),ON0),O2 8 lvleivl-1 


44 ECST ID: ; 
I "Sebi (22) & sdeips"" chal (0,23 )0 
i Sd(cbd(22)) sshd (22) (41 (cbt (22) °Y") skeip="D" cot (0,23}="* 
16 CALLS M/PORM: DESCRIBE NSW CUTIES (4630) . 
M/TORM: CESORIBE NEW LUTTES (9630) 
ae 1 I SEES SET IS A TENS SARTRE GEST IE IE TEC SS LEE ETI E EEE ITEC SENDS LL DEED EOL LEE LIONEL DEEL ATL 


I. PRE-PORM Coy’ 


n filen, pptfile,New s:’Sd(nooamp) filene="ptc{ ifomm, 99) 


A=55 








+6:S3(rocatp) filene*pegi 903, iform,99) s New, r tfile=l 
S Un"*" i ‘Sd(DT) s XeGacl(SH),2O0Te"" d “WT & Diey k X,¥ 
d sec’ feo 
d@ crink fmfon 


II. WINS 


DESCRIBE NEW DUTIES Window I 


POINTER GLOBAL FEFEFENCE CR DNEUT VERIFICATICN 





CATA ELEMENT DATA TYPE 

.0] DESCRIBE NEW WORK ASSING WORD PROcESSIG 
M/PCRM FID ¢ 1 
28 STORED: $p{“I0C(DA(1), 311,08,0),"",1) 





TTI. FOST-FORM CLE 


i Sd(file),file s a ee: lvl, iv filing: lv1,1: filing) 
+d shuffle’ fnfoa d nodeO” ffm 


sxenseesn mmm ee es AI AEA SEA SEAS ESTE OE CRESS 


2209 SUPR STATEMENT AZ FECLR 
M/ FORM FID # 24 


28 STORED: nowhere 
29 PREFTFLD COLE: 
$:'Sd(lvl) lvls i Sd(chi(6)}>9 ¢ sthfileel d filecre’perfilel k sthfile 


i Sd file), file,New'=0 © filingede( 'Sd{( filing) :lvlel, lvl’ <filing:lvl+l,1:filing) 
+d upontr” fméoa g News), chi (0)="" k file 


8 lvlelvlel 
i lvl s CA(O)=OR D0e0N f ielvl:-1:1 s:Sd(ONi-1)) ON i}Oali-)) 


30 FOSTIFTELD CIE: 
i lvl s CACO}=OA f iml:l:lvi s:Sd(OMi)) OAi-1)<OA(i) 


S:lvl DMeQA(0) k DA(1v1),OA(G),O1 s lvlelvl-i 
16 CALLS M/PORM: SUPERVISCR’S SIPOEMENT (#653) 


M/FCRM: SUPERVISOR'S SIKIEMEND (#653) 


«cpp ec SSA IE LTTE TEASE OT PE a EST OI EOI SED RD ELIE N AL EOE LOR ILE EEDA LE LET LEED ONE ELD 


1. PRE-FORM CLE 


n filen, rptfile,New s:/Sd(nocanp) fileneptct i form, 99) 

+6:Sd(nooamp) filane"ptg(903,j form, 99) s Naw), rptfile=l 

S Ue" 4 'SdIDT) § YeGard(SH), W0Te"" d “WT s DRY k X.Y 
d sec” fnfoa 


A=56 

















a 
d crintk” fantom 
TT, WINDS 
SEMIS SRM Saw YOCSCSCSCSCSSCSC“‘; OSS 
OXTA ELEMENT OAIA TYPE FOINIER GLOBAL REZERENCE OR INFUT VERTPICATICN 


.01 SUPR SINTMENT AT FER SRD PROCESSING» 
MAEM FID $ 1 
28 STOFED: So(7ICC(OAi!,212,08,01,"",1) 


U1. ROST-ForMt OTe 


i Sci File), file 6 fllingeGe('Sc{filing):lvl, vb fiiing:ivl,1: filing) 
40 ehxffle* fietre d mas" fein 





402 SUPERVISGR’S NAME Pree TEXT R:SU{X)>3O! (SUAX)<1) X 
Meee FID # 47 


2B SICRED: 9=9p( “ICDA, 402) ,"°",1) 
44 XRT ID: 6 Mom K:Q(X)>R(SL(R)<L) X 2 /Sd(X) one" sang *" cow” 


8C2.1 SUPERVISOR'S TITLE YRee TEXT K:SU(X)>30! (SLX) <1) X 
M FORA FID # 49 


28 STORED: = $p{ “TOC( OA, 402),""",2) 
44 POST ID: § Mean K:SL{¥)>301(SLAX)C1) X 82/SA(X) cme" grant °°" ome" 


402.2. SUPERVISOR'S PHONE NLMBE Free TEXT R:SU(X)>14!($L(23<7) X 
M/FCHM FID # 48 


28 S1CFED: Spl ICC( mA, 2) ,*°", 3) 
44 FOST ID: 6 Meco K:SU(X)>141(S0(X)<7) X 8:°Sd(X) ame” sscml 7°" ape"? 


402.4 DIS .UPERVISOR SIGED OME S Wih"E" D “MT S WY K:Ycl X 
M/PCHM FID @ 50 


20 COAVERSIIN COLE: 
S %="(" 8:4+Se(0n,4,5) eK Spi “OPIN. FEB MARAPROMAY. JUN. JLLAUG. SEP.OCT.NOV.DEC™,”.", 
sSe(am,4,5))_" " 8:46e(cm,6,7) Nex Se(am,6,7) ", ” © XK _(1700+Se(cm,1,3)) 
&:Sfam,".", 2) a %K " at * Se(ce "000*,9,10) ":* Se(cm "000", 11,12) s wx_")" 
8:%0"(1700)" Se?" 5s mK ” ve 


A-5? 














28 STORED: $p( “I0c(DA, 402),"°",5) 





Ta CRON CR 
DATA ELEMENT CRIA TYE POINIER GLOBAL REFEFENCE OR INEUT VERIFICATICN 
250 COP REC\D FROM DIE S WIe"S" D “WIT S Me R:¥cl X 
M/PORM FID # 91 
20 CONVERSION COLE: 


& %e"(" 6:4Se(cm,4,5) Nak Spl “JAN. FEB.MAR.APRMAY.JUN.JULAUG. SEP.OCT NOV .DED",".", 
+$e(am,4,5)) " " s:+Se(am,6,7) HK Se(cm,6,7) ", © $ XaK_(1700+Se(am,1,3)) 


$:$o(an,". ",2)/="" eX" at " " $e(am "000", 9,10) .* 2" _Se(am "000" 711,12) & %K_")" 
5:%"(1700)" %e"" 5 ameX 


28 STORED: $p( “10C(DA,250),""", 1) 
250.5 COP ReCVD THA DOXTE S WIe"E" D “WT S HY K:Yd X 

MCR FID # 93 

20 COWERSICN CLE: 
S ¥e"(" s:+Se(cm, 4,5) eK Sp( "GAN, FEB.MARAPRMAY. JUN. JUL.ALG. SEP. OCT .NOV.DED”,".", 
+Se(am,4.5)) ""s: +e(an,6, ) YK Se(can,6,7) *, * s XaK (1700+Se(am,1,3)) 
s:$p(an,".",2)/="" eX ” at” ' Se(ana! "000" 9,10)": "3" Sejan_"000",11,12) = %eK_")” 

8:¥="(1700)" %="" s omeX 


28 STCPED: Sv “ICC(DA,250),"°",2) 
29 PREFIELD CLE: I 'Schi(91)) s skip="D" 


250.6 CGP HECVO GOSS NUMERIC FORMAT S:X1"S" MaGP(X,"S%,2) Kio eX"? NL”, "2N) } (20999999.99) 1 (X<0) X 
M/PORM FID # 92 


28 STORED: SP “100104, 250) ,"°", 16) 
29 PREFIELD COE: I ‘SO(chi(91)) 5 skipe"D” 


232 ONDE RATE CHANGED OME S Wle"E" D “WI S MY Kyl X 

M/POR4 FID § 79 

20 CONVERSION CIE: 
S %"(" 8:+Se(cn,4,5) WK Sol "PN. FEB.MAR.APRUMAY.N. LS. AUG. SEP .OCT.NUV.DEC",".", 
+Se(an,4,5)) " "8; +Se(an,6, 7) Ye Se(an,6,7) ", * s XK (1700+Se(ay,1,3)) 
s:So(an,”. ",2)'="" Yak * at * ' Se(aa | "000",9,10) ":* Se(ca "000", 11,12) 8 %XK")" 
8:%"(1700)" %"" 5 awx 

28 STORED: SX “IOC(MA,272),°°", 1) 

232.1 CHANCED BAS RATE NUMERIC BORAT S:X1%S” 4GP(X, °$",2) Kee! GiX"?.N1”. "QN) | (30999999.99) 1(X<0) X 


M/PORM FID # 80 


A-38 





28 SID: 9X “1CC{0A,222),""*, 2) 





232.2 CHANGED SUBSISTENCE NUMERIC FORA S:X1"S" W6GP(X,"S")2) Kit XE (X!2.NL". "ND £ (9999999.99) 1 (XK0) X 
M/FCRA FID # 84 | 
28 STORED: $p(“I0C(,222),"*",3) 
232.3 CHRAGED QLARIERS [UMERIC FORMAT S:X{"S" HeGE(X,"S",2) KK’ (X"?.NL"."2N) £ (30999999.99) 1(X<0) X 
M FORM FID # 8&3 . 
28 SmyeD: Spf “ICDA, 232),""", 4) 
232.4 GRNGED OTHER PIE NUMERIC FORO S:X1"S" HSP(X,"S",2) Re 4X"eE (7 7.NL"."2N) 1 (30999999.99) 1(X0) X 
M/PCRM FID # &1 
28 STORED: 9p( “1CC(DA,232),""",5) 
232.5 CHANCED OIBR SEELFTY FREE TEXT = KSLAX)>301(SLX)<L) X 
M/PORM FID # 82 
2B STORED: =$p( “IX( DA, 272),"°",6) 
29 PREFIEID (CDE: I 'Sd/chi(Bl)) 8 skip” 
44 FOST ID: Meean ReSL(X)>301(SLAX)<L) X 82/Sa(X) came" wre" cre 
2217 WORK INFO DLRING PAM 
| M/PCRM FID # 27 
28 STORED: rovtere 
29 PREFIELD COLE: 


B:/Sd(lvl) IvleO i $d(chi(0))>9 8 shhfileel d filecne‘perfilel k shhtile 


i $4( file), Hle,New'=Q ¢ flinpGe( ’Sd( filing) siviel,lvl’<filingzivlel,1: roe 
40 upcner” fata @ Neate), choi (O}="" k file 
s lvlelvl+l 


i lvl 8 DA(O}OQA,OO0R £ iemlvl:~1:1 s:Sd(DA(i-1)) OA )=OA(i~1) 


30 ROSIFIELD CCIE: 
i lvl s CA(O}emR £ iel:lsivl s:Sd(DAli)) CACi-1)<0N(i) 
S:lv) CheQA(0) k OA(iv1),OA(0),o2 s lvlelvl-1 





16 CALLS M/PORM: WORK INFORMATION (1655) 


M/PORM: WORK INFORMATION (#655) 





1. FREAOM COE 
n filen, rptfiile,New s:/Sd(nocomp) fLlen="pte( i form, 99) 


+6:Sd(noamp) Silane’pog( 903, foun, 99) 5 New), mt file=l 
S Um""" i 'Sd(DT) 5 MeGad(SH),WTe"" d “WT s Ok XY 


A~59 














a sec’ ftom 
II. WROOS 


DATA ELEMENT DASA TYPE POINIER GLOBAL REFERENCE OR JNEUT \ERIFICATICN 

.O1 DATES & HOURS WORRED FREE TEXT 0 K:X{"™™"1(SA(X)mdS) X I SO(X) K:SL(X)>30!(SLAX)<L) X 
M/PCRM FID ¢ 1 
28 STORED: $p{“TOCIEA(1) 212,080) ,*°%s1) 
32 POST FILING COKE: di setirck"fméon 
44 FOST ID: § Yeom K:SL(X)>301(SL{X)<1) X 6:/Sd(X) ame" ssom{"*" cane" 
54 INEX: “IOC(DA(1),212,"8") 
55 COMP NIE: 1°30°Sp( “ICC(0A(1),212, Lids,0),""",2) 

1 PAY PAE FREE TEXT iK:SU(X)>30!(SL(X)<1) X 

M/FCRM FID # 2 


28 STORED: 9p “ICC(DA(1),212,00,0),"°",2) 
44 POST ID: Mec K:SL{X)>301(SU(X)<1) X 82’$d(X) ame™" sro" cre"” 


2 TOINL AMOLNT EARNED NUMERIC FORORT S2X1"S" HGP(X,"S",2). Re4X" G(X? PND”. "2N) 1 (2099999) 1(XC0) X 
M/ECEM FID # 3 
2B STORED: $p( “I0C(DA(1),212,08,0),"*",3) 

2 TYPE WORK PERFORED FREE TEXT ——_R:SL{X)>20!(SL(X)c1) X 
MRM FIDE 4 


28 STORED: Spf “IOC(OA(1) ,212,04,0),"°", 4) 
44 POST ID: 8 Mean K:SL(X)>201(SL/X)<L) X 8:'Sa(X) ame"* ssanf**" cne™” 


4 EMPLOYER NE FREE TEXT K:S{X)>30! (SLX) <1) X 
M/PCRM FID #5 


2B STORED: 9 Sp “IOC(DA(1),212,04,0),"°",5) 
44 POST ID: «8 Mean R:SU{X)>301 (SAX) <1) X 8s'Sd(X) cme"* s:anf"°" ane” 


5 EMPLOYER STREET ACUFESS FREE TEX? K:SU(X)>30!(SUAX)<d) X 
MACH FID # 6 


2B STORED: =9p( “ICC(DA(1) ,212,00,0),"°", 6) 
44 POST ID: 5 wom K:SL(X)>301 (SLX) <1) X e:'$4(X) om ed ‘g:a"" an 


6 EMPLOYER CITY/SIMIE/ZIP FREE TEXT K:SLAX)> 308 (SLAX)L) X 


A=-60 


“ i 
- ~egpege me 








M/FORM FID #7 


2B STORED: =9p{ “ICC(DA(1) ,212,0A,0),""",7) 
44 FOST ID: s Yea K:SL(X)>30! (SL(X)<1) X 6:/Sd(X) ame"" gon“ om" 








TI. RSTO COLE 
i $d( file), file s filinpSe( 'Sd(filing):lvl,ivbfiling:lv1,1:filing) 
+0 nodeO* infra 





255.6 SIQXVANNLAL LEME CADE 20 ONE § Wie"E" D “WI S WY R:vcl X 
M/PORM FID @ 8&5 


20 CONVERSION COLE: 
sm" sisce(cm4, 5) eX Sp( "JAN. FEB_MAR_APR_MAY. JUN, JUL-AUG. SEP.CLT.NOV.DEC", ae, 
sSe(cn.t, 5)) " * 8:+Se(cn,6, 7) MK Se(am,6,7) ", " & YaX_(1700+Se(an,1, 3)) 
esiire * 2)" KX" at * ' Se(an "000",9, 10) *:" Se(con_"000",11,12) & XaX ae 
”<1700)" "5 ok 
2 Sucre: $p( “ToC (DA, 289) ,"°",14) 
255.7 SIQVANNLAL MVE CADE 86 -  § WE" D “WI S MY K: <1 X 
M/PCEM FID # 86 


20 COWERSICN COLE: 


& Xe"(" -8:4Se(an, 4,5) *eK_Sp( “UPN. FEB.MAR.APRMAY. JUN. ULALG. SEP .OCT.NOW, DEC”, ae 

+Se(am,4,5)) " " g:+Se(an,6, 7) XK Se(an,5,7)_", " 5 ¥eK_(1700+Se(an, 1,3) ) 

8:Sp(aa,” %,2)'=" XK" at * * Se(aa "000",9, 10) *s {c7a_"000", 1,12) 5 #K_")" 
8:%="(1700)" He" s anmeX 


28 STORED: Sp( “T0C{DA,257),"7", 15) 
29 PREFIELD COKE: I ‘S0(chi(85)) s skip'D” 


24 OP CLAIMED FRM CATE S WIs"E" D “WT S Me K:YCl X 
M/ECRM FID ¢ 69 


20 COWERSIN OT2: 
& ¥e"(" 6:45e(c, 4,5) eX SU" N. FEB .MAR.APR.PAY..LN. L.A. SEP.CCT.NOW.CE”,"..", 
+Se(am,4,5)) * * #:+Se(an,6,7) MK Se(cra,6, 7)", * & Xe _(1700+Se(am,1,3)) 
B:Sp(am,”.",2) "=" eK * at * Se(caa "000",9, 15) "2" Se(cm “000",U,12) 8 HK Sid 
grt" 1700)" He” ss on 
28 SHRED: 9 $( “ICCTA, 20), *°", 10) 
24.5 GP CAIMD THR OME S Wire"E" D “WY S HY Ki vc X 


M/PCRM FID # 90 


A-61 











2) CONWERSIN COLE: 
8 X"(" 5:+Se(am,4,5) YeX_$p( "JPN. FEB.PAR_APR.MAY IN. JUL.PUG. SEP.OCT.NOV.DEC",".", 
+Se(am,4,5)) " * 8:+Se(cm,6,7) HK Se(an,6,7) ", "5 %K_(1700+6e(an,1,3)) 
s:Sp(an,".",2)"="" Mek" at * $e(cm *000",9,10)_":" Se(am "000",11,12) 8 %K_")" 
62%"(1700)" Xe"" s ani 


28 STORED: =$p( “I0C(DA,250),""", 11) 
29 PREFIELD OE: I ‘SO(chi(89)) s chip="D” 
255 COMP CLAIM FROM OME S Whe"E" D “WT S WY K:¥d1 X 
M/FORM FID ¢ 87 


20 CONVERSIN COLE: 
5 %"(" 6:+Se(an, 4,5) eX Sp{ “AN. FEB.MAR_APRMAY JUN. JUL.AIG.SEP.OCT.NOV.DEC",".", 
+Se(cm,4,5)) " " 8:+Se(an,6,7) #K Se(an,6,7) ", " 6 %K_(1700+Se(cm,1,3)) 
6:So(an,".",2)/="" Nek" at * Se(ca_"000",9,10)_":" Se(am_ "000", i1,12) 8 XK _")" 
g2%="(1700)" %e"" 5 ateX 


28 SICGFED: =X “TOC( DA, 250) ,"°", 12) 
255.5 COMP CLAIMED THU OXIE S Wie"E" D “WT S XY K:Ydl X 
M, FORM FID # 88 


20 CONERSICN COLE: 
8 Xe"(" §:4Se(cn,4,5) Ye Spl “JAN. FEB.MAR.APRUMAY. JUN. JUL.AUG. SEP .OCT.NOV. reer td 
+6a(am,4,5)) " " a:eSe(cm6,7) HX Se(anS,7) *, " $ YK (1700+Ge(an,1,3)) 
8:So(am,".",2)'="" Ye” at “ Se(an_"000",9,10) *:" Se(cm "006", 11,12) ® YaX_")" 
6:X="(1700)" Xe="" 5s cK 


28 STOPED: $4 “ICC(DA,250),"°", 13) 
29 PREFIELD CXE: 1 S(chi(87)) & skip»"D" 


322 CORTE EMP/CLAIPANT SIGNED CME S Wle"E" D “WT S MY K:Ydl X_ 
M/PCEM FID # 29 


<0 COWERSICN CIE: 
& %"("* 8:+Se(ca,4,5) WeK_ Sp "DPN. FEB.PRRLAPRMAY JUN. JULAUG. SEP OCT.NOV.DEC",".", 
s$e(om,4,5)) " " 6:+Se(cm6,7) HK Se(ca,6,7)_", * 8 HK (1700+Se(cn,1,3)) 
8:9p(cm,".",2)'="" hak” at * Seca "000",9,10)_":" Se(a "000", 11,12) 6 XaK_")” 
8:%"(1700)" %"" same 0” 


28 STORED: =9p( “100 (OA, 303),"°", 7) 


ee 








eeemnrtareeeaee- on enmroncrneninaamananictsiee® 


ITI, FOST+OR4 Qe 


i Sd( file), file,New=) 8:/Sd(lvl) lvi<d 
46 fLlingGal ’Sd( filing) :1vl,lvb filing: 1vi,1:filing) 
44 upontr® faton 
i fileel!(Sd(2RPLAG)) d CXATTSCPYN, “TICFILE 





UN & Gi Ne 
ele ° e e 


oO 


14. 
15, 
16. 
17. 


18. 


19. 
20. 
21. 


22. 
23. 
24. 





CA-3 REPORT OF TERMINATION OF DISABILITY AND/OR PAYMENT 
PART A--GENERAL 

NAME OF INJURED EMPLOYEE 
SOCIAL SECURITY NUMBER - 
OWCP FILE NUMBER 
DEPARTMENT OR AGENCY. SC™~—CSCCCCCC~C..C.CC~™~CCTTTC.CC‘(‘C#(USCON#N# 
BUREAU OR OFFICE eae 
ADDRESS 
cITY - i AT Z1 D= 
NAME OF REPORTING OFFICE _ STN APRIL eres 
ADDRESS er ee ee ee ee ee ee at AGE 
cITY eo ne SRE ee ee CODE 
DATE AND HOUR OF INJURY —. Rape 
DATE AND HOUR STOPPED wi eee 
DATE AND HOUR PAY STOPPED. 
DATE AND HOUR RETURNED TO WORK SS—S—C"’"”"._——— 
(IP OTHER THAN MONDAY THROUGH FRIDAY)  ———C..— 
EMPLOYEE'S WORK WEEK ON RETURN TO DUTY 
PRESENT PAY RATE 


























A. BASE PAY B. SUBSISTENCE C. QUARTERS _ 

D. OTHER SPECIFY OTH i: 

DATES RECEIVED PAY FOR THE FOLLOWING: 

A. ANNUAL LEAVE FROM: : THROUGH: = 
B. SICK LEAVE FROM: THROUGH: 

C. OTHER LEAVE FROM: ; TORO tee 


OTHER LEAVE SPECIFY 
HAS WORK ASSIGNMENT BEEN CHANGED: 
IF YES, *Press <Return> for DESCRIBE CHANCE DUTY 
TF INTERRUPTED, SHOW DATES RESUMED ; 
HEALTH BENEFIT OPTIONAL INSURANCE ist 
IF HEALTH BENEFITS OPTION HAS CHANGED 
FEHB NUMBER DATE 
*Press <Retucn> for REMARKS* 





PART B--CONTINUATION OF PAY 


DATS RECEIVED CONTINUATION OF PAY, FROM: 
THROUGH: 

SHOW GROSS DOLLAR AMOUNT OF RECULAN PAY 
IF PAY RATE CHANGED, SHOW DATE OF CHANGE 
GIVE NEW RATE 




















A. BASE PAY B. SUBSISTENCE -C. QUARTERS 

D. OTHER -~— OTHER SPECIFY pe ee 
SIGNATURE OF SUPERVISOR Be gs Bein a Res Re ee 
SITLE 


SATE : bates 











*word Processing Window will appear. 


‘ A-6 3 














CATA ELEMENT 


2 NWE 


3 Sh 


MFCR OF-3 (8657) 
I. PRe-fORM OE 


n filen, rptfile, filing s:’$d(nocomp) filen="ptci ifeomn. 99) 
+8:$d(nocomp) filens*ptg( 903, ifom,99) s New0, pptfilesl, idexiste2 k ident 
S Un'"'"" i 'Sd(DI) s XeGork(SH), We" d “WI s Diky k X,Y 
d sec” inf 
I SD(DA) S:SD(“ICC(DA,222)) “ICC(DA, 231 ICC(DA, 222) 

I SO(OA) S (ICC, 221),U,1,3)—"" 

n filen, ptfile, filing s:’Sd(noomp) filene"pte( ifomn, 99} 


TI. WINOS 


20 CONVERSICN CRE: «5 ameGe(crme":"", ” (Sd “EMPLOY (crm, 0) ) #10) san, 1:9p( “EMPLCZ(cmn,0) ,"7",1)) 
28 STORED: = 9p( “1CC1mN,0),"7", 3) 

32 POST FILING CEE: dd setinck” ffm 

44 FOST ID: i Sd(new) s:/Sd(“ICC("C" mew, xL)) mege''CLAIM NOT LOGGED!" , yn24, cane!" 


3" 20°Spl “TOC( Lids,0),"°", 3) 
1°23°Sk “ICC Lids,6),"7", 2) 
FREE EXD = K:SL4X)>9!(524X) 9)!" (2@9N) X 
M/FORM FID # 2 


<8 STORED: Spot “ICC(DA,9),"7",, 4) 
44 PUST TDs Kean K:SL(X)>91 (SLX) <9) 1 (X20N) X s:"Sd(X) ame** s:an("*" ane" 


137 OACP FILE NUMBER FREE TEXT R:SLiX)>12!(SL(X)<1) X 


M/FCRM FID ¢ 3 


28 STORED: §=$p( “TCC! DA, 130),*°", 6) 
44 MOET DD: ss hem RSX) 131(SAX) CL) X §:°Sd(X) ane™* ssani"** ane” 


PCINIFR 1074’ ACENCY(0, 
M/FCRM FID @ 4 


Awfia 











20 COWERSICN COE: «5 caGs(crme"™:'"", * (Sd “AGENCY(0,can, 0) #10) scan, 1: 9p “AGENCY(0,cn,0),"°",2)) 
28 STORED: = $p( “ICC(EH,2),"7",1) 


13 DUTY SINTIN FOINIER 1062’ 1ND(1062, 
-— MACRM FID # 2 


20 CONVERSION CLEE: «5 aGs(ame™":™, (Sd “INO(1062,cmn, 0) #10) som, 1 :9p{ “INT( 1062, ono)", 1) 
28 STORED: $p(“ICC(DA,9),"7",1) 


13.4 DUTY SUXTIGN ACCRESS FFeE TEXT K:SL(X)>541 (SLAX)<1) X 
M/PCRM FID # 23 


28 STORED: =$p( “ICC(DA,9),"°", 5) 
4% POST ID: 8 xeon R:SL(X)>701(SEAX)<L) X 6:Sd(X) ome"" ssc "7" come” 


13.5 DUTY SINTICN CITY FRE TEXT K:SL(X)>20! (SL(X)<1) X 
M/ECEM FID # 24 


28 STORED: $p( “Ioc(oA,9),""",6) 
44 FOST ID: 6 Xem K: SL(X)>201 (SUX)L) X 6:/SA(X) ane" s:an"*" ame" 


13.6 DUTY SIMTTON SIXIE FOINIER 1003’ 012(1003, 


, 


MFCR FID # 25 


20 CONVERSION COLE: § armGe(came"":"™, “($d( DEE (1003, cmn,0) #10) sum, 1: sptD12(1003,am01,°°" 10) 


28 STORED: $4 “ICC(fA,9),""",7) 
13.7 OUTY SINTION Zip COLE FREE TEXT K:SU{X)>10! ($L(4)<5) X 
M/FORM FID # 26 


28 STORED: 9p “ICC(DA,9),7°", 8) 
44 POST ID: 8 Xeon K:SL(X)>101(SLA(X)<5) X 82°Sd(X) ae" sran{*"* ane 


14 REFCRIING CRFICE FOINIER 1063’ 1N0(1063, 
M/FCRM FID # 27 


20 CONWERSION CLE: 8 cama (canes, * (Sc “INT(1063,cam,0)) #10) :eam, 2 :Sp “2NI(1063,cm,0),"7",2)) 
2B SICFED: $p( “IXC{MH, 10),"°",1) 


14.01 FO ACORESS FREE ‘TEXT K3$U(X)>541 (SLAX) <1) X 
M/POM FID # 28 


28 SToED: $= 9p( “TEC (MA, 10),°°*,2) 
44 POST ID: s Mec K:SL(X)>70! (SUAX)<1) X 8:/$d(X) am"” s:anl*"* cme 


14.02 RO CITY FREE TERE K:SL(X)>201(SUXICL) X 


A-65 








M/FORM FID # 29 


28 STORED: $p(“10C(DA,10),""",3) 
44 POST ID: s Xecmn K:SL(X)>201(SL(X)<1) X s:’$4(X) am" ssanf"*" cme” 


14.03 FO SINIE FOINIER 1003’ 12(1003, 
M/FCEM FID # 30 


20 COWERSICN COKE: § ammGe(ame"":"", "($d “DIZ(1003,cmm, 0) )#10) sam, 1 :$p( “DIZ(1003,am,0) ,"°",1)) 
28 STORED: $p(“ICC(DA,10),"*", 4) 


14.04 FO ZIP CLE fFEE TEXT K:$L({X)>10! ($L(X)<5) X 
M/FCRM FID # 31 


2B STORED: $p{“IOC(DA,10),"°",5) 
44 FOST ID: s Hwan K:SL(X)>101(SL(X)<5) X s:/S4(X) ame" s:an{""" cm 


1 INOURY/TLLNESS CATE 6 TI CAE S Wh"ET" D “WT S MY K:Y<1 X I SO(X) K:SP(X,".",1) 909 X 
M/FCEM FID # 7 


20 COWERSICN COLE 
8 %e"(" s:eSeiam,4, 5) Mek $p( "JPN. FEB.MPR.APRPRY. JUN. UL AUG. S2P.CCT NOV. DEC", arti 
seated: 5))_" * s:+Se(am,6, 7) YX Se(cmn,6,7) *, * & XK (1700+Se(cm,1,3)) 
$:9p(an,".",2)/="" YeK_" at " Se(an "000",9, 10) *:" Se(am_"000",11,12) 5 %eK_")" 
$:X¥m"(1700)" %e"" 5 ame 


28 STORED: $p( “IOC(DR,0),""",2) 
32 POST FILING CLE: di setinck”finfon 
S4 INEX: ae 
55 LOOWP NTE 
1°23" as “TCC( Lids,0),"™",2) 
36°30" Sp “ICL Lids,0) ,"*", 3) 


mn 


229 D/T STOPPED WORK OME S Wre"EI" D “Wr S WF K:¥<l X 
M/PCRM FID # 8 
20 COWERSICN CCIE: 


8 Ye"(" 5:4Se(an,4,5) XaK_Sp( "UPN. FEB. MAR.APRLARY. JUN. JUL.AUG.SEP.OCT.NOV.CEC",”.", 
+Se(cm,4,5))_" " s:4Se(cm,6,7) eK Se(am6,7) *, * Yak (1700+Se(cm,1,3)) 


8:Sam,".",2) 0 XK" at “ Se(cn_"000",9, 10) ee ' Se(an n "000",11,12) & XaK_")" 
6: "(1700)" "" § aX 


28 STORED: $p( “I0c(0A,221),"°",1) 

230 D/T PAY STOPFED ONIE S W"EI* D “WI S HY K:Y<l X 
M/PORM FID # 9 
20 CONVERSICN COLE: 


A-66 








S Xe"(" 5:4Se(am, 4,5) Yok Sp( "PN FEB.MAR_APRLMAY. JUN. JUL-AUG, SEP.CCT.NOV.DEC", ee 
+$e(am,4,5)) " "s; +e(cm,6, 7) %K_Se(an,6,7) ", “ $ HK _(1700+Se(am,1,3)) 
s:So(an,".",2)'="" YeX " at " " Se(ca | "000", 9 10)" ":" Se(am_"000",11,12) s 4aK_")" 

s:xe"(1700)" X"" 5 anx 
28 STORED: 9$p(“IcC(mA,221),""", 2) 
231 O/T RETURED DO WORK DAE S Wle"EI" D “MOT S XY K:¥cl X 
¥/FCRM FID # 10 
20 CONVERSION CXLE: . 
& ¥e"(" #:4Se(cm,4,5) Yak Sp( "SN. FEB.MAR.APR.MAY. JUN. JUL.AUG. S@P.OCT.NOV.DEC",".", 
+Se(an,4,5)) " " s:+$e(cn,6,7) MK Se(an,6,7)_", " S %eK_(1700+Se(am,1,3)) 


8:9p(an,".",2)'="" ex " at " " Seca. "000",9,10) "3" Se(cm "000",11,12) 6 %aK_")" 
—-$2%e"(1700)" "" 5 aX 


28 STORED: 9p “I0C(DA,221),""",3) 
324 NEW WORK WEEK FREE TEXT K:SL(X)>301(SL(X)<3) X 
| MACH FID # 11 


28 SIOGRED: $p/ “100 DA, 303),"7",8) 
44 FOST ID: 8 Mean K:SL(X)>301(SLAX)<3) X 8:/Sd(X) ame” s:anf"*" cme 


231.1 RETURNED TO WORK BASE PA NUMERIC ORR S:x{""S %6GP(X,"$",2) ReeX?K(X'2,NL"."2N)1(00999999.99) !(XC0} x 
MFCM FID # 5% 
28 SURED: 9p("TOC(tA,221),""", 1} 

231.3 PETURN 10 WORK SUBSISTENY «© NUMERIC PORRACT S:X{"S" S0(X, "5", 2) K:4X/=i(X7P.NE"."2N) 1 (10999999.99)1(XC0) X 
M/FCRM FID ¢ 39 
28 STORED: Sp “I0c(on,231),"*",3) 

231.4 RETURN TO wORK QUARTERS «© NUMERIC ORM SiX]""S” HSP(X,"S",2) Reo? (X72 NL". "2N)1(20999999.99) 1X0) X 
NAC FID #38 
28 STORED: $p(“T02(0A, 231),"7", 5) 

221.5 RETURN TD WORK OIHER RAT =| NUMERIC FCP S:X{"S* HGP(X,"S",2) Ke4X?akG(X7P.NL"."2N) !(999999.99) 1(X0) X 
N/PCRA FID #37 
28 STORED: = 9p( “TOC{DA,231),"*",7) 

231.6 RETURN TD WORK SHCFY FREE TEX K:SL(X)>ION(SL(XICL) X 

| MAC FID # 40 


A-67 








28 STORED: © $p(“I0C(DA, 231) ,""",9) 
29 PREFIFLD CCIE: =s:’$d(chi(37)) skip»"D" 
44 POST ID: 5 Mean K:$L(X)>30!(SU(X)<L) X s:’Sda(X) an" s:anf"°" ane" 


pee a, ee A Ts oe a ES ee ee ee 


DATA ELEMENT CATA TYP POINTER GLOPAL REFERENCE OR INEUT VERIFICATICN 
253 ANNUAL LEAVE FROM CONTE S $Ie"E" D “WOT S MY KY X 
M/FCEM FID # 49 


20 CONVERSION COLE: 
S Xe"(" 5:4Se(on, 4,5) XaX So( "JAN. FEB.MAR.APR.MAY.JUN.JULAUG. SEP.OCT.NOV.DEC",".", 
+Se(am,4,5))" " s:4$e(cm,6,7) Yak Se(am,6,7) ", " & Mak (1700+Se(am,1,3)) 
s:9p(aa,".",2)/="" XeX " at * " Se(c "000", 9,10) _ ":" Se(am_"000",11,12) 6 %«K_")" 
$:X"(1700)" %="" 6 oneX 


28 STORED: Spt “TGL(DA, 250) ,"°", 5) 
253.5 ANNUAL LEAVE THRU DAE S Wh"E" D “WI S MY K:¥d. X 
M/FORM FID # 50 
20 CONWERSION CCIE: 
S Xe"(" 5:4Se(cm,4,5) YaX Spl “JAN. FEB.MAR.APR.MAY.JUN. JUL AUG. SEP.CCT.NOV.DEC™,"." 
+Se(am,4,5))_" " s:+Se(an,6, 7) MeX Se(an,6,7)_", " & XaK (1700+Se(cn,1,3)) 
s: Sp{an,”. n po) York | “at” ' Sean "000", 9, 10) etal ' Se(an 3 "000",1, 12) 5 aK aye 
52¥e"(1700)" He" 5 cneX 
23 STCFED: $o( “rac(aa,250),"*",6) 
252 SICK LEAVE FROM OXI S WI"E" D “WT S Me KY X 
M/FORM FID # Sl 


20 CONVERSION CCIE: 
5 Ye"(" §:,Se(cm,4,5) Yak Sp{ "JAN. FEB.MAR.APR. MAY.JUN.JULALG. SEP.OCT.NOV. DE”, ".” 
+Se(am,4,5)) " " s:+Se(am,6, 7?) Yak Se(an,6,7) ", " & XaX_(1700+Se(am,1,3)) 


s:SX(an,".",2)' o"" YeX_" at " ' Sela "000",9,10) "2" Se(ca_"000" 11,12) 8 %aK_")" 
8:3="(1700)" eo" s aX 


28 STORED: $p( “IOC(OA, 250),°°", 3) 
252.5 SICK LEAVE THRU ONTE S Wle"E" D “WI S MY K:Yd x: 
M/FORM FID # 52 


20 COWERSICN COLE: 
8 Xe"(" s:+Se(am,4,5) Nak Sol “JAN. FEB.MAR_APR.MAY. JUN. JULALG. SEP .OCT.NOV.CEC™,"." 
+Se(am,4,5)) " * $:+Se(am,6, 7) ¥oX Se(cen,6,7) ", * 8 MK (1700+Se(am,1,3)) 
8:39am". ",2)'="" Hak * at “ " $e(cm "000", 9,10). 3" Sela | "00u", 11,12) s 4aX_")* 
§:X="(1700)" %e"" s cox 


A-68 








28 STORED: 9$p( “100(0A, 250) ,"°", 4) 
251 OBER LEAVE FROM TNE 3S Wh"E" D “WT S #Y K:¥dl X 
M/PORM FID # 53 


20 COWERSION CTE: 
8 He"(" S:sGe(cn.4,5) YK $o( "SAN. FEB.MNR-ARR.MAY.N.RLAUG, SEP.OCT_NWV.DEC",".", 
+$e(an, 4, 5))_" " s:sGe(<am6,7) XK Se(cm,6,7) ", * s HK (1700+Se(am,1,3)) 
s:$p(an, 68,2)!" YK" a" * Se(an_"000",9,10)_":" Se(am_"000",11,12) 5 %=K_")" 

g2¥e"(1700)" 3" 5 cmt 


28 STORED: 9pi “I0C(DA, 250),""",7) 

251.5 CUHER LEAVE THU feat 4 S Wi"E" D “WT S Hr Kc X 
M/CEM FID ¢ 5S 
20 CONVERSION CLE: 

8 %"(" 6:+Se(cm,4,5) eK Spl “JAN. FEBLMAR-APR.MAY JUN. JUL.ALG, SEP.CCT.NOV.DEC",".", 
pe 5)" " s:eSe(cm,6,7) He Se(am,6,7) ", " s eK (1700+Se(cm,1,3)) 
s:Sp(am,".",2)/="" HK" at * " Se(cam "000",9,.10). ":" Se(am "000",11,12) 5 XxXK_")" 
6236""(1700)" Xe" 5 aK 

28 SICFED: $p( “T0C(DA, 250),"*",8) 
251.6 ODER LEME SPECIFY Fee Text K:SL(X)>301(SLAX)<1) X 
M/PORM FID # S4 


2B STORED: Sp “ICDA, 250) ,**",9) 
44 FOOT ID: 8 Mecen K:SL(X)>901(QAX)<L) KX 82/Sd(X) ane"" s:an{**" an" 


329 DUTY CHANCED CLE %D DISA Ser OF CES = Y: ES 
N:ND 


M/PCH FID ¢ 14 


2 COWERSIN COE: 8 ced( 9"; ¥: YES/NO; 97" a" 2",2),73",1) cGo( am, *:",1) 
2B STORED: = 9p( “ICDA, 303),""",9) 


329.1 DESCRIBE CHANGED CUIY 
MFCR FID # 21 


28 SIOFED: nowhere 
22 PREFTELD CCLE: 
I '$D(cbi(14)) 6 skip="D" chi (0,21 }="* 
4 Scho (14)) secbok (14) (NOt (chad (14)("n*) seipe"D" chal (0, 21 ue” 
teri IvlaQ 1 Sd(chi(0))>9 s athflleel d tilame'ptrfilel k shhfile 
§ Sdi file), file,New'=Q = filircpSe( 'Sd{ filing) :lvl+l,lvl'<filing:lvl+l,l:filing) 
4d upentr” futon § News), chi(0)="" k file 
8 lvl=lvl+l 
i lvl s OA 0)@0A,D0=0R f ielvl:-1:1 s:Sd(DA(i-l)) OA( iO i-1) 


A-69 








30 POSIFTELD CCIE: 
i lvl 5 DA(O}eOA £ iel:1:lvl s:Sd(DA(i)) OACi-1) Ali) 
S:lv]) DfeQA(O) k DA(1v1),DA(0),D1L s lvlelv)-1 


16 CALLS M/ruet: DESCRIBE CHANGED DUTY (4661) 


M/FORM: DESCRIBE CHANGED DUTY (#661) 





2 WY) ~ 


I. PRE-FCRM COLE 
n filen, rptfile,New s:'Sd(noomp) filene"ptc( ifom, 99) 
+6:Sd(noamp) filen=*ptg( 903, ifoan,99) s NamO,rptfile=1 
5 Un"*" 4 'Sd(DT) 5 MxGad(SH),W0e"" d “MFP s Diey k X,Y 
a sec” fimfrm 
@ crinck frfoa 
iI. WINKS 
DESCRIBE: GRNGED DY 
CAOA ELEMENT ONA TYPE FOINIER GLORAL REFERENCE OR INEUT VERIFICATION 
.O] DESCRIBE CHANGED DUTY WORD PROCESSING 
M/FCRM FID # 1 


28 STOFED: 9 Sp( IOC(DA(1), 314,08,0),"",1) 





III. FOST-FORM COLE 


i Sd( file), file s pier arr aaph dae lvl, lvb filing: lvl,1: filing) 
+d shuffle” fméon d nodeO* fmtoa 





330 ORTE HEALTH CEDLUCTICN Pe OME S Wre"E" D “WI S WY K:vd X 


M/PCRM FID & 15 

20 CONVERSICN COLE: 
S Xo"(" 6:4Se(cm,4,5) eX ( Sp( "JAN. FEB.MARLAPR.MAY JUN. JUL.AUG. SEP .OCT.NOV.OEE",".", 
+Se(am,4,5)) " 's: +Se(an,6, )) YK Se{an,6,7) ", * $ HK (1700+Se(an,1,3)) 
5:9¢{cm,".",Z) "=" Xa” at” Se(cn 0008.30) 3" Se(cma "000", 11,12) 8 eK") 
S: me" 1700)" %o"" 5 anX ; 

2B STCFED: 9=$p( “ICC (OA, 303),""".10) 

331 OXI CET INS CELCTION R OXTE S Wle"2" D “WT S He KY) X 


M/FORM FID # 16 


A- 70 





2S FEHB CLE 





20 COMWERSION CTE 
8 "(" 8: sSe(an,4, 5) 4eK_Sp{ "JAN. FEB.MAR_APR.MAY.JUN.JUL AUG. SEP.OCT.NOV.DEC",".", 
+Ge(cm, 4,5)" " s:+$e(an,6,7) YK Se(an,6,7) ", " 8 MeK_(1700+$e(am,1,3)) 
s:Sp(am,".",2)’="" XeK_" at " Se(an_ "000",9, 10)" "2" Se(an "000",11,12) 5 %eK_")" 
s:¥e"(1700)" %"" 5 anx 


28 STORED: $p( “I0C(DA, 303),"*", 11) 


FREE ‘TEXT K:$L(X)>15!(SL(X)<1) X 
M/PCEM FID # 17 
28 STORED: 9p “10C(DA,3),°7",13) 
44 POST ID: 58 Xeca K:SL(X)>151 (SLAX)<1) X s:’Sd(X) ame” g:an{"~" am" 
333 NOW HEALTH PLAN OXIE CONTE S Me"E" D “Wr S HY K:Ydl X 
M/FCRM FID #18 
20 COWERSICN CLE 
S Xa"(" sreeel cya: 5) YX Sp( "JAN. FEB MAR.APR.MAY. JUN. JULAUG. SEP OCT. .NOV.DEI™," 
+$e(ca,4,5)) " "* s:4Se(an,6, 7) YX _Se(an,6,7)_", “ 8 WK (1700+Se(am,1,3)) 
s:Sx(an,", Cy) 7a) tar eX "at" * Se(aa | "00", 9, 10) Pha * Se(an ' "000", nh, 12) 8 eX Et 
$2%="(1700)" %e"" 5 cm 
28 STRED: 9p( “ICC(MA, 303),"7",3) 
54 REARS 


nea aR i AR tA ST PRE EEE IE SS EE DENSE ELSI H OS TEEPE ITE LEE RENTER EEN TO LE ELE ELE LISELI LD STEED DN ELLE DELILE ELIE DDS 


M/FORM FID # 19 


23 SICPED: nowere 
29 PREFTEID COLE: 
8:'Sd(lvl) lvleO 4 Sdichi(0))>9 s shhfile=l d filecne*ptrfilel k shhfile 


i Sd( file), fileNew’=0 s fllingGa( ‘Sd( filing) :lvl+l lvl’ <filingslvl¢l,1:filing) 
+d upcner” ft 6 News), chi(0}="" k file 
8 lvlelvl+l 


i lvl s OA(O}CA,DOeCA f ielvl:-1:1 s:Sd(DA(i-1)) DA(i tA(i-1) 
30 ROSIFIELD COLE: 

i ivl s DCA(O)OA £ ielslsivl sSd(DNi)) DA(i-1)<OA(i) 

sStivl GeOQA/0) k DA( vl), ONO), C2 s lvlelvi-1 


16 CALLS M/PORM: REMARES (#606) 


M/FCEM: REMARES (#606) 
I. PRS-FORM COLE 
n filen, ppt‘ile,New 9:’$d(noonmp) filene*ptc( iform, 99) 
+6:Sdinconep) tilen="pog( 903, iform, 99) s Naw), ptfile=l 


§ Ue" f SLT) 3 XeGack(SH), We" d “WOT s DIkY k X,Y 
@ sac’ fmm 


A-71 











d crindx’finéma 
TI. WINS 


I $s rr 
DATA ELEMENT DIA TYE FOINIER GLOBAL REFERENCE OR INPUT VERIFICATION 
01 REMARKS WORD PROCESSING 
M/PORM FID # 1 
28 STORED: $p(“ICC(DA(1),8,08,0),"",1) 





TIT. FOST-FORM COLE 


i Sd(file), file s filinpse( "Sa{ ing): lvl, lvl>filing:lv1,1:£iling) 
4d chuffle” fine d nodeO*fmém 





WO OP ; 
DATA ELEMENT cACA TYPES POINTER GLOBAL REFERENCE CR INEUT VERIFICATION 
250 COP RECVD FROM ORTE S Wm"E* D “WI S Nev Kc] X 
M/FCEM FID # 41 
20 COWERSICN COLE: 
& ¥e"(" $:4Se(cen, 4,5) 2X Spi “JAN, FEB.MAR.APR.MAYJUN, JUL.AUG. SPP .OCT.NOV.DEC”,”.", 
+Se(am,4,5)) " " s:+Se(an6, 7) Hoek Sean,6, 7) *, * & MK (1700+Se(am,1,3)) 
8:So(an,".",2) "=" Yok" at * Seca "000", 9,10)'*:" Se(cia *000" ,11,12) & %K_")" 
5:%0"(1700)" %="" 3 ane 
28 STORED: $= Spf “IC(TA, 250) ,7°", 1) 
250.5 COP PECVD THRU LATE S Wis" D “MT S Me KY X 
M/PCEM FID ¢ 43 
20 CONVERSION CITE: 

& Xn"(" 8:4Se(cmn, 4,5) eK Spt “JPN. FEBMAR.APR.MAY. UN.JUL AUG. SEP.OCT.NOV.DRC”,".", 
es 5)) " * 5:+Se(cen,5,7) eK Se(am,6,7) ", * & HK (1700+Se(am,1,3)) 
8:9(an,".",2)’a"" Yak" at * " Seca "000",9,10).*:" Se(cma “000",11,12) 8 HX.")" 

5:%=7( 1700)" %"" s anx 


28 STORED: 9p( “10C(K, 250),""",2) 
29 PREFTELD CODE: 8:/Sd(chi(4l)) sip" 


250.6 COP RECVO GOSS NUMERIC FCRMAT S:X]“S" 621 X,"S",2) Reo! K(X"? NL". IN) § (30999999.99) 1(X<0) X 


A-72 











M/PCRM FID # © 


28 STORED: $p( “I0C(OA, 250),"7", 16) 
29 PREFIELD CODE: s:’Sd(cbi(41)) skip="D" 


232 DONTE RATE CHANGED OME S$ Wle"E" D “MOT S Me K:¥<cl X 
M/PORM FID # 57 


20 COWERSICN CIE: 
8 e"(" g:4Se(can, 4,5) XeK Sp( "JPN, FEB_MARLAPRMAY. JUN. JUL AG. SEP.OCT.NOV.DBC",".", 
se(cm.4,5)) " * sreSe(amse,7) HK Se(cm.6,7) ", * HK t (1700+Se(can, 1,2)) 
s:Spam,".",2)'=™ ak" at" Se(cm “000",9,10). "2" Se(cra "000", 11,12) 6 %K")" 
$:%"(1700)" Fe" 5 cmK . 
23 STORED: = $p( “10C(DA,232),""", 1) 
232.1 CHANGED BASE RXTE NUMERIC FORD S:X{"S" GPL, "9",2) Ret? (X"PNL."2N) 1(10999999..99) 1(X<0) X 
MAO! FID # 44 


28 STORED: 9p( “TOC{TA,232),"7",2) 
29 FREFIELD CELE: 8:’Sd(chi(57)) skip-D* 


232.2 CHANGED SUBSISTENCE NUMERIC FORMA S2x{"S* GP(%, S742) Rete (X"? NL”. MON) | (10999999 .99) 1(Xc0) X 
M/PCRM FID ¢ 48 


28 STORED: §=90( “TOC( DA, 232),"°", 3) 
2 PREFIELD COE: 8:’Sd(chi(57)) skip»"D” 


232.3 CHANGED QLARIERS NUMPRIC FORME Sex] “S* GPX, "S",2) Kees (X" 2 NL". “ANY (30999999.99) 1(X<0) X 
MFCM FID @ 47 


28 sicrep: Spl “TOC{DA, 232),"7", 4) 
29 PREFID COE: 3 8:’Sd(cbi(57)) skip="D" 


222.4 CHANCED OTHER AACE | NUMERIC FORME Six] "S* NeGP(X,"S"2) Ke (XP NL". MAN) | (20999999.99) 1 (XO) X 
MACHA FID $ 4S 


28 STORED: 94 “ICC(OA,232),""",5) 
29 PREFTELD OIE: 3 s:’Sd(chi(57)) skip»"D” 


252.5 GRAND OTHER STECPIY FREE TExr K:SU(X)>30t (SAX) 1) X 
M/PCEM FID ¢ 6 
28 swore: $p( “Torta, 22),""",6) 
2D PREFTPLD COLE: 8:/Sd(chi (45) 
44 FCST Dz ss Woon K:SLAX)> OL (SLX)CL) X 82°SA(X) come*™ gsc" cnet” 


302 SUPERVISCR’S NE FREE EXT K:SLAX)> FON (RANI) X 


aA=73 r 














FORM FID # M 


28 STORED: $p(“roc(pa,402),"°",1) 
44 POST ID: 3 Mwcm K:SL(X)>30!(SI{X)<1) X s:/Sd(X) am" s:an{“*" am" 


402.1 SUPERVISOR'S TTILE FREE TEXT K:SL(X)>30! (SL(X)<1) X 
M/PCRM FID # 33 


28 STORED: $p4 “10C(DA, 462),"°", 2) 
44 FOST ID: $s Mecm K:SL(X)>30!(SL(X)<1) X s:/Sd(X) am" s:anf"°" cre" 


402.2 SUPERVISGR’S PONE NEE FFEE TEXT K:$L(X)>14!(SL(X)¢7) X 
M FCRM FID # 2 


28 STORED: 9p “Iacinw, 402),"°", 3) 
44 POST ID: s Meom K:92(X)>141(SL1X)<7) X 82°Sd(X) cm" gsm" one" 


402.4 DOXTE SUPERVISGR SIGNED OTE S Wi~"E" D “Wr S WY K:Yd X 
M FORM FID ¢ 35 


20 CONWERSICN OTE: 
S Xe"(" §:+Se(am,4,5) MX Spl "IAN. FEB_MAR APR. PAY. JUN. JUL ALG. SEP.OCT.NOV.DE","".", 
+Se(am, 4,51) " " s:+Se(am,6,7) XK Sevan,6,7) *, " S %K (1700+Se(an,1,3)) 
s:Sp(cm,”.",2)'~"" Nak at” Se(cm "000",9,10) ":" Sean "O00", 11,12) & YaK_")" 
$:¥e"(1700)" %e”" § omeX ~ 


2B STORED: Spt “100(DA,402),""",5) 


ITI, FOST-+ORM COLE 


i Sdi file), file,Naw=Q $:/Sd(lvl) Ivled 
+s filings$e( ‘Sd( filing) :lvl,lvb filing: lvl,1: filing) 
+d upentr” fin€on 
i EileeL! (Sd ERFLAG)) d CA3“TICPYNF, “TICPILE 








An/4 








Hu & Ww he 
oe © . 





CA-5 CLAIM FOR COMPENSATION BY WIDOW, WIDOWER 


NAME OF DESEASED EMPLOYEE 

DATE OF BIRTH (MO.,DAY,YEAR) CSCO OO 
DATE OF INJURY (MO.,DAY,YEAR)——~<C~SOTCOCO™OC*C~C~CS~SCSOtOSSS 
DATE OF DEATH (MO.,DAY, YEAR) 
SOCIAL SECURITY NUMBER 

NAME OF EMPLOYING AGENCY Co ee es eee 
ADDRESS 

CITY Cees we STATE __. et CODE. 
NATURE OF INJURY WHICH CAUSED DEATH perce aaa 
*Press <Retucn> for NATURE OF INJURY/ILLNESS* 








CLAIM OF SURVIVING HUSBAND OR WIFE (43-#13) 


8. 


ee oe oe 8) 
Whar oe 





14. 
15. 
16. 
17. 


18. 


NAME ant 
STREET ADDRES ? 
CITY STATE — 3TF COPE 
YOUR DATE OF BIRTH (MO.,DA‘, YEAR) 7 : 
DATE OF MARRIAGE TO EMPLOYEE 
WERE YOU LIVING WITH EMP AT TIME DEATH? s—~—CSC~C™~COC 
WERE YOU MARRIED TO OTHER THAN EMPLOYEE? C™~—SCCSCSCS 
WAS EMP MARRIED TO OTHER THAN YOURSELF? 


rr re ert entree rhea 














nt rR ER A PO te 


CLAIM COMPENSATION BY WIDOW, ¥IDOWER (PAGE 2) 


2MP’S CHILDREN WHO ENTITLED TO COMP 

Presse <Return> for CHILDREN OF THIS MARRIAGE 

If LEGAL GUARDIAN APPOINTED FOR CHILO, 

Press <Return> for CHILD & LEGAL GUARDIAN 

LIST OTHER RELATIVES WHO FULLY DEPENDENT 

Press <Return> for OTHER DEPENDENTS 

IF EMPLOYEE WAS EVER IN THE ARMED FORCES OF THE UNITED STATES, 
GIVE: 

SERVICE NUMBER: 

SRANCH OF SZRVICE: 
PERIOD OF SERVICE: 
IF APPLICATION HAS SEEN MADE YOR VETERANS ADMINTSTRATION (VA) 
BENEFITS BECAUSE OF EMPLOYEE’ S DEATH, GIVE: 

VA CLAIM NUMBER: 

ADDRESS OF VA OFFICE WHERE CLAIM IS FYLED: 

CIty _ STATE ~~, esh CODE 














acer 








19. 


to 
oO 


bebo tes 
Ww tse 


to 


to 
War 


on 


CA-S CLAIM FOR COMPENSATION BY WiDOW, WIDOWER (PAGE 3) se 


IF APPLICATION HAS BEEN MADE OF U.S. CIVIL SERVICE ANNUITY BECAUSE 
OF EMPLOYEE’S DEATH, GIVE: 

CSF CLAIM NUMBER: _ 

DATE ANNUITY BEGAN: 

AMOUNT PAID PER MONT 3 

IF A CLAIM HAS BEEN Dace AGAINST A SPD IY —— 

Press <Returcn> for NAME,ALDRESS THIRD PARTY 

TOTAL BURIAL EXPENSE §$ 

AMOUNT OF BURTAL EXPENSE PAYABLE BY VA 5 

NAME OF PARTY WHOSE PAID BURIAL EXPENSE 

STREET ADDRESS 

CITY a TATE TP CODE 
ADDRESS OF PERSON FILING CLAIM a 
CITY __. STATE j Zie CODE 

DATE (MO.,DAT, YEAR) 

















rept ee naRarennsatenstnrr etna AeA, 








ATTENDING PHYSICIAN’S REPORT 

NAME OF DESEASED EMPLOYEE (SEE #1 OF PAGE 1) 
DATE OF DEATH '§SEE #4 OF PAGE 1) 

HISTORY OF INJURY FELATED TO DISEASE 

*Press <Return> for DOC’S NARRATIVE OF INJURY* 
IP TPEATED FOR DISEASE, GIVE DIAGNOSIS: 

“Press CReturn> for COC’S TREATMENT/DIAGNOSIS* 
iF DEATH WAS NOT INSTANTANEOUS, 

"Press <Return>d for TREATMENT PRIOR TO DEATH* 
SHOW CATEL ON WHICH TREATMENT WAS GIVEN 

*Press CReturn> for DIRECT CAUSE OF DEATH®* 
“Press cCReturn> for CONTRIBUTORY CAUSE OF DEATH* 
WAS THE EMP'S DEATH DUE TO THE REPORT #37? 

GIVE MEDICAL REASONS AND CAUSAL RELATTONSHI? 
*Press <«Return> for EXPLAIN CAUSAL RELATIONSHIP* 
WAS A BIOPSY OR AUTOPSY PERFORMED? 

IF YES, GIVE NAME OF PHYSICIAN 
STREET ADDRESS 














Crt STATE tf? CODE 

MAME 

STREET ADDRIZS = 
CITY STATE 2 ZIP CODE 


eee ane need cement camematitee atene 





A=? 























CA-5 CON'T 
CHILDREN OF THIS MARRIAGE 
NAME 
RELATIONSHIP DATE OF BIRTH 
ADDRESS . 
CUD a ee re 9 IRA ZIP CODE 
CHILD & LEGAL GUARDIAN 
CHILD NAME 





GUARDIAN NAME 
GUARDIAN'S ADDRESS 
cITy STATE zip CODE 


schementchriatcemninsnianitnttonatiompereieaaasaintmemmbitinngimmmminitemo =the: 








OTHER DEPENDENTS 


" . ‘ a parcasinapntgsemnaneeaiaemnsane en emrate anteerepermentnerntdemcentinntyneretetammtaatani ys : 


NAME. 

KELATIONS BPS ee ee a See “DATE OF SIN 
ADDRESS 

CITY. pn STATE Zip CODE 


~— 








Lie tanneries 


THIRD PARTY INFORMATION 














NAME SETTLEMENT AMOUNT 
ADDRESS | ' 
city TAT ZIP CODE 





sa seeenea ten mmeneeempemeeeemeememem aemamennererenemnnnemenensancemecenar nen ame nema acne eee nnn a ere 








*Word Processing Window will appear. 
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M/E: OFS (8672) 


Sa RRS SRN UT ETE RE IT AEN SIREN TGS NO I I AT EF I THRE ST GEIS SOE IDLO LER LIE PSD DE EON DEAE ELT DLE LILLE IL 


1. PRE-FORA COLE 


n filen, rpptfile, filing s:’Sd(nocamp) filene’ptc(ifomn, 99) 
+6:$4(nocanp) filene*ptg( 903, ifoan,99) & NewO, rptfilesl, idexiste2 k idant 
8 Us" i 'Sd(DT) 5 Sad(SH), ie" d “WT s Diy k X,Y 

d sec’ fafon 


TI. WINDS 





CATA ELEMENT CATA TYPE FOINIER GLOBAL REFERENCE OR INPUT VERIFICATION © 


2 NE FOINIER 1004’ 9 EMPLOY( 


20 CONWERSION COLE: $6 ame (cme: "", ’ (Sd “EMPLOY( can, 0) )#10) sam, 1: Sp “EMPL (cm, 0) °°", 1)) 
28 STORED: 9 “IOC(MH,0),"°",3) 
32 FOST FILING COLE: di setinck” frfon 
44 POST ID: I SO(new) 8:/Sd(“IQL("C",new,xl)) $s am"",y24,mege"CLAIM NOT LOGGED!" 
S4 INEX:  “ICC("C") 
55 LOCKUP NCE: 
81°20°Sp{ “10Cl Lids ,0),"°",3) 
3°23° 9 “IG(lids,0),"°",2) 


6 BIRTHOATE OME S Wie"E” D “WT S MY K:YC. X 
M/FCRM FID # 2 


20 CCONWWERSICN COE: 


S Xe"(" s:+Se(am,4,5) XeaX_Sp( “JAN, FEB_MARAPR.MAY.OUN.JUL.AUG. SEP.OCT.NOV. DEC", "." 
,+$e(an,4,5)) " * 8:+Se(cm,6,7) xX t Sean, 6, 7)“, * $ HK (1700+Se(am,1,3)) 

S: Sp(an,”. ” po)'s me Xa” at" ' Se(an 1 "000", 9 9,20)": " Se(an "000", ul, 12) 8 Yek_")" 
8: Xe"(1700)" %"" § amX 


28 STORED: 9p( “1 (mA,0),""",7) 
1 DOURV/TLINESS ONE 6 TI OME S Wh"EI™ D “WT S Me K:Ycl X I Q(X) K:SP(x,”.",1)0T X 
M/FORM FID # 3 


20 CONVERSION CCIE: 
8 Xe"(" 8:4Se(cm,4,5) 4K Sp( “JAN, FEB.MAR_APRNAY JUN, JULAUG. StP.OCT.NOV.DEC","." 
»+$e(an,4,5)) " " s:+Se(cmn,6,7) XX Se(am,6,7) ", © $ HK (1700+Se(om,1,3)) 
8:9an,".",2)'="" Hk" at * - Se(caa*000",9,107_":" Seto *000", 11,12) & XeX_")" 
8:¥e"(1700)" %e"" § aX 
28 STORED: $p( “ICC(mM,0),"°",2) 
32 POST FILING COME: di setinck*finfon 


A-78 








Sd INEX: § “ICC("D") 


55 LOONLP NTE: 
3°23°$p( “10C( Lids, 0),"*", 2) 
81°207Sp( “1CC( Lids,0),"*",3) 
103 DATE OF CEXTH ONE S WIHT" D “WT S HY K:Y<1 X I SOX) KeXc$P{ “ICCA, 0),U,2) X 
M/PORM FID # 40 


20 CONERSICN CIEE: 
& Xe"(" s:4Se(am,4,5) YeX_Sp(“UAN. FEB.MAR.APR.MAY.JUN.JULALG. SEP. CCT.NOV.DEC, "" 
+Se(am,4,5)) " " s: +Se(cit,5,7) *«X Ssh 7)", " 8 ¥K (1700+Se(am,1,3)) 
s:9p(an,".",2)’="" XK” at * Se(an "000" 79,107_":" Se(ca"000",11,12) YK ")" 
2%="(1700)" %e"" 5 amex 

28 STORED: §=$p( “10C(DA, 100) ,"°", 4) 

3 SN Free Tex K:SLiX}>91(SLAX)<9) 1" (X29N) X 
M/PCEM FID # 5 


28 SICFED: $p( “raz(nA,0),"°", 4) 
44 POST ID: s Mom K:SL(X)>9! (SL(X)<9) 1° (XPGN) X 62°Sd(X) come” ssn" " cme" 


13 DOTY SINTIGN FOINIER 1082’ IN)( 1062, 
MFCR FID # 4 


/ 


20 COWERSICN CDE: 8 crmGe( came’: ", * (Sd “INI(1062,can, 0) )#10) sem, 1: 9p( “INO(.1062,cm,0),""",1)) 
28 SURED: $4 “ICz(0R,9),""*,1) 


13.4 OCUTY SINTTON ACORESS FREE Ter K:SL{X)>541(SL{X)<L) x 
MFCM FID # 2 


23 SICRED: =$p( “ICC(rA,9),"°", 5) 
44 CST ID: § Mec K:SL(X)> P01 (SLX)<1) X 82 °Sd(X) came” san "*" ae" 


13.5 DUTY SIMTION CITY FREE TEXT =: SL(X)>201(SLAX)<L) X 
MoM Ip # @ 


2B STORED: p( “IGC( 0A, 9),"°*,6) 
44 POST ID: s Aeon K:S(X)>201 (SLAX)<1) X 8:’Sd(X) ane"* s:cmf*"" ce 


13.6 DUTY SINTIN SIME POINIER 1003’ pfz(1003, 
M/PCEM FID # 44 


20 CONVERSION CODE: 5 comScore, (Sd( “DTZ (1003,cm, 0} ) #10) som, 1 $0 “DZ 1003,0m,0) ,"*",1)) 
28 SIFED: 9p “ICC{EA,9),""",7) 


13.7 DUTY STATION ZIP OLE FREE TEXT K:St4X)>101(SAX)S) X 


A-79 














M/PCRM FID # 45 


28 STOFED: =$p( “100 (TA, 9),"°", 8) 
44 POST ID: 58 Xan; #SL(X) 9101 (SLAX)<S) X s:/Sd(X) am” s:an{"°" am"* 


101.1 NATURE OF INOURY EXPLANA 


M/FCRM FID # 7 


28 STCRED: nowhere 
29 PREFIELD CIE: 
8:/Sd(lvi) ivleO i Sd(cbi(0))>9 s shhnfile=1 d fileone’ptrfile: k sthfile 
i Sd( file), file,New’=) s filingsSa( 'Sd( filing) :ivlel, lvl’ <filing:lvl+l,1:filing) 
+d voontr“finfrm 6 New0,chi(0)="" k file 
§ lvl=lvl+l 
i lvl 8 DA(O}CA,DOSCA f ielvl:—1:1 s:Sa(DA(i-1)) OA(i be DA(A-1) 
k DA(O} S Ohe"" Dla" 


30 FOSIFTELD COLE: 
i lvl s CA(O)«OR £ ielsl:lvl s:Sd(DA(i)) DAC i-LOK(4) 
S:lv] DeeQA(0) k DA(Iv1) ,CA(O),O1 s lvlelvl-1 
16 CALLS M/PORM: NATURE CF INOURY/ILINGSS (4642) 


M/PORM: NATURE CF INOURY/ILLNESS (8642) 





1. PRe-fORM COE 


n filen, mptfile,New s:'Sd(noconp) filer ptc(i form, 99) 
+6:Sd(nocamp) filene*ptg( 903, iform,99) 5 Naw), mptfileel 
5 Un""" i 'Sa(DT) 5 XxGad( SH), WP"" d “Wr s Clky k XY 
d sec” fréon 
d crinck* finéoa 
TI. WINKS 
RR OF TS er 
DATA ELEMENT DATA TYPE FOINIER GLOBAL REFER@CE OR INPUT VERIFICATION 
-O1 NATURE OF INOURY EXPLANA WORO PROCESSING 
M/PCRM FID #1 


2B STORED: Eo | “1c(PA(1),102,00,0),°",1) 





TIT. FOST-20RM CE 


i Sd( file), file s perp irae le lvl oe ll,1:filing) 
+d shuffle*fnérm d nodeO* fai 








A-80 








CAS window 2 
DPOA ELEPENT DACA TYPE = POINTER GLCEAL FEFERENCE OR INPUT VERIFICCION 
502 SRCLSE AY LEACH FREE TEXT = SL(X)>30!(SLAX)<L) X 


M/FORM FID # 56 


' 28 SIFED: 9 “1m, 501),""",1) 
44 POST ID: 8 %eem K:SL({X)>301(SL(X)<1) X 83’Sd(X) ane" s:an{"°" ome" 


502.1 ACDRESS CF SFCLEE FREE TEXT K:$2{X)>551(SL{X)<1) X 
M/PCRM FID $ 57 


28 STORED: $p( “10c (mA, S01) ,**",.2) 
44 FOST ID: § Mecmm K:SL(X)>551(SL(X)<1) X 6:/Sd(X) om" s:anf"*" am” 


502.2 CIiy c¥ SEULEE FREE TEXT R:$L.(X)>20!(SL(X)<1) X 
M/C FID ¢ 58 


2 SICFED: Spi “TOC(DA, SOL) ,"**,3) 
44 POST ID: & Yecm K:SU{X)>201(SL(X)<2) X 62/Sd(X) ae" sranl""" com”” 


502.3 STATE OF SECLEE FOINIER 1003’ pf2(1003, 
M/PCEM FID # 59 


20 CONVERSION CELE: camGe(cme"":"*, "($d “1Z(1003,cm,0) #10) 10m 2: sp{ "rz 1003 cm.0),"*",2)) 
28 STORED: 9p{“10C(0A,501),""",4) 


502.4 ZIPCODE CF SPORE Fe TEXT K:SL{X)>101 (SLX) <5) X 
M/PCRM FID # 60 


2B STORED: 9p(“Tecima,01),"*",5) 
44 FOST ID: 8 Mecm K:SUAX)>10!(S2(X)<S) X 8:/Sa(X) am”" g:anf""* om” 


530 SXLEE oo DME S WIh"e” D “WT S MY K:Ydl X 
M/A FID #8 


20 CNVERSICN CLE: 
8 %"(" 8:+Se(cm,4,5) Ya Spl "JAN. FEB.MAR_APR.MAY.LN.JUL.AUG. SEP.OCT.NOV.DEC",".." 
,+Se(an, 4, $)) we 8:+Ge(caa,6,7) D4 reer e *, * s HX (1700+Se(am,1,3)) 
s:Sp(am,".",2)’a x." a * Se{ca 000" 19,10)_": m0 » $e(ca “000", 11,122) s #«K c*)" 
8:%="(1700)" "* 5 aeK 
28 SIFED: Sp(“10C(Oa, SL) ,""".6) 
531 ONDE CF MARRIAGE INE S$ Wi"E" D “Wr S WY K: vel X 


MPC FID #9 


A-81 














20 CCONWERSICN CIE: 
8 ¥e"(" 8:4Se(cm,4,5) YaK_$p( "JPN. FEB. MAR-APRLMAY. JUN. JUL AUG. SEP.OCT .NOV.DEC™,"." 
t$e(cm,4,5)) " " 8:+$2(can,6,7) Hak Se(cn,6,7) *. ” 6 HK (1700+Ge(cm,1,3)) 
s:9p(am,".",Z)’="" XK” at ” Se(an 1300", 9,107.":" Se(cai*000",11,12)  HeK.")” 
si¥"(1700)" Xe" 5 amex 


28 STORED: $p(“10C(DA,515),"°",1) 


532 LIVING W/SPOSE AT DEATH STOP ares Y: YES 
N:ND 


M/PCRM FID # 10 


20 CONVERSION COLE: 8 cam6p(9p(";¥: YES;N:ND;", "7" am ":",2),"3",1) cameo, ":",1) 
28 STORED: $p( “I0C(DA,515),"°",2) 


533 SFOUSE PREVIQUSLY MARRI SET CF COLES Y: YES 
N:ND 
M/PCEM FID # 11 


20 CONVERSION CORE: = s cmeOp( $p( "7 Y: YES;N:ND;",";" cn ":",2),°3",1) cman, "2", 1) 
28 stoRaD: §=$p( “10C (cA, 515) ,""", 3) 


534 EMP PREVICUBLY MARRIFD ST oF CES Y:YES 
N:ND 


M/FORM FID # 12 


20 CONVERSION CLE: = amdp(Sp(";Y: YES WN28O;","; * ca *:",2),";",1),cm6p(an,":",1) 
28 STORED: 90(“I0C(DA,S15),"°", 4) 


Pe OP a Sy fe ee Gee eee Og MAMIE G7 Ee Pre ee Gn Tage eee Aes 


DATA ELEMENT CROA TYPE FOINIER GLOBAL REFERENCE CR INSU VERIFICATION 
535 CHILDREN THIS MARRIAGE 


MACH FID # 13 


<8 STORED: rowhere 
29 PREFIELD COE: 
6:'Sd(lvl) lvl=O i Sd(cbi(0))>9 s shhfile=l d fllene’ptrfilel k sthfile 


i Sd( File), file,NeweQ 6 filingsGe(’Sd( filing) :lvleL,lvl' ailing: lviel, 1: filing) 
+d upontr® Snéom s News), chi (0)="" k file 
8 lvleivl+] 


1 lvl 8 DA(0)=0A,D0e0A f imlvl:~1:1 s:Sd(DA(i-1)) Oi OK i-1) 
® CA(O) S De"" De" 
ct) POSTFTELD COLE: 
i lvl s CA(O}=QA f iel:l: lvl 8:Sd(DA(i)) DAL i~1 )QA(i) 
S:lv] OfetQA(0) k CA(1v1) ,CA(0),O1' s lvlelvl-1 


16 CALLS M/PORM: CHILDREN OF THIS MARRIAGE (4673) 


A~82 








MVECM: CHILDREN OF THIS MARRIAGE (#673) 


I. FRS-AORM COLE 


n filen, rptfile,New s:'$d(rocmp) filen="pte i form, 99) 
+6:Sd(noconp) filene"phg(903, iform,99) 3 New), rptfi les] 
& Un"*" i /SA(DT) © NeGacl(SH), We “WT s Dey k X,Y 


@ sec” infra . 
2 TT, WINGS | 
CAA ELPPenr . CoA THE FODTIER GORA, REFERENCE oR DUI VERIFIOWION 
01 Neve FREE TEXT K:SL(X)>301 (SL(X)<3) X 


M/PCRM FID # 1 


28 SICYED: Spt “TOC(DA(1) ,515,08,0),"*",1) 
32 POST FILING COKE: di setinche* Eston 
44 FOOT ID: 8 Xan RsSL{X)>301 ($2(X)<3) X s:’SA(X) ame” &:anl**" ce"" 


34 INBX: “TOC(DA‘1), 516, "BY) 
55 LOCKUP NYE: 1°30*SK “TOC(DR 1),516, lids,0),7°",1) 
1 RELATIONSHIP FROE, TEXT K:$2(X)>30! (SL{X)23) X 
M/PCEM FID # 2 
28 STORED: $¢4 “ICC(DA(1),516,08,u),""",2) 
44 POST ID: 5 Yeo Xs5L{X)>301(SL(X)<3) X w2°Sd(X) cape 8:0 "*" cas" 
2 DME oF BIR cA S WIS"E" D “WF S WY Kevel x 
M/ACEM FID # 3 
20 CONVERSION CODE: 
8 Ye(" sssSetcn. 4,5) BT) Tae aN IRIN. LANE, SEP OCT.NOV DE, *." 
-+Se(an, 4.5)) * " s:4Se(ai,.6,7) 1X Se(am,6,7) *, ” & eK (1700+Se(an,1,3)) 
SOE ITOD) oe oy OF Sela "000",9,107_*:" Seta 000", 11,12) & WRK *)* 
S2¥e"(1700)" doe"™ ¢ omx 
2 Sire: SpU“TOCUOA( 1) , 516,08,0),"*", 3) 
3 ACDRESS FREE TEXT K:SL(X)>601(SUX)1) X 
MACH FID #5 


23 SICRED: $( “TOC(DR1) ,516,08,0),"7",4) 
44 RCST ID: s Xan R:SUAX)>601(SL1X)<1) X s:*SdlX) cme” san °** cm 


4 City FREE Tex X:SL{X)>231(SLAX)<L) X 
M/PCRA FID # 6 


A-83_ 














—, 

28 SICFFD: §=$p( “ICC (DA(1),S16,08,0),"°",5) 
44 POST ID: 5 Meam K:SL(X)>231(9L(X)<1) X s:’Sd(X) am"" s:an"*" am” 

5 SINE POINTER 1003’ 01z(1003, 
M/FCRM FID #9 
20 COWERSICN CODE: «$5 ameSe(cme”:"", " (Sd( “DZ ( 1003.0) #10) scm, 1: Sg( “DZ (1003,.am,0),"*",1)) 
22 SICRED: SOX “TOC(DA(1) ,516,0A,0),"°",6) 

6 ZIP CLE FEE TEXT K:SL(X)>10!1($L{X)<S) X 


" M/PORM FID # 8 


28 STORED: $p(“ IOC(DA(1),516,DA,0),"°",7) 
44 POST ID: § rom K:S1{X)>101 (SL{X)<5) X 82/Sd(X) ame" ssanf""" one 





II. FOST-FCRM COE 
i Sd(file),file s filingsSs('$d( filing) :lvl,lvbfiling:1vl,1: filing) 
+d roce0* fmfon 





537 CHILD & LEGAL GLAROIAN 


M/FCRM FID # 15 


28 STORED: nowtere 
29 PREFTELD CLE: 
8:/Sd(1vl) lvle i Sd(chd(0))>9 s ahifileel d filemne*ptrfilel k sthfile 
i Sd( file), file,New’=0 s filingea( ‘Sd( filing) :lvl+l,lvl’<filing:lvl+1,1:filing) 
+d upcntr’ ffm § New), chi (0}="" k file 
§ lvlelvl+1 
i lvl 5 CA(O}—OR, DOA f ielvl:-1:1 s:Sd(DMi-L)) OACi QA i-1) 
k TA(O) S Dh" De" 


3 PCOSIFIFLD COLE: 
i lvl s CA(O)@A f iskslslvl s:Sd(DXi)) OAli-1)<OK(i) 
S:lvl CheQA(0) k DA(Iv1),DA(0),O1 s lvlelvl-1 
16 CALLS M/PORM: CHILD & LACAL GLAROIAN (4675) 


M/PORM: CHILD & LACAL GUARDIAN (#675) 





I, PRe-fORM COLE 
n filen, pcfile,New s:'Sdinocomp) filene’ ptc{ i foun, 99) 
+6:$d(nocomp) filsne’pbg( 903, i form,99) s Nan, ptfile=l 
3 Unt" i 'Sd(DT) & XeGad( Si), WOT" d “Wr s Oley k X,Y 
d sec” Snfoa 
TI. WINOOS 


: GILD & LACAL GUARDIAN Window 1 See ey 


A~-84 








DARGA ELEMENT OXIA THE POINTER GLOBAL ReF#FENCE CR INEUT VERIFICHION 
01 CHILD NAME FFeE TEXT K:SL(X)>301 (SLAX)<3) X 
M/PORM FID #1 
28 STORED: $p( “I0C(DA(1),518,D8,0),""",1) 
32 FOS? FILING COLE: di setinck“fmérm 
44 FOST ID: ss Yeo K:S4(X)>301(S@AN)<3) K 82’Sa(X) am" s:onl"** aw 
54 INDEX: “I0C(DA/1) ,518,"B") 
55 LOOMP NTE: 1°307Sp( “TOC(DA()}, 518, Lids, 0),"°",1) 
1 GUNAOIAN NE RE THT K:SL(X)>301 (SL{X)<3) X 
M/PCEM FID # 2 


28 STORED: §=$p( “TCC(DK(1) ,518,D,0),"°",2) 
44 FROST ID: $8 Yea K:SL(X)>301(SAX)<3) X 8:/Sd(X) am" ssan{"" an** 


2 GUAROIAN’S ACCHESS FREE TEXT K:$L(X)>60! (SL(X)<1) X 
M/FCRM FID # 3 


28 SYORED: 9p “ICC{(DA(1) ,518,0a,0),*"*, 3) 
44 POST 1D: & Mean K:5Z(X)601 (SLAX}<L) X 8:’Sd(X) come”* gral “** ame" 


3 ary FREE TEXT K2SU{X)>231(SLLX)<1) X 
M/PCEM FID ¢ 4 


23 STCRED: §=$p( “T0010 1) ,918,08,0),°°", 4) 
44 POST ID: & Mean K:SU(X)>231(SLAX)<1L) X 83°Sd{X) cme"* ssanf"*" one"* 


4 SYNE FCINIER 1003’ 1z(1003, 
M/PCRM FID #7 


20 CONERSIEN OX: 8 cmde(ome™:"*, "(Sd HT2( 1003, cen, 0) )910) sma, 1:94 “OZ( 1003 am,0),"7",1)) 
28 SICFED: Spt “IOC(DAL1) ,$18,2A,0),"°",5) 


5 zp are _ “‘FSE Texr KsSLAX)>101 (SLAX)<S) X 
M/SCHM FID ¢ 6 
28 TEORED: §=9p( “TOC(DA(1) ,518,08,0),"°",5) 
44 FOOT I: ss Heo K:SL{X)>101(S2LX)<S) X 82°Sd(X) cme”” s:anf”*" one” 
TY. RSMO COE 
i Sd( file), file s flingGe( 'Sdi( filing) :lvl,lvb fling:1vl,1: filing) 
4d nocdkO* fate 





$38 OTHER CEPENCENIS 


A-85 








M/PCEM FID # 39 


28 SICFED: nowhere 
29 PREFIELD CCIE: 
8:/Sd(lvl) lvl=O i Sd(chi(0))>9 s sthfilee] d fileme’ptrfilel k sthfile 
i $d(file), file New'=O s filingsSs('$d(filing):lvi+1,lv)’ <filing:]vl4+1,1:filing) 
+d uponitr“fménn s Newel, chi(0)="" k file 
s lvlelvl+1 
i lvl s CA(O)=OR,D0eCA f imivl:-1:1 s:Sd(Q\(i-1)) OACi DAC i-1) 
k cA 0) 3 Chee!" Die" 


30 FOSIFIELD CIEE: 
i lvl 8 DA(O)@OA £ iel:islvl $:Sd(DA(i)) DAC-1 0X4) 
s:lvl DeeOA(0) k DA(1v)),DA(0),01 s lvlelv)-1 
. 16 CALLS M/PORM: CIHER DEPENDENTS (4685) 


M/FCRM: OTHER CEPENCENIS (#685) 





1. PRE-FCRM COE 


n filen, rptfile,New s:/$d(nocamp) filen=*ptc( i form, 99; 
+6:$d(nocamp) filane=*ptq( 903, ifoma,S9) s New), rptfi lee) 
5 Us"*" 1 'Sd(DP) 8 XGacl(SH),We"" d “WT s Diey k X,Y 
dG sec*fimém 
IT. WINDS 
rr ee ee 
OXTA ELEMENT ONTA TYE FOLNIER GLOBAL REFERENCE CR IMEUT VERIFICATION 
OL NAME - FREEZE TEXT K:SL(X)>301 (SU{X)<3) X 
M/PCRM FID # 1 
2B STORED: 994 “ICC(DA(1) ,519,00,0),°°",2) 
32 POST FILING COE: d setindk” ffm 
44 POST TD: 5 Mean K:SL(X)>30!(SL(X)<3) X s:"Sa(X) ae" g:0n("°" am™ 
S4 INDEX: $9 “IOC(DA(1),519,"B") 
55 LOCKUP NCE: =1°307Sp( “IQC(OK(1) , 519, Lids,0),""",1) 
1 RELATIONSHIP FREE TEXT K:SL(X)>301 (LAX) X 
M/FCRM FID # 2 


28 STORED: 9(“TOC{DAL1), 519,08,0),"*", 2) 
44 FOBT ID: 8 Nem K:SL(X)>30!(SL{X)<3) X s:/Sd(X) ome” sro" om 


2 OME OF AIR DAIE S Wh" D “WT S WY KYL X 
NORA FID #3 
20 COWERSICN CCIE: 


A-BA 








& Me"(" g:9Se(cmn,4,5) Xe So{ JAN. FEB.MPR-APR.MAY. LN. JULAUG. SEP OCT. NOV.DEC™,"." 
,+$e(am,4,5)) ies 6:+Se(on,6,7) KX Seioa,6,7) ae "s X (1700+Se(ar,1,3)) 
8:Sp(an,".",Z)'="" eK" at " Se(cea"000",9,10)_":"_Se(cma"000",11,12) & HK_")" 
5:%"(1700)" Ye" 5 cmt 
28 STORED: $p{ “I0C(DA(1),519,00,0),""",3) 
3 ACESS Fee TEXT K:$1{X)>601 (SAX) 1) X 
M/FCFM FID # 4 


2 STORED: $p( “TOC(DA(1) ,519,D8,0),"°",4) 
44 FOST ID: 6 Yertm K:SL(X)>60!1(SUX)<L) X 82°Sd(X) ame" ssanl"*" om"* 


4a FREE TEAT K:S{X)>231(SUX)<1) X 
M/PCEM FID # 5 


28 SEED: $p(“107(DA(1),519,00,0),""",5) 
44 POST ID: 6 Yee K:SL(X)>231 (SUAX)L) X 8: ’$d(X) cme" s:onf*°" ame" 


5 SIME FOINTER 1003’ 1z(1003, 
M/PORM FID # 8 


20 CUVERSION COLE: «ss camGe(cre™™ 2", "($d HZ 1003, can, 0) #10) scm, 1394 “DTZ (1003,cn, 0) ,"°"1)) 
2B SICRED: §=$p( “10C(DA(1) ,529,04,0),"°",6) 


6 ZIP GLE FREE TEXT K:SL{X)>10!1(SL(X)<S) X 
POEM FID 87 


28 STORED: 9pf “ICC(OA(1) ,819,08,0),"°",7) 
44 FOST ID: & You K:SL(X)>101(SLAX)<S) X #2/Sa(X) ame" g:an{"*" am" 





C1. RSTO Oe 


i Sd( file), file s filingeSe('Sd{(filing):lvl,lvbfiling:1vi1,1:f21ing) 
+d nodeO*fiEon 


: , -scuciits 


S05 SERVICE SD Free TEXT K:SUX) IU SUXI<L) X 
M/PCRM PID # 16 


28 STORED: 9p( “TOC(DA,500),"*".3) 
44 FOBT ID: § Mec R:SL(X)>201(SLX)1) X #:/Sd(x) am” sro "*" om 


506 GRPACH OF SERVICE Se oF Coe A:ARY 
NaN 
*ARINES 
F:AIR AORCE 
C: COAST GUND 


A-87 











M/FCRM FID # 17 


28 STORED: §=9( “T100( TA, 500) ,"°", 4) 
44 POST ID: 5 eam K:SL(X)>301(SL(X)<1) X s:/Sd(X) aae"" s:an{"** om”” 


507 PERIOD OF SERVICE FREE TEXT K:S2(X)>20! (SL{X)<1) X 
Y/R FID # 18 | 


28 STORED: $p(“I0c(DA, 500), "*",5) 
44 POST ID: 5 Neem K:SL(K)>20!(SLAX)<1) X §:'Sd(X) ome '* s:anf"*" one" 


71LO VA CLAIM NLMEER FREE TEXT K:SU(X)>151(SU{X)<1) X 
M/PCRM FID # 46 


2 SICRED: 9p “1OC(DA.701),"7",2) 
44 POST ID: § Yecm K:SL{X)>151(SLXICL) X $:SA(X) cane” g:crn"°" ce" 


710.2 VA SIPBET ACCRESS FFeE TEXT K:SL{X)>541 (QUAX)<1) X 
M/PORM FID ¢ 76 


2B STORM: Spi “TOC (oA, 702),"°", 3) 
44 POST ID: 5 Yeon K:SUX)>S41(SUAX)CL) X 83°Sd(X) one” g:an{"*" ome” 


710.3 VA CIty Pree TEXT K:SU(X)>U(MAX) cL) X 
M/PCRM FID @ 49 


28 STORED: = 9p( “1001 DA, 701),"7", 4) 
44 POST ID: 5 Mecm K:L{X)>201 (AXIAL) XK 9:/Sa(X) ane™* sscnf**" ame" 


710.4 VA SIRTE PCINIER 1003° &z(1003, 
M/PORM FID # 50 


20 CONVERSION COE: 8 cmGe(cme™™:"", " (S( DIZ 1003, crm, 0) ) #10) som, 1:99 “DTZ 1003,cm,0) ,"7",.1)) 
2B STORED: 9=Sp( “I0C(DA, 701),"°", 5) 


710.5 VA 27P COE FREE TEXT R:SUAX)>101 (SLX) <5) X 
M/PCRM FID ¢ 41 


28 STORED: 9p{“T0C{Ea, 701), "*",6) 
44 FORT ID: s Mecma K:SLAX)>101 (SLAX)<S) X 8:°Sa(X) am” s:an"°” ane” 


PER EL Se ge ee EEN RI ee ae Ene gr es 
CRIA ELEMENT CRIA TYPE POINTER GLOBAL PEFERENCE OR INPUT VERIFICATION 
714 OTHER ANNUITIES CLAIMNJ = FREE TEXT R:SU(X)>1S1(SUXIL) X 
M/FORM FID ¢ 2 


A-88 














28 SIRE: Sp‘ “ICL{DA, 707),"°*",1) 
44 FOST ID: § Neon K:SL{X)>15!(SL(X)c1) X 8:’Sd(X) cae" sian °°" ca" 


714.1 OTHER ANNUITY OXIE BEGAN OME S Wle"E" D “WI S MY XY X 
M/PORM FID # 53 


20 CONERSION COLE: 
S %"(" 5:4Se(cm, 4,5) HC ¢ Spl "JAN. FEB .MAR.APRPY.LN. AL AG. SP .CCT.NOV. DEC”, "." 
,Se(cmn, 4,5)) * " $:4$e(am,6,7) MK Se(an,6,7) ", " SX ¢ (1700+Se(cm,1, 3)) 
8:90(c3,".",2)'="" HK" at * " Sean *000",9, 107 *:" Se(am 1 "000", 11,12) & X_")" 
824="(1700)" X=" § ank 


2B STORED: $p(“10C{Da,707),"*",2) 

714.2 OTHER ANNUITY AMOLNT NUMERIC BORO SX] "S” GP(X, "S7,2) Kee’ eh (X'?.NL”. "2N) 1 (39999999.99) 1 (KO) X 
MV/PCRM FID # 54 
28 STORED: 9p(“ICC(DA,707),"°",3) 

141.1 THIRD PARIY | 
MPM FID ¢ ZG 


23 SICRED: mthere 
29 FREFIFLD CLE: 
8:/Sd(lvl) IvleO 1 Sd(dti(0)}>9 s shfileel d filereptrfilel k sthf le 
i Sd file), file,New’=O s filingeSe( ‘Si( fLling) :lvlel,lvl'<filing:lviel,i: filing) 
ed upcner’ Sintra s New), coi(0)="" k file 
8 lvlelvl+l 
i lvl s DA(0)}CA, DOA f ielvi:-1:1 s:Sd(DXi-1)) OM i)=CA(i-1) 
k DAO) 5 Oe" De 


30 RCSITELD COLE: 
i lvl 8 CAO} f felsl:lvi s:Sd(OMi)) OM i-1L Oi) 
8:lvl CmeOQA(0) k ON ivl),DA(0),O2 6 lvlelvi-i 


16 CALLS P/FCRM: NAME/ACORESS THIRD PARTY (#626) 
M/E: NAE/ADORESS THIRD PARTY (1626) 


AT NESTE BE ELITE GLI ELSIE AIL ES EEL DN LORELEI RINES DOSE LATE BEDE DOE LEDER E EGU E OLLIE ET LEBER PETE RENT ERR IEE TERT EEE AES EEL ENTERED 


1, PRE-FORM COLE 


n Elen, cptfile,New s:'Sd(nocamp) filene“ptct i fom, 99) 
+6:Sd(nocemp) fi lene’ptg( 903, i fora, 99) 5s tened, rptfile) 
s Ue""* f 'SA(DT) w MoGac( SH), Wie"" d “WOT s Diey k X,Y 

d sac’ fatna 
d crindk’ fata 


TI. WINDS 


A-89 








CATA ELEMENT 


.01 NAVE 





CAO TYPE FOINIFR GLOBAL REFERENCE CR INEUT VERIFICATION 


FREE TEXT K:SLiX)>30! (SUX) X 


M/FORM FID # 4 


28 STOPED: 9 $p( “ICC(DA(1),2 .2,08,0),"°°",1) 
44 FOST ID: 5 erm K:SL(X)>30! (SLX <1) X 5:/Sd(X) ame" s:anf"*" on" 


5 SETULEMENT AMCLNT 


NU@RIC PORAT «-S:X1"S NeSP(X, °9",2) Rs 0X! K(X 2NL"."2N) 1 (39999999 .99) 1(X<0) 4 


M/XEM FID # 7 


2B STORED: = $p{ “IOC(DA(1),149,08,0),"7",6) 


1 ACCRESS 


FEE TEXT K:SidX)>701 (SAX) X 


M FORM FID # 2 


23 STORED: 9p “I0C(DA(1),140,08,0),"°",2) 
44 POST ID: 8 Mem K:SL(X)>701(SL(X)<1) X s:/SdiX) ame"* B:cn{"*" am”” 


4 , 
te 


M7CRS 


FHOE “EXT K:SL(X)>201(SUX)<1) X 


FID # 3 


28 STORED: Sp( “10C(DA(1),140,0A,0),"°",3) 
44 SOST Wes Mmm KSL(X!>20!(SL(X)CL) X 6:/Sd(X) ame"* srenf"°" ce" 


3 STINE 


SINTER 1003’ 02(1003, 


M,FCRM FID ¢ 4 


20 COWERSICN CLE: ss cafe": °7, "(SA “DZ 1003, cam, 0) ) #10) scam, 1: Spx “OZ ( 1003, a,0),"""1)) 


28 STCRED: 9p “ICC(OA(1) ,140,00,9),""", 4) 


4 DIPOLE 


M/FORM 


Free TEXT K:SU{X)>101 (SLiX)<5) X 
Fip #5 


28 SICRED: 9p( “TOC(DA(1),140,68,0),"°",5) 
44 POST DD: s Yecm K:SL(X)>101(SULX)<5) X 8:°SAX) come"* s:an("°" ce" 





$15 TODAL BURIAL EXPENSE 


MFO 





TIT. POST-FOFM COLE 


i Sdi file), file s filing6at ‘Sd( filing): lvl, lvbfiling:lvl,1: filing) 
44 noded” fnfoe 


NUMERIC PORK 4K! aX! (109999999) # (Xet)) 1 (X2.E1"."IN.N) X 
fm # 2 


TB OSNTSD: § A TTC A,05),"7", 1) 


A-4Q 





516 BURIAL EXPErS% PAID BY V NUMERIC FORMAT = M:4X' aX! (3099999909) 1(X<0) 1(X?.E1"."IN.N) X 


NACH FID #23 

28 SERED: Sp( “ICC(DA,505),"°",2) 
S17 PARTY EAYING FOR BURIAL «= FREE TEXT K:SL{X)>301 (SLAX}<L) X 
. M/PCEM FID # 55 


28 STORED: $p( “T0C(DA, 506),"*", 1) . 
44 FCST IDs 6 Mecun K:SL(X)>30!(SL(X)<L) X 8: /Sd(X) ame"* ssa "*" ape"* 


517. OLADERESS OF PERSON PAYING Fr@e TEXT R:$i{X)>451(SL(X)<1) % 
M/PCEM FID # 72 


2B SYCRED: §=S$p( “ICC (DA, 506) ,"°",2) 
44 POST ID: 6 Nec K:SL(X)>451(SL{X)<1) X 8:/Sd(X) ome" s:an{"*" ane” 


§17.02cTTY GF PER PAYING FROe TEx K:5L(X)>201(SL(X)<1) X 
MACH FID # 73 


28 STORED: = $p( “roc(DA, 506) ,""", 3) 
44 OST ID: 8 Horm K:SL{(X)>201 (SLAX)<1) X 8:/Sd(X) ane gran "*" one 


$17. 03STATE OF PER PAYING FOINIER 1003’ 0f2(1003, 
M/FCRM FID # 74 


20 COWERSIXN COLE: 5 camGe(crte"":"", “(Sd “DTZ( 1003, cn, 0) #10) scm, 1 9p “Dz ( 1003, cm, 0), °°", 1)) 
2B STORED: =$p( “ICC(DA, 506), "7", 4) 


517. .04Z2P COOE OF FER PAYING Sree Texr K:SL(X)>10! (S2(X)<5) X 
VOM FID #75 


28 STORED: $p( “10C(DA,506),"°",5) 
44 FOST ID: s eam K:SL{X)>10! (SL(X)<5) K sz/Sd(X) ane™ s:an("" on™ 


555 ACORESS CF PERSON SICGNIN FREE TEXT K:S1{%)>601 (SL(X)<1) X 
N/FCRM FID 4 77 


28 STORED: =$o( “100(oK, 522),"°",1) 
44 FOST ID: 8 Mean K:SL{X)>601(SL(X)<1) X s2/Sd(X) cne™* s:aal"*" cme" 


555.1 CIY OF PERS SIQNG COPPER TET R:SUX)>201(SL(KICL) X 
MYECRM FID # 78 


2B sitrep: $p( “ICC(DR, $22) ,""", 2) 
44 FOBT ID: & ecm KsSLX)>201 (SLAX)CL) X s:"S4X) ane" sian" cn 


Aw5i 





555.2 SIRUE OF PERSON SIGUING FOINIER 1003’ 1z(1003, 
*/PCRM FID # 79 


20 CONVERSION COE: «ss areGe(ame"":°", * (Sd “DTZ ( 1003, can, 0) #10) scam, 1: $4 “DIZ(1003,cm,0) ,"*",1)) 
28 STORED: =$p( “ICC(DA, 522),""", 3) 


$55.3 ZIPOOKE CF PERSON SIGNIN FREE TEXT K:$L(X)>10!(SL{X)<S) X 
M/PCHM FID # 80 


28 STORED: §=$p( “0c (DA, 522) ,"°", 4) 
44 FOST ID: & eum K:$L(X)>10! (SU(X)<S) X 5:'Sd(X) am"" sani "°" ane" 


322 ORTE EMP/CLAIMANT SIGND CXE S WI="E" D “MT S Ney K:Y<l X 
M/PCRM FID $ 26 


20 COWERSINN OOF: 
& "(" 6:+Se(am,4,5) XeK_Sp( “JAN. FEB.MARAPRLPAY. JUN. JULAUG. SEP.OCT.NOV.DRC™,".” 
*$e(cm,4,5)) " " s:+Se(cn,6,7) XK Se(am,6,7) ", ” © HX (1700+Se(an,1,3)) 
B:Spian,”.",Z)’="" eX" at * $e(cm000",9,10) ":" Se(am “000",11,12) © %eK_")" 
8:%"(1700)" %e"" 6 anX 


28 STORED: $p( “I0C(DA, 303),"°",7) 

SS te ONY ne Ne ee SRO RIE gee eae ee pe any ee 

DATA ELEMENT ONA TYE FOINIER GLOBAL REFERENCE OR INPUT VERIFICATICN 
520 DOCS NARRATIVE OF REL OF 


M/PCRM FID # 27 


28 STORED: nowhere 
2 PREYIELD CLE: 
8:'Sd(1vl) lvl=O { $d(chi(0))>9 6 shhfile=l d filecrm’ptrfilel k sthfile 
i $d( file), file,New=d s filingeSe( ’Sd( filing) :lvl+l, lvl! <filing:lvl+l,1: filing) 
+d upontr’ finfrm 5 Need), chi(0)="" k file 
6 lvlelvl+l 
1 lvl s CACO} CA,D0e0A f ielvl:-1:1 s:Sd(DMi-1)) OA(i OA i-1) 
k DA(O) S Dhe"* Dae" 
3 FOSIFTIFLD Cre: 
i lvl 5s DA(O)=OA f imlslslvl s:$d(DK4)) DNi-L)OA(i) 
S:lvl DeeQA(0) k DA(lv1),OA(0),02 s lvlelvl-1 
16 CALLS M/FORM: DOC’S NARARTTVE CP INOURY (4677) 
M/PCRM: DOC’S NARARITIVE CF INRY (4677) 
ACEI EELS TPE TC LETTER NDE LEN EET AST ETC AE TTI A ET AEST DT EIA. EEE SAG IIS EAD NBISG NEE SNEED SR AOI EB PLASCTICS 


I. PRE-RORM COE 
Nn filen, pptfile,New s:/Sd(noomp) filene*pte( i form, 99) 


A-92 








+6:$d(noomp) filen="ptg(903,ifous,99) s New, rptfile=l 
5 Us"*" i 'Sd(DF) 6 %Ga(SH), We" d “WT s DIbY k X,¥ 


d sec’ fafna 
d crinck” ftom 
TZ. WINDKKS 


OXIA ELEMENT CAOA TYPE FOINIER GLOBAL REFERENCE CR INEUT VERIFICATION 
-01 DOCS NARRATIVE OF REL Of WORD PROCESSING | 
M/PCRM FID # 1 
28 STORED: §$p( “IOC(DA(1),507,D8,0),"",1) 





TIT. ROST-ACRM Cz 


i Sd file), file s tilinersa $a filing) :1vL, lv fling: 1v1,1:filing) 
4d shuffle’ fiatom d nodeO” fimécm 





Sel O0CS ‘TREXIMENT/OIAG 
M/PCRM FID # 28 


28 SICQFED: rovhere 
29 PREFIFLD COLE: ; 
B:'Sd(1vl) lvleO i Sd(chi(0))>9 s shhfileel d fileme*ptrfilel k sthfile 
1 Sd( file), file,New'sQ s filinge6e( '$d( filing): ‘viel lvl’ <filing:lvl+l,1:filing) 
+d upentr“finEna 5 News), chi(O)="" k file 
6 lvlelvlel : 
i lvl s ON(0)efA, DOTA f ielvl:-1:1 $:$a(DA(i-1)) CA(i OR i~1) 
k DA(O) S Dhe** De” 


30 FOSIFIELD CIE: 
i lvl s DA(O)eA £f iel:1:lvl s:$d(0Ki)) DA i-1 }<OA(i) 
S:lvl DheQA(0) k OA(1v1),OXM0),22 s lvlelvl-1 


16 CALLS M/PORM: DOSS TREMIMENT/OIAGSIS (4678) 
M/PCRM: DOCS TREAD ENTDIAGUSIS (#678) 


I, FRE-FOMM COLE, 


n filen, ptfile,New s:/$d(noomp) filen=“pte( ifonn,99) 
+8:Sd(nocmp) filen="ptg( 903, ifoum,99) s NawO, rptfile=) 
£ Ua""* i 'Sd(Dr) s gel atl da “WT s Diey k X,Y 

dG sec” finéca 
d cvindk” futon 


TT. WINS 





A-93 

















DOCS TREMIMENT/OIAGOSIS Wirckw 1 
DOAXTA ELEMENT OAXTA TYPE FOINIER GLOBAL REFERENCE CR INEUT VERIFICATION 
.01 DOCS TREXIMENT/OLAG WORD PROCESSING 


M/FORM FID # 1 
28 SICED: $p( “10C(DA(1) ,508,DA,0),"",1) 





II. FOST-FORM COE 


i Sd(file), file s tiline-se( ‘sa Elling) :Ivl Il, lvbfiling:lvl,1:filing) 
4d shuffle” ftom d node0” fmtom 





S22 TREXIMENT PRICR TO CEXTH 
M/TORM FID # 29 


28 SICHED: nowhere 
29 PREFIFLD (CLE: 
&:/SA(lvl) lvleQ i Sd(cbi(0))>9 s sthfileel d fileme*ptrfilel k shhfile 
1 Sd( file), file,New'sO s filingsGe( 'Sd( filing) :lvlel, lvl’ <filing:lvl¢l,1:filing) 
+4 upcntr’finfrm § News, cod (0)e"" k file 
8 lvlelvl+1 
i lvl s DA(O)=fA,D0eDR f ielvl:-1:1 s:Sd(DA(i-1)) OAC i OA i~1) 
k CA(O) S Cee"" De” 


30 POSTFTIELD COLE: 
i lvl s DCA(O)=€A £ ielsl:lvl s:$d(DA(i)) DA(i-1 Ai) 
S:lvl OfeQA(0) k DCA(lv1),DA(0),O1 s lvlelvl~1 
16 CALLS M/PORM: TREMIMENT PRICR TO CEXTH (#679) 


M/PORM: TREXIMENT PRIOR TO CEXIH (4679) 





a. PREACH CEE 


n filen, mptfile,New s:/$d(nocamp) filen="ptc( i form, 99) 
+6:Sd(nocaomp) filen="ptg(903,ifou,99) s New0, ptfile=l 
s Un" { ‘Sd(DT) s MeGad(SH),WTe"" d “WT s Diby k X,Y 


d seac*fnéra 
G crinck*fmém 
T. WINOOS 
ee FOE FR Dikituat °°» 
CRIA ELEMENT CX TYE FOINIER GLCRAL REFERENCE CR INGUT VERIFICATION 


-O1 CES TREXIMENT PRICR 10 D WORD PROCESSING 
M/FORM FID $ 1 


A-94 f 











28 STORED: = $p(“ICC(DA(1),509,08,0),"",1) 





It. RSM Ce 


i $d( file), file s filingGe( '$d( filing) :lvl,lvbfiling:1vl,1: filing) 
4d shuffle’ ffm d node“ finémm 





523 TREAIMENT OATES (BRE-CEA CMIE S Wh"E" D “WT S MY Ks Yl X 
M/PCRM FID # 30 
2 


8 "(" Pea a: 5) XK Sol “JAN. FEB WAR.APRIBY. UN. JUL. AUG. S22? .OCT. NOV.DRC”,"." 
+Se(am,4,5)) " " S +Se(caa,6, 7) %eK Se(an,6,7) ", " 8 MK (170G+Se(an,1,3)) 
s:9p(an,"." ,2)'a™ eK" at" Seca "000", 9,107 * * Se(an "000" /ll,12) S %XK_")" 
82%"(1700)" Me" 5 on 


2B SIOFED: = $p(“10C(DA, 505) ,"*",,6) 
$24 OCRECT CAUSE OF DERGH 
M/FCRM FID # 31 


28 SICFED: rovhere 
29 PREFIELD CCIE: 
63 'Sd(lvl) vied i $d(cbi(0))>9 s sinfile=l d filecre‘ptrfilel k sthfile 
i $d( file), file, News) s filirepSs( ‘Sd( filing) siviel pv) <filing: lvi+l,1:£i1ing) 
4d upontrc*finfrrs 5 Naw), chi(0)="" k file 
& lvle=lvl41 
i lvl s DA(O)=CA, DOA £ imlvls-1:1 s:Sdi(DA(i-1)) DAL DAC i~1) 
& DAO) S Dke"* Dle"* 


30 FOSIFIELD CCIE: 
i lvl § CA(O)=OA £ ielsislvl s:Sd(0A(i)) DA(i-1)}<tA(1) 
stlvl DheCA(0) k OA(lv1),OA(0),O1 8 lvielvi-1 


16 CALLS M/PORM: DIRECT CAUSE CF DEATH (4650) 
Y/PCRM: DIRECT CAUS® OF DEARTH (#680) 


I, PRE-ACRt COE 


Nn filen. rptfile,New s:’$d(nocmp) fillen="ptc( i form, 99) 
+8:$d(nocamp) filen~*ph9(903,iform,99) s NewO,rptfile=l 
sur" ire i ‘Sd(pr) $ HSai( i) WI" d “Wr s DRY k KY 





CAOA ELEYENT CPOA TYPE FOINIER GLOSAL REFERENCE OR INCU? VERIFICATION 


A-95 




















.01 DIRECT CAUSE OF DEXIH WORD PRESSING 
M/PCRM FID # 1 
28 SIRED: 9p(“I0C(DA(1),510,08,0),"",2) 





TTI. FOST-FOR1 CLE 


i $d( file), file s filingsGe( ‘$d( filing) :1vl,lvbfiling:1v1,1:filing) 
+d shuffle*finfon d nodeO* ff 





525 CONTRIBUTORY CALSE OF CE 
M/FCEM FID # 32 


28 SIUFED: rovhere 
29 PREFIFLD CTE: 
8:/Sd(lvl) lvleO £ $d(dbi(0))>9 8 shhfileel d fileme*ptrfilel k shhfile 
1 Sd( file), file,New'=0 s filingGa( '’Sd( filing) :bvlel, lvl! <filing:lvl+1,1: filing) 
+d upentr” fin€on 5 Newd,chi(0)="™ k file 
8 lvl=lvl+l 
i lvl s CA(O)—OR,D0SDA f lelvl:~1:1 s:Sd(DA(i-2)) OM 1)=OA(i-1) 
k DA(O) S Ofe"" ,Din"" 


30 FOSIFIELD CIE: 
i lvl s DA(O)eOA f iel:l:]vl s:Sd(DAli)) DA(i-1 ON i) 
S:lvl fPeQA(0) k CAC1V1),ON(0),O1 s lvlelvl-1 
16 CALLS M/PORM: CONIRIBUIORY CAUSE DERTH (#681) 


M/PORM: CCNIRIBUTCRY CAUSE D&AdH (#681) 





1. PRE-FORM CCE 
n filen, rptfile,New s:'Sd(nocamp) filen= pte iform,99) 
+6:Sd(nocomp) filene’ptg(903, iform,99) s Nand, rptfiles) 
S Ue""" i ‘Sd(DT) 8 XxGacd( Si), We" d “WE s Dik k X,Y 
a sec*fmfon 
d crindk” fnfa 
TI. WOUGS 
OAGR ELEMENT OXTA TYE FOINIER GLOBAL REFERENCE OR INGUT VERIFICATION 
.01 CONIRIBUICRY CALSE OF DE WOO PROCESSING 
M/FCRM FID # 1 


28 STORED: $p(“10C(OA(1),511,D8,0),"",1) 





A-96 








TI. FOST-fOrM COLE 


i $d( file), file s oe "$d( filing) :1lv1,lvb filing: 1vl,1:filing) 
+0 shuffle*fmfon d nodeO*finfmn 
a SES ET SE ST Ss i ts SEPA 


526 WAS DEATH DUE TO WORK ST or CIES —_sY:: YES 
N:NOD 


M/FCRM FID # 33 


20 COWERSICN CLE: 5 omeGp($p("";¥: ¥ES;N:NO;","7"_ am ":",2),";",1) ,amOp(an,":",1) 
28 SICFED: $p( “10c(DA, 505) ,"*",,7) 


526.1 EXPLAIN CALBAL FELATIONS 
v/FCRM FID # 34 


28 SICFED: rowtere 
29 FREFIELD COLE: 
8:'Sd(1vl) lvleO i $d(chi(0))>9 s shhfile=l d filecre’ptrfilel k shfile 
i Sd( file), file,New=0 8 filinpée( ‘Sd( filing) :lvl+1, lvl’ <filing:lvl+1,1:filing) 
4d upmnitrfiném 5 News), chi(O)='™ k file 
§ lWleivl+l 


i lvl 5 OA(0)<DA,DOMA f ielvl:-1:1 s:Sd(DKi-1)) DA(i)=DA(i-1) 


30 FOSIFIELD COLE: 
i lvl 5s DA(O)OA f iel:islvl s:Sd(DA(i)) DA(i-1)—ON1) 
S:1vl DeOA(0) k DA(1v1),0A(0),02 6 lvielvl-1 


16 CALLS M/PORM: EXPLAIN CAUSAL RELATIONSHIP (4682) 
M/PORM: EXPLAIN CAUSAL RELATIONSHIP (4682) 


1. PRE-FORM COLE 


n filen, rptfile,New s:’$d(nocamp) filen=“ptc( i fom, 99} 
+@:$d(nocamp) filen=*ptg(903, ifomm,99) s New), rptfile=1 
8 Ue" i SADT) 8 MGakSH), Wie" d “WT s Diky k X,Y 

@ sec” fmfma 
di crinck” ff 


1. WNOS 


ORTA ELEMENT OMA TYE FOINIER GLOBAL REFERENCE OR INEUT VERIFICATION 
01 EXPLAIN CALBAL FELATIOS WORD PROCESSING 


M/PCRM FID #1 
28 STORED: $p( “I0C(DA(1),512,08,0),"",1) 





A-97 














TIT. FOST-FORM COLE 


i Sd( file), file s ee ee ll, lvb filing:lv1,1:filing) 
4d shuffle finfon d node0* ftom 





527 AUTOPSY ‘BICPSY PERFORMED SET OF COLES Y¥:YES 
N:ND 


M/FCRM FID # 35 


20 CONWERSION CODE: = s amedp(Sp(";¥: YES/N:ND;",";" am_7:",2),"3",1) ,ceGp(am,":",1) 
28 SITRED: $p( “100 (DA, 505) ,"°", 8) 


401 REFCRAAL PHYSICIAN FREE TEXT K:SL(X)>30! (QL{X)<1) X 
M/FORM FID # 61 


28 SIORED: $p( “1CC(DA, 401) ,"*",1) 
44 SCST ID: gs Mec K:$1.,(X)>30!(SU(X)<1) X 8:°Sd(X) ame" s:anl"*" ane" 


401.1 RP ACCFESS FREE TEXT K:5L(X)>54!(SL{X)<1) X 
M/FCEM FID # 62 


28 SICFED: $p( “ICC(TA, 401) "7", 2) 
44 FOST ID: s eam K:SL(X)>451(SL(X)<1) X 8:’Sd(X) ame”” s:anl "°°" on” 


401.2 RP COTY FREE TEXT K:SL(X)>20! (SUX) X 
M/FCEM FID # 63 


28 STORED: $p( “ICC(DA, 401) "7", 3) 
44 FOST ID: s Mean K:SL(X)>201(SL(X) <1) X s:/Sd(X) ae" s:ant"*" ane" 


401.3 RP STATE POINTER 1003’ 012(1003, 
M/FCRM FID # 64 


20 CONVERSION COLE: = 8 amGa(ame"":", / (Sd( “DZ ( 1003, crn, 0) #10) zm, 1S “DIZ(1003,an,0),"*",1)) 
28 STORED: 9 $p(“I0C(DA, 401),"°", 4) 


401.4 RP ZIRE FREE TEXT K:SL{X)>101 (SLAX)<S) X 
M/FCRM FID # 65 


28 STORED: $p( “I0C( DA, 401) ,"°", 5) 
44 FOST ID: s Nean K:SL(X)>10!(SL{X)<5) &% s:’Sd(X) am" s:an("*" om" 


400 ATTENDING PHYSICIAN FREE TEXT K:SL{X)>30! (SLAX)<L) X 
M/PCHM FID # 66 


28 STORED: 9p( “ICC(A, 400),"7", 1) 
44 POST ID: s ecm K:SL(X)>301(SL(X)<1) X s2?Sd(X) om” ssanf*"" cre’ 








400.9 ORIE SIGNED 


400.1 DOCS ADDRESS 


400.2 DOCS city 


400.3 DOCS SIRE 


400.4 DAS ZIPOLE 





OXIE S Wih"E" D “Wr S WY K:Yd X 
CRM FID $ 71 


20 CONVERSICGN COLE: 
S Xe"(" s:+Se(an, 4,5) YeX $o("PNFEB.MAR_AER.MAY LN JUL AUG. SEP.CCT.NOV. DEC", “8 
Seta s 5)) ""s: +Se(cm,6, 7) %=K Se(am,6,7) ", * 5 XK ¢ (1700+Se(an,1, 3)) 
om," 2)’m Yo " at * ' $e(cn_“000", 9, 10) ' mem ' Se(an " 11,12) s ¥ex_")” 

eoe"(1700)" %"" 5 ark 

28 STORED: =$p( “ICCTA, 00) ,“°",,10) 
FREE TEXT K:SL(X)>541(SL(X)<1) X 

M/PCEM FID # 67 


28 STORED: = $9( “ICC(DA, 400), "7", 2) 
44 FOST ID: & eum K:$L(X)>451(SL(X)<1) X §:/Sd(X) an="" s:anl"*" cnet" 


FFRE ‘TEXT K:SL{X)>20! (SL{X)<1) X 
M/PCEM FID # 68 


28 SICFED: $p( “ICC (DA, 400),"°", 3) 
4 POST ID: 5 Mecm K:SL(X)>20! (SLX)<1) X #:/Sd(X) am"* s:an("*" am 


POINIER 1003’ ofz(1003, 
M/YCRM FID # 69 


20 COWERSICN CELE: 5 amGe(cne™ 2,“ ($i( “DTZ (1003,can, 0) )#10) sem, 1:$9{ “DTZ (1003,cm,0) ,"*",1)) 
28 STORED: 9p( “ICC (DA, 400),"*", 4) 


Free TEXT K:SL(X)>101(SL(X)<S) X 
M/PORM FID ¢ 70 


28 STORED: $p( “IOC( DA, 400),"°",5) 
44 POST ID: s Mean K:SL(X)>101 (SLX) <5} X s2/Sd(X) cme™* gsom{"*" ame" 


TI. ROST-ACRi CE 


i Sd( file), file,New’=0 s:/Sd(lvl) lvled 
+8 filimpde( ’Sd( filing) :lvl,lvbfiling:lvi,1:filing) 
+d * ft 


upontr 
i file=11($d(ERPLAG)) d “ISCPTLE 


A-99 











CA-5B CLAIM FOR COMPENSATION BY RELATIVES 





NAME OF DESEASED 
DATE OF BIRTH ~—-—SsSs—é“—~*S™CC CS «ATE OF INJURY. SSS 
DATE OF DEATH 5. SOCIAL SECURITY NUMBER 
NAME OF EMPLOYING AGENCY 
ADDRESS tae 
on eee ____ STATE _ "SIP CODE. 
7. NATURE OF INJURY WHICH CAUSED DEATH 
*Press <Return> for NATURE OF INJURY/ILLNESS* 
8. NAME OF DEPENDENT 
9. DEPENDENT’S ADDRESS. OS™~™~—SCCCCCCCCOOCOCSCS*SC‘CTCSC#”S 
crry = Stn ee ee Ce 
10, DEPENDENT’S BIRTHDATE __ 
11, DEPENDENT’S OCCUPATION 
12. DEPENDENT’S SOCIAL SECURITY NUMBER. SSSSC~CSCSC—CSCSCCC‘;~;C;~S 
13, DEPENDENT’S RELATIONSHIP TO EMPLOYEE 
14. EXTENT OF DEPENDENCY 0. EMPLOYEE 
15. TOVAL AMOUNT EMPLOYEE CONTRIBUTED TO DEPENDENT’S SUPPORT DURING 12 
MONTHS IMMEDIATELY PRIOR TO DEATH 
16. DID DEP LIVE WITH EMP 12 MOS PRIOR DEATH. SsS—~—~CSCSC—COC.C— OC‘; 


Nn & bd he 


























-eeeennenareataceninsiencaemanatrntee 


CLAIM FOR COMPENSATION BY RELATIVES (PAGE 2) 





17. TOTAL AMOUNT EMPLOYEE PAID DEPENDENT IN MONEY OR SERVICE FOR ROCM 
AND BOARD IN ADDITION TO AMOUNT SHOWN IN @15. 


PER 

18. IF NO FIXED AMOUNT WAS PAID FOR ROOM AND BOARD, WHAT IS THE FAIR 
VALUE OF SUCH ROOM AND BOARD? PER 

19. IF DEPENDENT WAS EMPLOYED DURING 12 MONTHS PRIOR TO EMPLOYEE DEATH 


GIVE: 
TYPE OF WORK PERFORMED: 
PERIOD OF EMPLOYMENT: 

MONTHLY PAY RATE: 
NAME OF EMPLOYER 

















ADDRESS 
City STATE Zip CODE 
20. DEPENDENT’S INCOME: INVESTMENTS PENSIONS 
PERSONS OTHER THAN EMPLOYEE 
OTHER TOTAL 
INFORMATION ABOUT DEPENDENT’S HUSBAND OR WIFE (ITEM 21 THROUGH 25) 
21. BIRTHDATE 22. OCCUPATION 
23. MONTHLY PAY RATE 
24. TOTAL INCCME DURING 12 HOS PRIOR DEATH j 





25. LIST PROPERTY OWNED BY DEPENDENT 
Press <Return> for DEPENDENT’S PROPERTY 








A-100 





26. 


27. 


28. 
29. 


30. 
32. 


33. 
34. 


35. 





CA~5B CLAIM FOR COMPENSATION BY RELATIVES (PAGE 3) 


IF EMPLOYEE WAS EVER IN THE ARMED FORCES OF THE UNITED STATES, 
GivE: 

SERVICE NUMBER: 
BRANCH OF SERVICE: SSC~CSCSCTC.CC‘“‘CNC~™; 
PERIOD OF SERVICE: : 

VA CLAIM NUMBER: ~ 7 
VA OFFICE WHERE CLAIN FILED_ 





acetate AR 


























ADDRESS 
cITy A 
CFCS CLAIM NUMBER: DATE ANNUITY SEGAN: 








AMOUNT PAID PER “MONTH? 3 
IF THIRD PARTY CLAIM, Press <Return> for NAME/ADDRESS THIRD PARTY 





TOTAL BURIAL EXPENSE 31. BURIAL EXPENSE PAYABLE BY VA $ 
PARTY PAYING FOR BURIAL TOTHER THAN VA) 
ADDRESS 


CI ooo or ee 
AMOUNT PAID: SsSSSSSSS—SCS eee 
SIGNATURE OF PERSON FILING CLAIN.——S——— 
ADDRESS 
Cee ee ee et COUE 


DATE 








emer ort tntntritartontmahe tore 








Seemnanacinaimagemeneensmaenenement 


CLAIM FOR COMPENSATION BY RELATIVES (PAGE 4) 


ATTENDING PHYSICIAN’S REPORT 


13. 


NAME OF DESEASED EMPLOYEE (SEE #1 PAGE 1) 

DATE OF DEATH (SEE #4 PAGE 1) 

WHAT HISTORY OF INJURY RELATED DISEASE? . 

*Pregs <Return> for DOC’S NARRATIVE OF INJURY* 
IF TREATED FOR DISEASE, GIVE DIAGNOSIS. 

*Press <Return> for DOC’S TREATMENT/DIAGNOSIS* 
IF DEATH WAS NOT INSTANTANEOUS, SESCRIBE 

*Press <Return> for TREATMENT PRIOR TO DEATH* 
SHOW DATES ON WHICH TREATMENT WAS GIVEN 

*Press <Returcn> for DIRECT CAUSE OF DEATH* 
*Press <Return> for CONTRIBUTORY CAUSE O?7 DEATH* 
WAS DEATH DUZ TO THE INJURY REPORT $3? 
MEDICAL REASON FOR OPINION 

*Press <Returr> for EXPLAIN CAUSAL RELATIONSHIP*® 
WAS A BIOPSY OR AUTOPSY PERFORMED? 

ATTENDING PHYSICIAN 
ADDRESS 

CrITy STATE ae] COD SD 

DATE SIGNED 























A~101 











CA-5B CON’T 
DEPENDENT’S PROPERTY 
TOMIT CLOTHING, FURNITURE, PERSONAL ITEMS) 


DEPENDS PROPERTY 
DATE ACQUIRED VALUE 








THIRD PARTY INFORMATION 


NAME SETTLEMENT AMOUNT 











*Word Processing Window will appear. 


A-102 





POR CAB (8688) 


esac tr ES ENS NE ENP ES I TIE TEESE LIE EEE EOI LE TELE TELE LITE IC DIED, EELS EELE PEALE TET 


I. Pre-fOR CLE 


n filen, pptfile, filing s:’$d(noonmp) filen=“ptc(ifor, 9) 
+6:$d(noommp) filen=“ptg(903,ifoom,99) s New), pptfile=l, ideaste2 k ident 
$ Un" i 'Sd(DT) s XxGad(SH),20le"" d “Wr s Oley k X,Y 
d sec” fméomn 


TT. WINDS 





———Ratinmwl 


DROW ELEMENT DRA TYPE = POINTER GLOBAL AEFERENCE OR INPUT VERIFICMTICN: 
2 NE FOINIER 1004’ EYPLOZ( | 
MVEORM FID # 104 


17 EXTEFNAL CEFRULT: NAME 
18 INTERNAL DEFAULT: NAMEPIR 
20 CONVERSION CEE: «8 amSe(ame™™ =,“ (Sd( “EMELOY(can, 0) #10) san, L: i acs 1)) 
28 STORED: Spf “TCC(TA,0),"*", 3) 
32 POST FILING COE: di setirck” fof 
44 POST ID: 1 (new) 82 /Sa(CICC("C™ new, x1) ) come" enc meeCLAIM NOT LOGGED!" 
54 INEX: = “r00("C") 
5S LOORLP NTE: 
104°20°$p( “10C( Lids ,0),*°*,3) 
3°23°$p( “IOC Lids, 9),"°",2) 





6 STRIHCNIZ CATE S Wh"E" D “MOT S Hed KsY<h X 
M/FORM FID # 2 


20 COWERSICN COE: 
8 %"(* g:4Se(cm, 4,5) Yee Spl “IAN. FEB.MAR_APRDAY.IN. LILA. SEP.OCT.NOV.DBC”,”." 
,+$e(cm,4,5)) * * 9:+$e(ca,6,7) HX Se(an,6,7) ", * & HX (1700+Se(cm,1,3)) 
s:So(am,".",2)’="" ex" at * + $a(caa"000",9, 107 ":" Seem *000", 11,12) Ye") 
8:%="(1700)" Xe" 5 amX 


2 STCRED: SoC THEA, 0), 7°",7) 
1 INXRY/TLINESS OME & TI NIE S Wie"EI" D “WI S HY K:Y<l X I SOX) K:SP(X,".",1) 08 X 
M/TCRM FID @ 3 


20 CONVERS CLE. 
8 "(" 8: eSetca,4, 5) eK 9p( “OPN. FEB.MARLAPR.MAY.JUN. JULAUG. SEP.OCT NOV.DEC",”.” 
ieee, 5))_" * s:4Se(an,6,7) XK Se(an,6,7) *, " § HK (1700+Se(cm,1,3)) 


5:9 a—,".",2)'="" a" at” " Se(can"000", 9,107 *:" Se(ca "000", 11,12) 8 Hex *)" 
82% "(1700)" es cam 


28 strep: $o("10C(mA, 0)", 2) 
32 POST FILING OYE: di setinck” fmt 


A~103 








Si INEX: § “IC7("D") 

55 LOOP NTE: 
3°23°9p( “FOC Lids, 0),"°",2) 
104°20° Sp “TaC( Lids,0),""", 3) 

103 FALE CF DEATH DATE S YE" D WMT S Mey K: Yl X I SOX) K:X<SP( “ICC(OA,0),U,2) X 

MFCRM FID # 61 

20 CONVERSICN COLE: 
8 ¥e"(" 5:+Se(an,4,5) YX Soi "JAN, FEBMAR.APRMAY JUN. JUL-AUG. SEP .OCT.NOW. DEC”, "." 
,+$e(cm,4,5)) " ” s:+Se(am.6,7) XK Se(cn,6,7) ", " 8 HK (1700+Se(am,1,3)) 
s:9p(aa,".", 2)" weak” at " Sec "000", 9,10) "2" Se(crn "000", 11,12) s XeK_")" 
$:X~"{ 1700)" X="" 5 amex 

28 STORED: $p{“10C(DA,100),"°", 4) 

3 SN FREE TEXT K:SL(X)>91 (SL(XIG) 1 / (X7GN) X 
M/PCRM FID # 5 


2B STORD: Sp “ICC(0A,0) "7", 4) 
44 FOST ID: § Necen K:SL(X)>91 (SLX) 9) 1" (229N) X 8: 'Sd(X) ame"™ giom( "7" cane" 


13 CUTY STATION POINTER 1062’ IN! 1062, 
M/FCRM FID # 62 


20 CONVERSION CORE: 8 ame (cme: "™, "(Sd( “INI(1062,<00,0) ) #10) som, 1: Sp “INI(1062,cm,0),"7",1)) 
28 STORED: $p(“ICC(DA,9),"7",1) 


13.4 QUTY STATION ACDRESS FREE TEX K:SL(X)>Sw. (SL(XI<1) X 
M/PCRM FID # 63 


28 SICRED: =9p( “CCEA, 9),"°", 5) 
44 POST ID: 8 Mecmm K:SU(Xj>70!, RUX)<1) X 8:’Sd(X) ame"* gs07["°" ce" 


13.5 OUTY SINTTON CIly FREE TEXT K:SUAX) 201 (SLXNL) X 
M/PCRA FID ¢ 64 


2B STORED: $= Sx “1Oc(m,9),"°", 6) 
44 POST WD: 8 Moca K:SL(X)>21 (ALKA) X 82/Sd(X) com"” ssanf "ae" 


13.6 DUTY STRATTON SIATE FOINIER 1003’ 012(1003, 
M/PORF FID # 65 


20 CONFRSN COE: 8 came (cme: "", *( Sci{ “TaE2( 1003, cra, 0) #20) :eam, 2: Sp “DZ (1003,cm,0),"7",1)) 
28 STOPED: Spt “TOC(IA,9),°", 7) 


13.7 DUTY SIRQYON ZIP Ce PPE TEXT R:SU(X)>101 (SLAXI65) X 


A-104 














M/FCEM FID # 66 


28 STORED: $p(“10C(DK.9),"7",2) 
44 FROST ID: 5 Meam K:$L(X)>101(SL(X)<5) X s:/Sd(X) am” s:an("°" on" 


101.1 NATURE OF INOURY EXPLANA 
M/ACEM FID # 7 


28 SICFED: nowhere 
29 PREFTFLD CLE: 
8:'SA(1v1) lvleQ i Sd(chi(0))>9 s shhfile=l d fileme‘ptrfilel k sthfile 
i $Sd( file), file,New'= s filinpée( 'Sd( filing) :lvl+l,lvl'<filing:lvi+l,1:£iling) 
4d upettr’ into 5 New), chi(0)="" k file 
8 lvlelvl+l a 
i lvl s DA(0)*0R,D0eDA f ielvl:-1:1 s:$d(DA(i-1)) OAC i =O i-1) 
k DAO) s Che" De’ 


30 FOSIFIELD COLE: 
i lvl s DA(O}eGfR f ielslslvl s:Sd(DA(i)) DA(i~-))=<OA(i) 
S:lvl DAeOA(O) k DA(Iv1) DA(0),O1 s Ivlelvl~1 


16 CALLS M/PORME NATURE OF INOURY/ILINESS (#642) 
M/FORM: NATURE CF INOURY/ILLNESS (#642) 


1. PRE-POR COLE 


n filen, ptfile,New s:'Sd(nocatp) Zilen=“pte( i form, 99) 
+6:$d(nocomp) filene’ptg( 903, ifoun,99) s Naw, rptfile=} 
S Ue"" i SADT) © MeGad(SH) WOT" d “WT s DIbY k XY 


d sec” finéem 
d crinck“fimémm 
| Il. WNOOS 
DRIA ELEMENT COA TOE = ROINTER GLGAL FeFERENCE OR INEUD VERIFICNTION 


01 NATURE CF INOURY EXPLANA WOOD SAOGESSING 
M/ECHM FID # 1 
2 STORED: $$ “ICC(DA(1),102,04,0),"",1) 





TH. OST OTe 
i Sd(file), file s filingsGe( 'Sd( filing) :lvl,lvbfiling:lvl,1:filing) 
4d shuffle’ fntmm d nods0”fintra 


503 OIHER DEFEND AT CEATH PEE TEXT R:SL{X)>301 (SLAX)<1) X 


A-105 











M/FCRM FID #8 


2B DICRED: Spi “rec( oA, S02) ,""", 5) 
44 POST ID: s Neon K:SL(X)>30!(SL(X)<1) X 8:’Sd(X) ce”" s:anl"°" am"” 


504 OTHER DEPEND ADRESS AT FREE TEXT K:SL(X)>551(SL(X)<1) X 
M/FCEM FID # 47 


28 STORED: $p( “I0C(DA, 502),""",1) 
44 FOST ID: s Yeom K:SL(X)>551(SL(X)<L) X s:’Sd(X) am" s:an{"°" ane 


504.1 OTHER CEPEND CITY FREE Text K:SL{X)>231 (SL(X) <1) X 
M/FORM FID # 48 


28 STORED: 9p “10C( DA, 502),"*",2) 
44 FOST ID: s Yecm K:SL(X)>231(SL(X)<1) X 8:/$d(X) ae" s:an{""" cme" 


504.2 OLHER CEPEND STATE FOINIFR 1003’ 012(1003, 
M/FORM FID # 57 


20 CONVERSICN COE: s amGe(cane"*:"", ’ (Sd “DZ( 1003,cm, 0) )#10) sem, 1: Sp DZ (1003,am,0),"°",1)) 
a2 STORED: =9p(“10C(DA,502),""",,3) 


504.3 OTHER CEPEND ZIP CCIE FREE TEXT K:SL(X)>10!($L(X)<5) X 
M/ACEM FID # SO 


28 STORED: $p( “IcC(DA, 502),""",4) 
44 POST ID: ss Yeon K:$L(X)>101(S2(X)<5) X 8:’Sd(X) am"” s:an("°" ane”"* 


539 OTHER CEPEND OCB CATE S Wh"E* D “WI S HY K:ycl X 
M/PCRM FID # 10 
20 CONVERSICN COLE: 
8 Xe"(" §:4Se(cm,4,5) YK Spi “JAN. FEB MAR_APR.MAY.OUN.GUL AUG. SEP.OCT. NOV. DEC", "." 
,+Se(am,4,5)) we 8:+Se(an,6,7) *X $e(an,6,7) * * s HX (1700+Se(am,1,3)) 
s:So(an,".",2)'="" XK” at ” Se(ca "000", 9,10) _":" Se(am 000", 11,12) & XeK_")" 
s:¥e"(1700)" Xe"" 5 aneX 
28 SICFED: $p( “10c(mn,515),"*",5) 
540 OTHER DEFEND CCOLEATION POINTER 1001’ 092(1001, 
M/PCRM FID # 58 


20 COWERSICN COE: «5 amSe (come: "(Si “DZ (1001, 0) #10) scam, 12 Sp “DZ ( 1001 ,aan,0) ,""",2) ) 
28 STORED: $p( “ICC (DA, 515),""",6) 


SAl OTHER CEPEND SSN FREE TEXT K:$U(X)>91 (SL1X)<9) 1° (XPGN) X 


A~106 








MECHA FID # 59 


28 STORED: =$p(“100(mA,515),""",7) 
44 POST ID: s Mecm K:SL(X)>91(SL(X)<9) 1" (X2ON) X s2/Sd(X) ane"" ssanf"*" cnet" 


542 OIHER DEPEND RELATIONSHI FREE TEXT K:SL{X)>301(SL(X)<3) X 





M/FCRM FID # 13 


28 STOFED: $p( “10C(DA, 515) ,"7",8) 
44 FCST ID: 6 Meo K:$L(X)>30!(SLAX)<3) X 8:/Sa(X) ane" ssan{""" one” 


S43 PARTTAL/TOIAL DEPENCENCY Ser OF CLES T: TOTAL 


P: BARTIAL 
M/PCRM FID # 52 


20 CONVERSICN CODE: 8 am6p($p(";T: TOIL; P: BARTIAL;”,";"_ am ":",2),"3",1) ,amp(an,":",1) 
28 STORED: $p("100(DA,515),""",9) 


544 AM? CONIRIB CEP PRIGR TO NUERIC FORMAT S:X{"S" XaGP(X, "5", 2) Ks4K K(X! 2 NL". "2N) 8 (39999999.99) | 
; (X<.01) X 


M/PORM FID # 15 
28 SICRED: =p “10C(DA,515),""", 10) 


S45 DEP WAM 12 MS PRIOR T = SET OF COLES Y:YES 
N:ND 


M/PCRM FID # 16 


20 CONVERSION COKE: § oteGp/$p(";¥:¥ES;N:ND;",";" cn "2",2),"3",1) ,camOp(om,":",1) 
2B STCFED: $p( “100(DA,520),"**,1) 





CATA ELEMENT OCROA TYPE FOINIER GLOBAL REFERENCE OR INEU! VERIFICATION 
546 ‘TOTAL ROOVECARD EXIRA NPERIC FCHAT S2X["S" WSP(X,"S",2) KeaX ae (XK? NL”. WIN) 1(2599999) 1 (XO) X 
M/PCRM FID $17 


28 STORED: =$p(°S0C(DA,520),"°",2) 
2 PREFIELD COE: 
i "Sd(cbi(16)) s 
chi (16)("n"1 (chi (16) ("N") scip="D" 


546.1 FOOM/EOARO BASIS Set oF COES W:VEERLY 
|“ MEMONTHLY 
B:BI-VEERLY 
ACANALLY 
D:DAILY 


A-107 








MFCM FID # 53 


20 CONWERSICN COLE: = 5 ateSp($p(" " AWEWEERLY ;M2MONTHLY ;B:BI-WEERLY ; 
D:DAILY;",";" an ":",2),"7",1) <am@pla,":",1) 
28 STORED: $o(“ICC(0R,520),"*",5) 
29 FREFIFLD COLE: 
i 'Sd(dbi(17)) 5 skip="D" 
$:cbi(16){"n"! (coi (16)("N") skip="D" 


S47 VALLE RYVED IF NO FIXED =—- NMERIC FORMAT. «—S:X1"$" ¥eGP(X,"$,2) Ke4XmXG(X/?.NL"."2N) | (399999999.99) 1 (KO) 


M/FCRM FID # 14 
28 STORED: $p( “IC(CA, 520), nee) 
rhrersern 


2 
i "$c (16)) 8 skip="D" 
s:cbd (16) ("n"t (abi (16)("N") skip="D* 


547.1 VALLE BASIS i 4 e W:WEERLY 
M:MCNIHLY 
B: BI-WFERLY 
A:ANNLALLY 
D:DAILY 
M/FORM FID § Sd 


20 COWERSICN CIE: coat Sol" IRL 


AROUNLY; 
D:DAILY;",";" cm ":",2),"3",1) ,amép(am,”:",1) 
28 STORED: | $(“10C(0H,520),""*, 4) 


29 PREFIFID CLE: 
i 'Sd(cbi(14)) 8 skip»"D” 
s:cbi (16){"n"! (ob 15) ( 8") skip="D" 
548 TYPE OF WORK PRRPCRRED FREE TEXT K:$L(X)>301(S{X) <1) X 
M/FCRM FID # 67 


2B STORED: =$p( “100(DA, 523) ,"*",1) 
44 POST ID: 5 Men K:SL{X)>30!1(SU(X)<1) X s:"Sd(X) cme"" s:an{"" cn” 


$48.1 PERTCD OF PMPLOYENT FREE TEXT K:$L(X)>301(SLAX) <1) X 
M/FOCR FID # 68 


28 SICRED: $p( “I0C(DA, 523) ,"*",2) 
44 FOST ID: ss Neon K:SL(X)>301(SL(X)<L) X 8:°SA(X) cme s:an"*" om"" 


348.2 MONTHLY PAY AMIE NUMERIC FORAT S2XU"S" WeGP(X,"S",2) Ke-4K7 G(X" ?.NL."2N) 1 (39999999.99) 1 (x0) 


. M/PORM FID # 69 
28 STORED: =$p( “ICC(DA, 523) ,"*", 3) 


A~108 








548.3 NAME OF EMPLOYER FFE TEXT K:$U(X)>30! (SUX) <1) X 
M/PCRM FID # 70 


28 STORED: $p( “100(DA,523),""", 4) 
44 CST ID: 5 Yeem K:$L(X)>30!(SL(X)<L) X 8:°$d(X) ame"" s:oni*°" ane" 


548.4 ADORESS OF EMPLOWER FREE TEXT K:$L(X)>60!(SL{(X)<1) X 
M/ECEM FID # 71 


28 STORED: 9p(“I0C(DA,523),""",5) 
44 POST ID: s Yeo K:SL(X)>60!(SL(X)<1) X 8:°Sd(X) ane" s:an{"°" an” 


548.5 CrIy OF EMPLOYER FRE Text K:$L(X)>201(S2(X)<1) X 
M/PCEM FID # 72 


28 SICFED: =Sp( “ToC (OK, 523) ,"°",6) 
44 POST ID: s Meom K:SL(X)>201(SL(X)<1) X g2/Sd(X) ane" s:an{"*" cme"" 


548.6 SINISE OF EMPLOYER FOINTER 1003’ 012(1003, 
M/PCEM FID # 73 


20 CONVERSION COKE: 5 amde(cme™" 2", ’ ($A TZ( 1003 ,can, 0) )#10) som, 1: 9p “DTZ (1003,cm,0),"°",1)) 
28 STORED: $p( “T0C(DA,523),"°",7) 


. 548.7 ZIP COE CF EMPLOYER FREE TEXT K:$L(X)>10!($L(X)<5) X 
M/ECEM FID # 74 


28 STORED: = $p/ “10c(pA,523),""", 8) 
44 POST ID: 8 Heo K:$L(X)>101(SL(X)<5) X 8:°Sd(X) awe" sronf"*" ane" 


549 IWESIMENIS NYERIC KORAD = SeX{"S" GE(X,"$",2) Ks4X"9G(X?NL"."2N) 1 (309999999.99) 1 (<0) ¥ 
M/FORM FID # 75 
28 STORED: Sp( “Z0C(DA,524),""",1) 

$49.1 PENSIONS OF OTHER PEPEND «=- NUMERIC OWA S:X]“S* NGE(X,"$",2) Kr4X/oXE(X"7.NL". ZN)! (X09999999.99) 1(X<0) F 
N/ECEM FID # 76 . 
28 STORED: =$p(“10C(0A,524),"*",2) 

549.2 PERSONS CIHER THEN EMPLO)-sNLMERIC FORT. S:X["§” WERK, "S*,2) Re 6X0 (X°2.NL*."2N) 1 (109999999,99) 1 (KO) y 
M/ACHM FID # 77 
28 STOPED: =$p("100(DA,524),""", 3) . 

549.3 CIHER INCOME FOR DEFENCE =“ NUMERIC FORA SzX["S* GE(X,"$",2) KzeX’ Kh X" 21. "2N) £ (209999999. 99) 1 (XC0) 2 


A-109 








M/FORM FID # 78 
28 SIGED: $p(“I0c(DA, 524) ,"*",4) 


549.4 TOIRL DEPENCENIS INCOME NMERIC PORAT S:X["S" ¥GP(X,"S",2) Ks4X" ake (KX! 2NL"."2N) 1 (30999999999 .99) 1 
(X<0) X 


M/FORM FID # 79 
28 STORED: $p( “I0C(mA, 524) ,""", 5) 
550 DEPEND SPCLSE OCB DRE S Wilk"E" D “WT S HY K:Yd. Xx 
M/PCRM FID # 21 
20 CONERSICN CLE: 
8 ¥e"(" 5:+Se(cm,4,5) aX Spl “JAN. FEB.MAR.APR MAY JUN. JULAUG. SEP.CCT.NOV. DEC”, "," 
pes 5)) " * 8: +e(cm,6, 7) WX Se(am,6,7) ", * 6 HK (1700+Se(an,1,3)) 
§:$p(an,".*,2)’="™" ¥eK_" at " " Sean "000" ap 10)": “" " Se{cn 000", 11,12) s %X_")" 
$:¥="(1700)" Xe"" 5 an 
28 STORED: $p( “IcC(DA, 520) ,"*",6) . 
S51 DEPEND SPOUSE COOLEATICN «=—s_«sPOINIER 1001’ o77(1001, 
M/PORM FID # 60 


20 CONVERSION COLE: «8 cmGs(cne™™:"™, '(Sd( “DIZ( L001 crm, 0) #10) sen, 12 Sp “DZ (1001,cxa, 0) "7", 2)) 
28 STORED: $p( “ICC (mA, 520) ,"*",7) 


552 DEPEND SPOLEE MNILY WA FREE. TEXT K:SL{X)>30! (SLAX)<L) X 
NV/FCEM FID # 23 , 


28 STORED: $p(“10C(DA,520),""",8) . 
44 FOST ID: s Mea K:SL(X)>301(SL(X)<1) X 8:/Sd(X) am” sroml "7" ce" 


553 CEPEND INCOME 12 MOS PRE NUMERIC FCROAT oni WSP(X,"S*, 2) K4X KE (X!? NL”. "2N) 1 (309999999. 99) 1 
(X<.01) X 


M/PCRM FID # 24 

2B STORED: §=$p( “I0C(DA, 520),"*",,9) 
S54 DEPENDS PRCPERIY 

M/FCRM FID # 25 

28 SICRED: rodere 

29 PREFIFID OE: 

§:/Sd(lvl) lvlaQ i Sd(cbhi(0))>9 s shhfileel d fileqe* k sthfile 
i Sd( file), file,New’=) s filingsSe( 'Sd{ filing) :lviel,lvl’ <filing: lvl+1,1: filing) 


+d upmtr*finfrm 5 Newd),chi(0)="" k file 
6 lvl=lvl+1 


A-110 














ills DA 0a, D0=DA £ ielvl:-1:1 s:Sd(DA(i~1)) DA(i DA i-1) 
k DA(O) S Dh" De" 


30 FOSIFIELD COE: 
i lvl s DRO)=mm f iel:l:lvl s:$a(DA(i)) DA(i-1L)@0Ki) 
s:lvl D8eQA(0) k DA(1Vv1),2A(0),D1 s lvi=lvl-1 


16 CALLS M/PCRM: DEPENDENI’S PROPERTY (#720) 


N/PCRM: DEFENCENI’S FRCFERIY (#720) | , 
PAI A SPE I DCN PE ENE TS AEE EILEEN EI ETE I ITE TITEL ENTE INTE OTOL SE EIN EIS SELENE ETE SEN 
: 1. ReOM COE 


n filen, rptfile,New 6:'Sd(nocomp) filene"ptc( ifoon, 99) 
+6:5d(noomp) filen="ptg(903,ifomn,99) s New), rptfile=1 
5 Ue"*" i *$d(Dr) ssi emcee d “Wr s Diey k X,Y . 

sec 


T. WINOOS 


DATA ELEMENT CAA TYE POINTER GLOBAL REFERENCE CR INPUT VERIFICATION 


.01 DEPENDS PROPERTY FFEE TEXT K:SU{X)>401 (SL(X)<1) X 
M/PCEM FID # 1 


28 SICED: $e(“TCIOAL), §21,08,0),""*,2) 
32 FOST FILING CE: i aetirck"finfm 

44 FOST ID: 8 Yeo K:SU{X)>401(SLUX)<L) X 8:/$A(X) come" s:cn("" cm" 
Sq INDEX: “10C(TA(1),521,"B") 

$5 LOOP NODE: | 1°40"Sp( “ZCC(EALL) S21, Lids, 0),"°*,) 


1 OXTE ACQUIRED Fee TEXT R:9L(X)>101(SLAX)<L) X 

M/PCRM FID § 2 

28 STORED: Spi “TOC(DA(2) ,521,0A,0),""*,2) 

44 POST ID: 5. Mecta K:SAX)>101(SU(X)<1) X 82/Sa(X) am" s:aml""* am"* 
2WuE NIMPRIC FORT 


SeX[“S" GE. "GS" 2) Reo (X’2.NL". IN) 1(29999999.99)! 
(X<.01) X 


M/PCEM FID # 3 
28 STORED: = $p(“ICC(DA(1),521,08,0),"°",3) 





TTY. ROST-CRM COLE 
i Sd( file), file s filingsGe('Sd( filing) :1vl,lvb>filing:1vl,1:£iLing) 
40 nodeO* fata 


Aelll 











SSS Oe ee 


CATA ELEMENT CATA TYPE FOINIER G.CBAL REFERENCE OR INEUT VERIFICATION 
505 SERVICE ND FREE TEXT K:SL(X)>20! (SL(X)<1) X 
M/FORM FID # 2% 


28 STORED: $p( “10C(mA, 500) ,""",,3) 
44 FOST ID: s won K:SL{X)>201(SL(X)<L) X s:/Sd(X) am"" ssan{"°" ane" 


506 BRANCH OF SERVICE SeT GF COLES AARY 
N: NAVY 
M: MARINES 
F:AIR FORCE 
C:CQQAST GUARD 
M/FORM FID # 27 


28 STORED: $p( “10C(DK, 500) ,""", 4) 
44 POST ID: § Meom K:SL(X)>30!1(SL(X)<1) X 83’Sd(X) am"* s:an{"*" am" 


SO7 PERIOD OF SERVICE FREE TEXT K:$L{X)>20! ($L(X)<1) X 
M/ACEM FID # 28 


28 SToFeD: §=$p(“1ac(na,500),"°",5) 
44 POST ID: s Yeom K:SL(X)>20! (SL{X)<1) X 8:’Sd(X) om"* ssan(°°" ane"” 


TLO VA CLAIM NUMBER FREE TEXT K:S2{X)>151(SLAX)<1) X 
M/FCEM FID # 85 


28 STORED: $p( “10C(DA,701),"°",1) 
44 POST ID: 8 Meam K:SL(X)>15!1($L(X)<1) X 8:/Sd(X) am" s:on{"°" ane"* 


710.1 VA CEFICE WERE CLAIM FI FREE TEXT K:$2(X)>30!(SL(%)<1) X 
M/FORM FID # 8 


28 SICFED: =$p( “I0C(DA,701),"*",2) 
44 POST ID: ss Mean K:Si{X)>30! (SLAX)<1) X s:’Sd(X) ame ssan{"*" an™* 


710.2 VA SIRBET ACORESS FRex TEXT K:SL(X)>54! (SL{X) <1) X 
M/PCHM FID # 87 


2B STCFED: $p( “10C(DA,701),"°",3) 
44 FOST ID: Yee K:SL(%)>541(SLAX)<1) X s:/Sd(X) cme” sranl"°" cm” 


710.3 WA CITY FREE TEXT K:SL(X)>20! (SLX) <1) X 
M/PCEM FID # 63 


A-112 











28 STORED: $p(“I0C(DA,701),""",4) 
44 POST ID: 8 Xan K: $L(X)>201 (SLX) CL) X 6:'$4(X) ane" s:an(""" am" 


710.4 VA SIME FOINIER 1003’ 12(1003, 
M/PCRM FID # 89 


20 COWERSION COKE: 5 camSe(cm"":"™, " (Sd( “DIZ(1003, cm, 0) #20) sem, 1:$p¢ "Drz(1003,an,0),"*",1)) 
28 STORED: 9p(“ICC(DA, 701),""",5) 


710.5 VA ZIP COLE FFSE ‘TEXT K:SL{X)>10!(SL{X)<5) X 
M/PCHM FID # 90 


28 SICRED: 9p( “ICC(DA, 701),"7",6) 
44 ZOST ID: s Mean K:SL(X)>101(SL{X)<S) X 8:°$A(X) ane" promi" ome 


714 OYHER ANNUITIES CLAIM NU FREE TEXT K2SU{X)>151(SL(X)<1) X 
M/PCEM FID # 91 


28 STORED: 9p( “10C(DA,707),°°*,1) 
44 FOST ID: s Mecrn K:SL.(X)>151(SL(X)<1) X 82°Sd{(X) am" s:om{"*" cme 


714.1 OTHER ANNUITY DATE BEGAN CMIE "SWE" D WE S HY KYL X 
M/FCRM FID # 92 


20 CONVERSION COLE: 

8 He"(" 6:45e(cm, 4,5) HK C S(MN. FPR YRELAPRURY. JUN. OUL.AUG. SEP .CCT.NOW.. DeC”,,”..* 
ise(ca 5) ° "8: +Se(can,6, 7) HX t Se(am,6, 7)", " © XK (1700+Se(cm,1,3)) 
8:S(am,".",2)=" NeX." at ” Se(cm000",9,10)_":" Se(em "000", 11,12) © XK _")" 
82%"(1700)" Xe"" 5 cmeX er 


28 STORED: $p{ “ICC(DA, 707),"*",2) . 
714.2 OTHER ANNUITY AMCLNT NUMERIC FORMAT S:X1 "5" NeGP(X, $2) Keto (KX! ?NL"."2N) 1(309999999.99) 1(XC0) ¥ 
M/PCRt FID # 93 
2B STORED: Spl “ICC(DA, 707),""",3) 
141.1 THIRD PARTY 
M/PORM FID # 31 


28 SICFED: ~rowhere 
2 PREFIELD COLE’ 
8:/Sd(lvl) "=O i Sd(chi(0))>9 s sthfile=l d fileone’ptrfilel k sthfile 
i Sd( fie), tileNew’=O 3 filingede( 'Sd( filing) :lvi+l,lvi'<filing:lvlel,l:filing) 
+ upentr* ft 8 Need), chi(0}="" k file 
$ lvl«lvi+l 
~ ll s DA0}OA, DMA £ ielvl:-i:1 s:Sd(DAli-1)) DA i }eCA(i=1) 
* FA(Q) S Che** Ole” 


A-i13 








30 FOSIFIELD OLE: 
i lvl 5 CA(O)MA f iel:i:lvl s:$d(DA(i)) DA(i-L Oi) 
$:lvl DfeDA(O) k DA(1v),DA(0),DL $ lvlelvl-1 
16 CALLS M/PORM: NAME/ADORESS THIRD PARTY (#625) 


M/FCRM: NAMEY/ACORESS ‘THIRD PARTY (#626) 





I. PRE-PORM COLE 


n filen, mptfile,New s:’Sd(nocamp) filene"ptc(ifomn, 99) 
+6:Sd(nocarp) filen=*ptg(903,ifomm,99) 5 New0, ptfile=l 
S Ue""" i SADT) 5 XeGarl(SH),W"" d “Wr s DIKY k X,Y 

d sec’ fnfon 
d crinck*” fmfon 


TX. WINGS 


Ee GO Rw CCCSC~=“~Ss*S*SS‘—~<‘<; TTS 


DAGR ELEMENT DATA TYE POINTER GLOBAL PEFEFENCE OR INPUT VERIFICATION 
.01 NAME FREE TEXT K:SL(X)>30!(SL(X)<1) X 
MV/FORM FID # 6 
2B STORED: 9p “IOC(DA(1),140,00,0),"7",1) 
44 FCST ID: s Xeom K:$L(X)>30!(SL(X)<1) X s:'Sd(X) ae” g:onf"°” am” 
5 SEVILEMENI AMLNT MMERIC FORMAT «SX "5" XeGP(X,"°S")2) Re4K' KE (X"2.NL"."2N) 1 (299999989..99) 1(X<0) > 
MVFCEM FID #7 | 
23 STORED: 9p “10C(DA(1),140,00,0),""",6) 
1 ADDRESS ree TEXT R:SLX)>7OL(SLXIL) X 
M/FCRM FID # 2 
28 STORED: $9 “1OC{DA(1),140,08,0),"*",2) 
44 FOST ID: 6 Yee K:S(X)9701(SUX)<1) X 8:/Sd(X) ame san" om" 
2 aN FREE TEXT R:SU{X)>201(SUX)A) X 
NV/ECRM FID # 3 
2B SIOFED: 9p “ICC{EAL1),140,04,0),"°", 3) 
44 FST ID: ss wan K:SL{X)>20!1(SUAX)<1) X s:/Sd(X) am™ s:on{**" an” 
3 SIME FOINIER 1003’ 1z(1003, 


M/PCRM FID # 4 
20 CONVERSION CLE: «8 amde(ame"":'™, * (Sd( “DTZ (1003,cm,0) ) #10) sem, 1: Sp “DTZ (1003,am,0),""",1)) 


A~114 








28 SIRED: $p( “10C(DA(1),140,00,0),"7", 4) 


| 4 ZIFOrEe FREE TEXT K:SL(X)>101 (SL(X)<S) X 


M/PCRM FID # 5 


28 STORED: $p(“I0C(DA(1),140,08,0),"*",5) 
44 POST ID: § Neem K:$L(X)>10! (SL(X)<5) X 8:/SdA(X) cme ssemi""" anette 


i Sd( file), file s filingés (°Sal filing) :1vl vb filing: lv} ,1:filing } 
40 node0* finfoa 


SUS TOTAL BURIAL EXPENSE NERIC FORAT 


Rz4X?Kt (X9999999) 1(X<O) (X21 INGA) X 
M/ACEM FID # 32 
28 SIcrep: Spt “TOC mA, 505),"°",2) 
516 BURIAL EXPENSE FAID BY V0 -NABRIC poe 
| UAE FID 433 
28 STORED: $r( “10C(rH, 505), "-",2) 
S17 ERRIY PAYING ER BURIAL RE Ter 


Ri4X’sX! (3099999999) 1 (X<0) 1 (XP.EL". LN.) x 


K:SL(X)>301(SU4x)<L) X 
M/PORM FID # 80 
28 STORED: $p( “T0C(DA, 506),""*,1) 
44 OST DD: ss Xeon K:SL(X)>30!(SL{X)<L) X 8:'Sd(X) ame s:an""* 
517 .OLADERESS ar PERSON PAYING Pee TEXT 


ee 
K:SUX)o451(SLAX)<1) x 

MPO FD # & 

ia Rat oh See meSURI SSX) X 8:/SdUX) cam grong"* 
5i7.02CITY OF PER FANG FREE TEX? 


— 
R:SUAX)>2'(SLX)A) x 
M/PCRM FID # 82 
rips res RALIISIONaARIC) X 8:'Sd(X) am 
517.0351R08 OF FER FAYING FOINIER 1003’ 012(1003, 


M/PCRM FID § 83 


s:an”"" cn 


20 CONWERSICN (2: 5 Cros (ce 2", # ($d( “DIZ( 1003 .caa,0))#20) sm, 1:Sot “DYZ(1003,cm,0),"*",1)) 
28 SICRED: Spt “TOCIIA, 506) ,"°",4) 


A-115 

















517.0420 COLE OF PER BAYING FREE TEXT K:$L(X)>101 (SL(X)<S) X 
M/PCRM FID # 84 
28 STORED: $p( “T0C(DA,506),"°",5) 
44 FOST ID: s Mec K:SL(X)>10!(SLAX)<5) X s2/Sd(X) ame" s:an"*" am" 


517.1 AMCUNT OTHER ARTY PAID NUMERIC FORMAT S:X["S" XeGP(X,"S",2) K24X!aKE(X’? NL”. "2N) 1 (39999999 ..99) | 
(X<.01) X 


M/FCRM FID # 35 


28 STORED: $p( “10C(DA, 505) ,"*", 3) 


555 ACORESS OF PERSON SICNIN FREE TEXT K:$U{X)>601 (SLX) <1) X 


M/AFCHM FID # M4 
2B STORED: $p( “IQC(DA, 522),"°",1) 
44 POST ID: 5 Weem K:SL(X)>601(SL(X)<L) X 8: °Sd(X) ane" s:anl"*" ane’ 


555.1 CITY OF PERSON SIGNING C FFE TEXT K:$L{X)>20! (SL{X)<1) X 


MECHA FID ¢ 5 
2B STCFED: Sp( “ICC( mA, §22),"*", 2) 
44 FOST ID: = Mecmn K:SLiX%)>201(SL(X) <1) X 9: °Sd(X) aee”* asc ”** ane 
555.2 STXTE OF PERSON STCNING POINIFR 1003’ 01z(1003, 


M/FCRM FID 4 96 
20 COMERSICN COE: = 5 amda(cam”":"", (Sd “DTZ(1003,cm, 0) ) #10) som, 1 :$( “DIZ(1003,cm,0),"°",1)) 
28 STORED: Spf “ICC (MA, 522) ,"°", 3) 


555.3 ZIPCODE CY PERSON SIGNIN Pree TEXT R:SL{X)>101 (SAX) <S) X 


M/ACRM FID $ 97 
2 STORED: §=$p( “Tor (ma, 522) ,"°", 4) 
44 FOST ID: s Mean K:SL(X)>10! (SL(X)<S) X 8:°Sd(X) ane" §:0n("°" on™ 


322 OXIE EMPACIADONT SIGED TX S Wih"E" D “Wr S Ney K:Ydl X 


M/PCHM FID # 37 


_ 20 COWERSINN COE: 


8 Ye"(" 8:+Se(cm,4,5) 4eK_Sp( “UPN. FEB .MARLAPR. MAY. JUN. JUL AUG. SEP.OCT..NOVY.0RC”,”." 
*Se(an.4,5)) " “ s:4Ge(cn,6,7) %K Se(am6,7) ", " 8 XK (1700+Se(am,1,3)) 
5:Sp(cm,".",2)'="" Ha at " Se(can “000",9, 10). ":"_Se(cm”000",11,12) § Xa") 
S:Xe"(1700)" Xe" 8 comX 


28 STORED: 9 Spt “ICC (DA, 303) ,"°",,7) 








A~116 








CASB Wirrkw 4 . 
ONTA ELEMENT OMIA TYPE FOINIER GLOBAL REFERENCE CR INPUT VERIFICATION 
520 DOCS NARRATIVE OF REL DI 
MFCM FID # 38 


28 SICFED: nowhere 
29 PREFYELD COLE: 
s:’Sd(lvl) lvl=O 1 $d(cbi(0))>9 s shhfileel d fileme*ptrfilel k sthfile 
i Sd( file), file,New'=0 § filingSe( 'Sd{ filing) :lvl+l, lvl’ <filing:lvi+l,1:filing) 
4d upontr“fnérm 8 New), chi(0)="" k file 
8 lvlelvlel 
i lvl s DA(O)@CA,DOeDA f imlvl:-l:1 s:$d(DA(i-1)) DAC i )eOQA{i-1° 
k TACO) S Che" Dla" 


30 FOSTFIFLD COLE: 
i lvl s DA(O}@OR £ iel:i:lvl s:$d(CA(i)) DA iL OAL) 
g:lvl OfeQA(0) k DA(LV1) ,OA(0),D1 » lvl=lvi-1 
16 CALLS M/FORM: DOC’S NARRATIVE CF INOLRY (#677) 
M/PORM: COC’S NARRATIVE OF INOURY (#677) 


nal STR ASE ESI ICS GED REI PT AIT TEED SITE PN TE ELST I AE AEE POE EE AEN ELSE RA MOTTE LILLIE ATI TELE, 


I, PRe-PORM CLE 
n filen, rpptfile,New s:'$d(nocanp) filen=*ptc( ifonn, 99) 

+5:Sd(monnp) filen="ptg( 903, ifoun,99) = NewO, ptfilesl 
Ss Ue"*" 5 'Sd(DT) 5 XaSad(SH),2OTe"" d “DT s Oley k X,Y 

d sec” finécn 

d crindx” finfna 

TI. WACGS 
7 ¥ 
DATA ELEMENT OXTA TYPE PCINIER GLCBAL FEFERENCE OR INPUT VERIFICATION 

-01 DOCS NARRATIVE OF REL DI WORD PROCESSING 
M/PCEM FID # 1 


28 STORED: $p(“10C(DA(1),507,00,0),"",1) 





III. ROST-AORM Oe 
i $d( file), file s filingsSa(’Sd( filing) s)vi,lvbfiling:lvl,1: filing) 
4d shuffle*fméra d nockO” fefra 


521 DOCS TREXIMENIYOLAG 
M/PCRM FID #39 


A-1!7 








23 STOFED: rodere 
29 PREFIELD COE: 
6:/Sd(lvl) lvleO i $d(chi(0))>9 s shhfile=l d filecreperfilel k shhfile 
i Sd( file), file,New'=0 s filinpGe( ‘Sd( filing) :lvl+l,lvl'<filing:ivl -1,1:filing) 
+d upmntr“finfma 6 News, cbi(O!="" k file 
§ lvlelvl+l 
i lvl s CA(O}=OR, DOAK £ imlvi:-1:1 s:Sd(DA(i-1)) DAC i )@OA{i~1) 
k mA‘0) Ss Dhe"" Die"" 


30 K SIFTELD COLE: 
i lvl s DA(O)eCA f imlslsivl s:Sd(DA(i)) DALi-L)eDA(i) 
s:lv1 DeetA(0) k DAC 1v1),DA(0) D1 s lvlelv) 1 


16 CALLS M/PORM: TOCS TREADFNI/DIAGUOSIS (#678) 
M/FCOM: DOCS ‘TRERIMENT/DIAGOSIS (#678) 
I. FRE-FORM CLE 


n filen, pefile,New §:’Sd(noomp) filer=’pte( ifoem, 99) 
+8:Sd(nocamp) filene’ptg(903,iform,99) 5 New0, rptfileel 
& Un""" i 'SA(DT) 5 XeGad( Si), WT" d “Wr s Dey k X,Y 

d sec info 
d crindk* ffm 





IT. WOOGS 
LS DERENT IANS iw lO 
OADA ELEMENT OXIA TYPE POINTER GLOBAL REFEPENCE CR INEUT VERIFICATION 
.Cl DOCS TREAIMENT/DIAG WORD PROCESSING 
M/PORM FID ¢ 1 
2B STORED: $= 9(710C(ON(1) ,508,00,0),"",1) 


TIT. POST-RCRM COE 


1 Sd( file} file s ae $A( filing) :lvi, lvl> filing: lvl,1: filing) 
+d shuffle’ fmfoe d rodeO*finfoa 


522 ‘TREXIMENT PRIOR TO CEXTH 





M/FORM FID # 40 


28 STORED: rowers 
29 PREFTELD COLE: 
s:'Sd(lvl) lvleO i Scat (0))99 S dhfile=l d filece ‘ptrfllel k sthfile 
i $d( file), file,Newed) 6 filircpGe('Sd(filing):lvl+l, lvl’ <filing:lvl+1,1: filing) 
+d upotr’ ftom 6 News), chi (0)="" k file 
s lvlelvli+l 
i lvl s DA(O)<OR,D0e0A f ielvl:-1:1 s:Sd(DA(i-1)) CAC i )eQA(i-1) 


A-118 








ke DA(O) S Dre", De" 
30 FOSIFIELD CLE: 
i lvl & DA(O}@OR f del:lsivl s:Sd(DK(i)) OAi-L)<DA(4) 
s:lv] DfeDA(O) k DA(1v1),0K(0),D1 s lvlelvi-1 
16 CALLS M/PORM: TREROMEND PRICR 1D DEROH (4679) 
M/PCRM: ‘TREUMEND PRIOR TO DERI (4679) 


SN TAA ESE ITE AEDT TES I IE OT EEL DOT IO EE ERIE LI SELENE BILLED TEAL LET SELLER AL ELIE ISELEDLEE LEPC ODLE LE EDEL IES EID IPT LE TE GEL EATS ETOO TEENS 


IT. PRE-FOR COTE 
n filen, rptfile,New $:’Sd(noomp) filen="ptct ifom,99) 
+6:$d(roconp) filen-“ptg(903,iforum,99) s New), rptfile=1 
5 Un"*" i 'Sd(DT) © MSacd(SH), We" d “ROT s Diey k X,Y 
@ sec” fiméoa 
d crinck” finfoa 
TI, WINDS 
DAA ELEMENT . EXT THE POINUIER GLOBAL REFERENCE CR INFUT VERIFICATION 
.O1 DES TRENIMENT PRIOR TOD = WORD PROCESSING 
M/PORM FID # 1 


28 STORED: =$p( “ICC(DA(1),509,08,0),"",1) 





TT. FOST-FCRM CE 
i Sdi file), file s filinge(‘Sd( filing) :1lvl,lvbfiling:lvl,1:filing) 
+d shuffle’ fménn d nodeO*finfon 


CRA PR MP PER EG PE IE EEE TEL CE ICI SEIT I LST STL AE GEE EN TOES EO I UIE IT LOE NTE ERS BSNL EET ESM SS TALTE REE LET TNCT IED 


523 TREROMENT CRIES ( PRE-DEA OXTE S Wle"E" D “WT S Ne KR: ¥cl X 
M/PCEM FID # 41 


20 CONVERSION COLE: 
& Xe"(" 5:4$e(cm,4,5) eX So(°OAN. FEB.MARLAPR.MAY JUN. JUL.AUG. SEP.OCT.NOV.DEC","." 
-+Se(cm,4,5))_" " 5:+Se(cn,6,7) %K Se(an,6,7) ", * 8 HK (1700+Se(an,2,3)) 
s:$p(am,".",2)'="" Xe" at " * Se(cm*000",9, 107": 2" Seca "000", 11,12) $ %K_")" 
s:¥"(1700)" %"" 5 am 
28 STORED: $p( “100( Da, 505) ,**",.6) 
524 DIRECT CAUSE OF DEXIH 
M/ACEM FID # 42 


23 SIRED: robere 
2 PREFIELD CLE: 
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8:'Sd(lvl) lvl i Sd(dbi(0))>9 s shhfilesl d filere’ptrfilel k athfile 

i Sd( file), file,New'=0 s filingGe('$d( filing) :lvl+l,lvl’<filing:lvl+1,1: filing) 
+d upontrfméom s News0,cbi(0}="" k file 

6 lvl=lvl+i 

i lvl 6 DA(0)=0A, DOO f ielvl:-1:1 s:Sd(OMi-1)) DA(iOA(i-1) 

k CACO) S De="" Dla" 


30 FOSTFIFLD CCIE: 
i lvl 5 DA(O)=0R f£ iel:lslvl s:$d(DA(i)) DN i-1)<OA(i) 
S:lv] DfeQA(0) k DA(1v1),DA(0),O1 s lvlelvl-1 
16 CALLS M/PORM: DIRECT CAUSE OF DERTH (#680) 


M/FORM: DIRECT CAUSE OF DEATH (#680) 





I. PRE-FORM COE 


n filen, pptfile,New s:’Sd(nooomp) filene*ptc{ ifoom, 99) 
+6:$d(nocamp) filen="ptg(903,ifomn,99) s New), rptfi les! 
8 Us""" i 'Sd(DT) 8 XSad( SH), Wl" d “WF s Diey k X,Y 
d sec’ ffm 
@ crirckk’ infra 
TI. WINDOS 
CATA ELEMENT CATA TPE FOINIER GLOBAL REFEPENCE CR INGEUT VERIFICATION 
.O1 DIRECT CAUSE OF DEATH WORD FROOSSSING 
M/FCRM FID # 1 


28 STORED: $p( “ICC(OA(1),510,0A,0),"",2) 





TI. ROST-SCEM TIE 
i $d( file), file s filingGe( ’$d( filing) :1vi,lvl>filing:1v1, 1:filing) 
4d shuffle” fméoa d rode" finéon 


SEERA ELLIE SE RL ELIE III EI EI I TIO ILL TSE A TE IE IT TS Te TERR GIES NILE LET ISERIES PIE ANT EEE ELODIE SIT EE IEEE NITIES 


525 CONTRIBUICRY CALES OF OF 
SVPCRM FID # 43 


28 SICFED: rovhere 
29 PREFIFLD CCIE: 
8:’Sd(lvl) lvl=0 i Sd(cbi(0))>9 = shhfileel d fileone*ptrfilel k sthfile 

i Sd( file), file,New'=Q 5 filingGe( 'Sd( filing) :lvl+l, lvl’ <filing:ivl+l,1:filing) 
+d upontr“finfom 5 News), chi(0)="" k file 
8 lvle=lvi+l 
i lv). s DA(O}TA, DOA f ielvl:-1:1 s:Sd(OMi-1)) OA( 1 @OA(i-1) 
k cA(0) s Dhe"" De 
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30 FOSIFIFID CIE: 
ilvis IA(O}=CA £ iml:i:lvl s:$d(DK(i)) IN ii oni) 
s:lvl DAeDA/O) k DA(1v1),DA(0),O2 s lvlelvl-1 
16 CALLS 4/7ORM: CONIRIBUIORY CAUSE DEARTH (#681) 


M/FORM: CONIRIBUIORY CAUSE DERIH (#681) 





I. FRE-FCRM COE 
n filen, pptfile,New s:'$d(nocamp) filen=*ptc( ifom, 99) 
+6:Sd(noomp) filen="ptg(903,ifoum,99) 5 News0, rptfile=1 
8 Un" i Sd(DT) s MGad(SH) We" d “WT s Dey k XY 
d sec" fmfra 
@ crink’ fetna 
T. WROOS 
is deh " . : “TF icine: CH : 7 s 
OAXIA ELEMENT CATA TYPE FOINIER GLOBAL REFERENCE CR INEUT VERIFICATION 
.O1 CONIRTBUIORY CAUSE OF DE WORD PROCESSING 
M/TCEM FID # 1 


28 SICPED: $p( “10C(DA{1) ,S11,0A,0),"*,1) 





OY. SOST-OM Ce 
i Sd( file), file s Cae ee wl, 1:filing) 


+d chuffle’ fnfoa d 
526 WAS CEXTH DLE TO WORK SeT OF COLES ¥:¥ES 
N:tO 


M/PCRM FID # 44 


20 CONVERSION COE: 6 amSpi Spl" ;¥: ES -N:ND;",";" cm *:",2),";",1) ,cem@p(cen, "2", 1) 
28 STORED: = $pi “Tac(2A,505),""",7) 


526.1 EXPLAIN CALBAL RELATIONS 
M/PCRM FID # 4S 


28 STORED: rowere 
29 PREFIELD COE: 
8:/SX( lvl) IvleO i Sd(chi(0))>9 s shhfileel d fileme‘ptrfilel k shhfile 
i Sd( file), file,New’=0 s £2) inpéa( 'Sd{ filing) slvl4l,lvi’ <filing:lvl+l,1:filing) 
4d upcntr’ fefom 8 Need),chi(0»"" k file 
8 lvlelvl+1 
i lvl 5 DA(O)sCA,D0e0R f ielvl:-1:1 s:Sc{DA(i-2)) Oi =OR{i-1) . 
k ONO) S Dh" le** 
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30 FOSIFIFLD COE: 
i lvl 8 CA(O}OA t Jelsl:lvl s:$d(DA(i)) OA(i-1)<ON1i) 
S:lvl DfeQA(0) k DA(Iv1),DA(0),D1 s lvieivi-1 
16 CALLS M/FORM: EXPLAIN CAUSAL FELATICNSHIP (#682) 


M/FORM: EXPLAIN CAUSAL RELATIONSHIP (#682) 





1. PRE-PORM COLE 
n filen, rptfile,New s:/$d(nocorp) filen»"ptc(ifom,99) 
+6:$d(nocanp) filen="ptg( 903, ifomm,99) s NemQ, cptfile=l 
8 Un""" i 'Sd(DT) 8 MeGad(SH),Wle"" d “MOF s Diky k X,Y 
@ sec” fnfon 
@ crintk’ fnfrn 
TT. WNOOS 
CATA ELEMENT , CAA TYE FOINIFR GLOBAL REFERENCE OR INGUT VERIFICAKTICN 
-O1 EXPLAIN CAUSAL RELATIONS WOO PROCESSING 
M/PCRM FID # 1 


28 STORED: 9$p( “ICC(DA(1) ,512,D4,0),"",1) 





IIT, POST-ACHM CLE 





i Sd( file) file s filinge( '$d( filing) :lvl,lvbfiling:lvl,1: filing) 
40 shuffle*fméne d node” fain 
527 AUICPSY/BICESY PERFORMED «0s SET OF COLES Y:YES 
N:ND 
M/PCRM FID # 5S 
20 CONVERSION CCE: 8 areSp($p(";¥: YES;N:ND;","5" cm "2",2),"3",1) ,crtmGp(cm,":",1) 
28 STORED: $p(~100(DA,505),"*",8) 
400 ATTENDING PHYSICIAN FREE TEXT R:QAX)>Ht(SMLAXHL) X 
M/PCRM FID $ 98 . 
28 STORED: $p(“10C(DA, 400),"*",,1) 
44 POST ID: 8 Meo K:SU(X)>301(SAX)<L) X 83°Sd(X) ame*™” sgsanf*°" on™ 
400.1 DOCS ACORESS FREE TEXT K:SL(X)2545(SUAXIL) X 


M/PCHM FID # 99 
28 SICRED: Sp{ “ICC(DA, 00),""", 2) 
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400.2 DOCS Criy 


400.3 DOCS SINIE 


400.4 DOCS ZIPCCLE 


400.9 CATE SIGNED 





44 POST ID: 5 Meam K:SL(X)>45!(SL(X)<1) XK s2"Sd(X) crme"" ssanl"*" ane" 
FREE TEXT K:SL(X)>201(S(X)<1) X 
M/FCRM FID # 100 


28 SICFED: $x “IGC(TA, 400) ,"°",3) 4 
44 FOST ID: 8 eam K:$L(X)>201(SL(X)<1) X 82’Sd(X) ane"" s:an("*" one" 


FOINIER 1003’ rz(1003, 
M/ECEM FID # 101 


20 COWERSICN COLE: = 5 aeGe(cme:"", ” (Sai “DIZ(1003,cn, 0) )#10) som, 1:9p{ “DIZ(1003,cm,0) ,"°",1)) 
2B STORED: = $p( “100 (DA, 400) ,°", 4) 


FREE TEXT K:SL(X)>10!($2(X)<5) X 
M/PCHM FID # 102 


28 STORED: 9p “10c (0A, 400),"°", 5) 
44 FOBT ID: s Xean K:$L(X)>10!($L(X)<5) X s:’Sd(X) om" ssanl"*" ame" 


DONTE $ WIe"E" D “WI S NY KYL X 


M/TCEM FID # 103 


20 COWERSION COLE: 
& Xe"(" s:+Se(cm,4,5) Yak $p( "JAN. FEB. MBR.APR.MAY. JUN. UL.AUG. SEP.OCT.NOW.DEC","." 
o+Se(an,4,5)) “ * s:+Se(cm,6,7) XK Se(an,6,7) ", " Ss Yak (1700+Se(amn,1,3)) 
s:$p(an,".",2)"="" YX" at " $a(cm_"000",9,10)_":" Se(cri 000", 11,12) & XeK_")" 
8:X%e"(1700)" s"" ss amX 


2B STORED: $= $p( “1cC (TA, 400) ,""", 10) 





TIT. POST-PORM COLE 


i $d( file) ,file,New'=0 s:/Sd(lvl) Ivled 
+6 filings6e( '$d( filing) :lvl,lvbfiling:1v1,1:filing) 
mr * emf 


i fileel!(Sd(ERFLAG)) @ “ISCFILE 
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an 


9. 


10. 
ll. 
12. 
13x 
14, 
15; 
16. 
17. 
18. 


19. 
20. 


21. 


23. 


24, 
25. 
26. 
27. 


28. 





CA-6 OFFICIAL SUPERIOR’S REPORT OF EMPLOYEE’S DEATH 


NAME OF DESEASED 
DATE OF BIRTH 3. SEX 

SOCIAL SECURITY NUMBER 

DEPARTMENT OR AGENCY 














ADDRESS 

CITY STATE ZIP CODE 
OWCP AGENCY CODE 7. OSHI SITE CODE 
REPORTING OFFICE 

ADDRESS 


city STATE ZIP CODE 

NAME OF EMPLOYEE'S OFFICIAL SUPERVISOR ; 

DATE AND HOUR OF INJURY __ 
DATE AND HOUR OF DEATH 
DATE AND HOUR EMPLOYEE'S PAY STOPPED 








DESCRIBE HOW INJURY OCCURRED *Press <Return> for CAUSE OF INJURY* 
DUTY WHEN INJURY OCCURRED? *Press <Return> for EXPLAIN INJURY* 


LOCATION WHERE INJURY OCCURRED 
LOCATION WHERE DEATH OCCURRED 
IMMEDIATE CAUSE OF DEATH 

EMPLOYEE’S PAY RATE AS OF ©)” 








A. BASE PAY 8B. SUBSISTENCE C. QUARTERS D. OTHER PAY 
$ 



































INJURY $ $ $ 

PER PER. PER PER. 
PAY STOPPED §$ $ $ $ 

PER PER PER PER 











| 


DID EMPLOYEE WORK IN POSITION FOR FULL 11 MONTHS? 
WOULD POSITION HAVE AFFORDED EMPLOYMENT 

FOR ELEVEN MONTHS EXCEPT FOR THE INJURY? 

LEAVE PAY RECEIVED, FROM: 22. AK. OCCUBATION CODE 
THROUGH: B. TYPE CODE 

C. SOURCE CODE 

OWCP USE-NOI CODE 








WAS CONTINUATION IF PAY (COP) RECEIVED? 

A. PAY RATE USED FOR COP §$ PER 
TOTAL COP RECEIVED $ 

B. INCLUSIVE DATES OF COP, FROM: M06 oe ee 

HEALTH BENEFIT (HBS) CODE, IF ENROLLED 

SHOW DATE THROUGH WHICH HBS LAST MADE 

ATTENDING PHYSICIAN 

ADDRESS 

CITy 

WAS INJURY CAUSED BY THIRD PARTY? 

Press <Return> for NAME/ADDRESS THIRD PARTY 

NAME OF ATTORNEY 

ADDRESS 


CITY TAT DE 














| 





| 
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CA-6 CON’T 


etree eneneeteneentatesineeeeenpmenenr 





30. SHOW BRANCH OF SERVICE 
SERIAL NUMBER (IF KNOWN) 
31. HAS CLAIM FILE WITH OPM? , 
32. NAME OF SPOUSE OR NEXT OF KIN 
ADDRESS 
city TATE ZIP DE 
34. SUPERVISOR'S TITLE 
35.. DATE SUPERVISOR SIGNED 




















THIRD PARTY INFORMATION 








NAME ; SETTLEMENT AMOUNT 
ADDRESS 
CITY | ATE . of E 











*Word Processing Window will appear. 
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r 











N/PORE OF (1658) 


ea tg EET a PFE SONI RI GEN PEO SE PEE EET NO TITTY IE TNE OOD LEE SL TIER TILES 


1, PRE-FORM COLE 


n filen, mptfile, filing s:‘$d(nccomp) filen=*ptc(ifonn,99) 
+6:$d(nocamp) fillen="ptg( 903, iform,99) s New, rptfilew], idexish=2 k ident 
5 Us""" i 'Sd(DI) 6 XxGad(SH), WI" d “WE s DIMy k X,Y 
S:SQ(DA) SP{ “ICC(DA, 221) ,U,2,3)}="" d sec” fimémn 
n filen, ptfile, filing s:'$d(nocomp) filene’ptc( ifom,99) 


I. WNOOS 


CATA ELEMENT OXTA TYE FOINIER GLOBAL REFERENCE CR INGUT VERIFICATION 
2 NAME POINTER 1004’ EMPLOY( 
M/FCRM FID # 70 


20 CCWERSICN (HE: s cmeGa(came"™:"", "(Sd “EMPLOY (cm, 0) #10) scan, 1: Sp( “EMPLOY (cm, 0) ,"°",.1)) 
28 STORED: $0 “I0C(nA,0),""",3) ; 
32 OST FIL THE: di setirck“fnfon 
44 FOST ID: 1 (new) s:/Sd(“I0C("C",mew,xL)) cme", n24,mage"CLAIM NO? LOGGED!" 
S4 INCEX: =“ICC{ 7") 
55 LOOKUP NCLE: 
70° 30°SX “IG. ics 0) ,"°".3) 
8°23° SX “IC Lics,0),""",2) 


6 BIRTHDATE cece: S Wle"E" D “WI S He KY X 
M/PORM FID # 2 
20 CONVERSION COLE: 

& %e"(" 6:4Se(cm,d. 3) YK Sp( “JAN. FEB.MARAPRBAY JUN. JUL.AUG. SEP.OCT.NOV.DEC",".", 
elena: 5) "* s:sie(am.6, y XK Se(aa,6,7) °, © & MK _(1700+$e(cn,1,3)) 
s:S(an,".",2) a" >K_" st * * Seta "000", 9, 1D)": es" " Se(aa "000", 11,12) s %eK_")" 

8:%="(1700)" 4e"" 5 on 

28 STORED: $p(“IOC(DA,0),"*",7) 
4 SEX SET OF COLES =F: FEMALE 
M:MALE 
U:UNROAN 
M/FORM FID # 3 


20 CONVERSION COLE: «8 ceGp(Sp("; FF: FEMALE; M:PRLE;U:UNROAN; ",";" cn ":",2),"3",1) ,amGo(am,":",1) 
28 STORED: $p(“1CC(TA,0),""",5) 
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3 Sox FREE TEXD | K:$L(X)>91(SL(X)<9) 1" (X29N) X 
M/FORM FID # 4 


28 SICFED: $p(“1cc(DA,0),"°", 4) 
44 FOST ID: 5 Yee K:SL(X)>9! (SL(X)<9) 1" (XPQN) X 8:'Sd(X) am"" s:an(""" ane"" 


13 DUTY SIATION POINIER 1062’ 1N0( 1062, 
M/FCEM FID # 38 


20 CONVERSION CODE: «5 comGa(ane":", ' ($d “IN0( 1062, can, 0) ) #10) som, 1: S$p( “IN (1062,cmn, 0) ,"°",2)) 
28 STCFED: 9$p( “ICC(DA,9),"°",1) 


13.4 DUTY STATION ACDRESS FRE TET K:SU{X)>541 (SL(X)<L) X 
N/PCEM FID # 39 


28 STORED: = $(“10c(mA,9),""",5) 
44 POST ID: s Mecm K:$L(X)>70!(SLAX)<1) X s:/Sd(X) ane" ssan{"*" om”* 


13.5 DUTY SIROIN CrTy FREE TEXT K:SL(X)>201 (SL(X)<L) X 
M/YCRM FID # 40 


2B STFED: Sp(“10c (DA, 9),"°", 6) 
44 RST ID: 5 yen K:$L(X)>201(SL{X}<2) x 83'$a(X) om" s:oy""" cme” 


13.6 COTY SIMTION SIKIE FCINIER 1003’ 1z(1003, 
M/FORM FID # 41 


20 CONVERSICN COLE: «5: crmGe(care" 2", "(Sd “DTZ( 1003, can, 0) #10) som, 1S “DIZ(1003,cmn,0),""",1)) 
2B STORED: $p(“ICC(IA,9),""",7) 


13.7 DUTY SIATICN ZIP COLE FPeE TEXT K:$L(X)>101 (SU{X)<S) X 
M/PCRM FID # 42 


28 STORED: $p(“Icc(cA,9),""",8) 
44 FOST ID: 8 Mec K:SL(X)>101(SU1X)<S) X 82/Sd(X) am"* s:anf""" am" 


13.1 CACP AGENCY OE Free TEXT KzSLAX)>61 (SL(X)<6) X 
M/PCRM FID # 68 


28 STORED: =9p( “IOC (mA, 9),""",2) 
44 FOST ID: 8 Mecen K:SL(X)>61(SL(X)<6) X 82'Sd(X) came" s:an{""" ce" 


13.9 CGA STTE COLE Free Text K2$U(X)>9! (SUX) <1) X 
M/FCRM FID # 69 
2B SURED: $p("10C(0K,9),""", 10) 
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44 FOST ID: 5 Xeom K:SL(X)>91(SL(X)<1) X s2’$d(X) am"* g:an("°" om" 


14 REFCRTING CFFICE FOINIER 1063’ 20(1063, 


14.01 FO ACDRESS 


14.02 FO CIty 


14.03 RO SINIE 


14.04 FO ZIP CLE 


M/FCEM FID # 43 


20 CONVERSION COLE: $= ameGs(ane"": "| §(Sd(“IND(1063,cm,0) )#10) cm, 1:$p( “IND(1063,cm,0) ,""",1)) 
28 STOPED: $p( “ICC(DA,10),"°",1) 


FREE TEXT K:$L(X)>54!($L(X)<1) X 
M/PORM FID # 44 


28 STORED: $p( “10C(DA,10),"*",2) 
44 POST ID: s Mem K:SL(X)>701(SL(X)<L) X 82/$d(X) am’ g:anf""" on" 


FREE ‘TEXT K:$L(X)>201(SL(X)<1) X 
M/FCRM FID # 45 


28 STORED: Sp “ICC(MH,10),""",3) 
44 POST ID: ss Neem K:$L(X)>20!(SL(X)<1) X #2°Sd(X) am”" s:anl °°" aoe" 


KOINIER 1003’ 1z(1003, 
M/FORM FID # 46 


20 COWERSICN COKE: 5 amGe(cm"":"", * ($d( “DIZ (1003,cmn, 0) )#10) em, 1:4X “DIZ (166.,cm,0),"°",1)) 
28 STORED: 9$p{“100(DA,10),""", 4) 


FREE TEXT K:$1(X)>10! ($L(X)<5) X 
M/FORM FID # 47 


28 STORED: 9 $p( “ICC(mA, 10) ,"°", 5) 
44 POST ID: a Yom K:$L(X)>101(S4(X)<5) X 82/Sd(X) am" gran "°" on™” 


402 SUPERVISOR'S NAME FREE ExT K:SL{X)>301 (SL(X)<1) X 


M/FORM FID # 48 


28 STORED: 9p “IC (DA, 402),""",1) 
44 FOST ID: s§ Yea K:SL{X)>30!(SUAX)<L) X 82/Sd(X) ame” g:anf"*" one"® 


402.2 SUPERVISCR’S PHONE NIMBE FREE TEXT K:SL{X)>141(SL(X)<7) X 


M/PCRM FID # 49 


28 STORED: $p(“I0c(nA, 402),""",3) 
44 POST ID: s Neam K:SL(X)>141(SLAX)<7) X s3’Sd(X) ame” s:an{"°" ane” 


1 TNOURV/ILLNESS DOME é& TI OMTE S W"EI" D “WI S Me K:¥ X I SOX) K:SP(%,".",1) 08 X 


M/PCRM FID # 8 
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20 CONVERSICN COLE: 
8 Xe"(" s:4Se(cm,4,5) XeK Spl “JAN. FEB.NAR.APR.MAY.JUN.JUL.AUG.SPP.OCT.NOV.DBC",".", 
+Se(am,4,5)) " " s: +Se(an,6, d %K Se(an,6,7) ", " 8 ¥eK (1700+Se(am,1,3)) 
s:Sp(am,".",2)'="" XK " at " ' Se(an' "000",9, 10)" =" ' Se(an a "000",11,12) s XeK_")" 
$2¥%="(1700)" Xe"" s anX 


28 SICRED: Ratcctapa Nay 2) 
32 FOST FILING COLE: di setinck“finfrm 
S4 IMEX: “10C("0") 
55 LOOMUP NDE: 
8°23°Sp(“ICC( Lids 0) ,""",2) 
70°30"S$p( “10C( Lids,0),""",3) 


103 CANE GF DENIH OXI S Wik"EI” D “WT S MeY K:Ycl X I SOX) KsX<SP( “ICC(IM, 0) ,U,2) X 
POM FID #9 


20 CONWERSION CIE: 
& %="(" s:4Se(am,4,5) %aK_Sp( “JAN. FEB.MAR.APR.MAY.JUN. JUL.AUG. SEP.OCT.NOV.DED",".", 
+Se(cm,4,5))_" " 8:4Se(cm,6,7) XK Se(an,6,7) ", " 8 YK (1700+Se(cm,1,3)) 


#:Sp(cm,".",2)/="" eK" at * Sean ' "400",9,10) | "2" Sec "000",11,12) = %=K_")" 
8:4"(1700)" %e"" 5 anK 


2B SFED: Spl “ICC(TA, 100) ,""", 4) 
230 O/T ERY STOREED DCE S WI"EY" D WWE S HY Keyed X 
MVP FID # 10 


20 COWERSION CCIE: 
& Xe"(" §:4Se(an,4,5) Yak Spi “JAN. FEB_MAR.APR.MAY.JUN.JULAUG. SEP.OCT.NOV.DE",".", 
+Se(am,4,5)) ° * s:+Se(cn,6, d Yk Se(an,6,7)_", " 8 XeK_(1700+Se(an,1,3)) 


8:9o(an,", *,2)/o"" eK" at” " $e(cm"000",9,10). "3" Se(cm "000", 11,12) 8 %XK_")" 
2)"(1700)" eo" 5s cok 


2B SICFED: $i “I0C(OA,221),""", 2) 


120.1 CAUSE OF INOURY EXPLAINA 
MACH FID # LL 
22 STCFED: rowhere 
29 PREFIFLD CCIE: 


8:'SA(Ivl) lvleO i $A chi (0) )>9 8 shhfile=l d filecne*ptrfilel k shhfile 


i Sd( file), file,New=0 = filingSe(’$d( filing) :lvi+l, lvl! <filing:lvl+1,1:filing) 
pags gerd : — & New0,chi(0}="" k file 
8 lvlelvl+: 


i lvl 8 DA(O}-CA, DOCK £ ielvl:-1:1 s:Sd(DA(i-1)) DA(L)=OA(i-1) 


30 FOSIFIFLD Core: 
i lvl s DCA(O}OA £ imlslslvl s:Sd(DA(i)) DACi-1)eOK(1) 
S:lvl DMeOQA(0) k OA(1V1),DA(0),D1 s lvlelyl-1 
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16 CALLS M/FORM: CALBE OF INOURY (#641) 


M/FORM: CAUSE OF INOURY (#641) 
“PR PNP TPC LO DE RP SESE SERIO IETS SERIE EES IOS ES TNE STIG. TET ES INE TC IEEE IEEE SLES ITD LEAN TEAL ESE OE EADIE IONE IEE OEE LES LEE DO NE PRI, 

I. PRE-FORM COLE 

n filen, ptfile,New s:'Sd(noomp) filen="pte{ifpon, 99) 

+6:5d(nocamp) filene=*ptg({ 903, ifomm,99) s Naed, ptfile=l 

s Ue"*" i ‘Sd(DI) § XeG2d(SH), We" d “WI s Dlky k X,Y 
d sec” fnfrm 
a crindk” finfon 


TI. WINKS 


Se ee eg en eee Ne ee 
CATA ELEMENT OXIA TYPE FOINIER GLOBAL REFERENCE OR INSUT VERIFICATION 
.O1 CAUSE OF INOURY EXPLAINA WORD PROCESSING 
M/FCEM FID # 1 
28 STORED: $p{“10C(DA(1),111,08,0),"",1) 








ITI. FOST-PORM COLE 


i Sd(file), file s ee eee lvl rama 1: filing) 
+d shuffle*finfom d nodeO*fnfm 





307 INQURED IN LINE OF DUTY STO Cres Y:vES 
N:NO 


M/FCEM FID # 12 


20 CCNWERSICN CODE: 5 cm6p( $p("";¥:YES;N:ND;",";"_am *:",2),";",1) am@plam,":",1) 
28 SIFED: $p{ “IOC(DA, 300),""",8) 


307.1 EXPLAIN INOURY 
M/PCRM FID # 13 


28 STORED: nowhere 
29 PREFIELD COE: 
i ‘Sd(chi(12)) s skipp"D" 
s:cbi(12){"y"!(cai(12){"Y") skip"o" 
s:'Sd(1vl) lvls i $d(chi(0))>9 s shhfile=l d fileme’ptrfilel k sthfile 
i Sd(file),file,Newa0 s filinge( ’$d( filing) :lvieL lvl’ <filing:lvl+l,1:filing) 
4d ptr” fmémm $ New, chi(0)="" k file 
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6 lvlelv)+1 
i lvl 5 DA(O)=0K,LOeDA f imlvl:—1:1 s:Sd(DA(i-1)) DA(i QA(i-1) 


30 FOSIFIELD CLE 
ilvls CALO}CA £ ielslzlvl s:$d(DA(i)}) DA(i-L)<OA(i) 
g:lvl DeOA(0) k DA(1v1),CA(0), DL s lvielvi-1 


16 CALLS M/FCRM: EXPLAIN INKY (#616) 


‘=a TS St i eee eaten 


I. FRE-FORM COLE 


n filen, pptfile,New s:’Sd(ncoamp) filere*pte( i form, 99) 
+6:Sd(nocamp) filene’pty(9C3,iform,99) s Newd0, rptfilesl 
& Ue""" § SADT) 8 XeGad(GH) ,Wre"" d “WOT s Diky k X,Y 

@ sec" fnéra 
d crindk” faton 





TI. WINKS 


Se ei. 
-O1 EXPLAIN THOLHY WORD PROCESSING 
M/F FID #1 
28 STORED: $p( “TOC(DA(1),306,08,0),"",2) 


TXT. ROST-fCR COLE 
i Sdifile), file s pr ger rion Le lvl ibctammga lvl,1:filing) 
i nedeO* finirm 


+0 shuffle’ fném d 
NL TE TI EE IE LE SII NDT TTI NSO EET SLE ETT IO A CT EA NTA ES DO NNT NTRS EAN URNS aA A Sc RENNER 


114 specie toca FREE TEXT —_R:SL{X)>401(SL(X)CL) X 
MACY FID 6 14 


28 STORED: $p{“T0C{DA,100),"*", 15} 
44 FOST ID: @ Neca K:SL(X)>401(SUX)1) X 8:°Sd(X) came” sca "*" cme 


612 LOCXTICN CF LEMIH FREE TERT = RsSL{X)>301(S4X)<1) X 
VFCEM FID # 15 
28 SURED: = $p("1CC( DA, 600) ,""", 1) 
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44 POST ID: 5 Mean K:SL(X)>301(SL(X)<1) X 8:/$d(X) ane"" s:anf""" om” 
603 CALBE CF DENTH FREE ExT? K:SL(%)>30! (SEAX)<3) X 
M/FORM FID # 16 


28 STORED: $p( “iCC(DA,600),""", 4) 
44 ECBT ID: s Yeam K:SUiX)>30! (SL(X)<3) X s:’$d(X) am"" s:anf""" am" 


SS ey RR ee ee ee 
DAQA ELEMENT OxTA TYE POINTER GLOBAL REPSRENCE OR INFUT VERIFICATICN 
21 BAY RATE NUMERIC FORMAT S:X{"S" 4eGP(X, "$7.21 sade X72 NL". "N) | (2099999) (XO) X 
M/PCEM FID # 71 
28 SICFED: $p“IOC(DA,3),""",8) 


20 FAY BASIS ST OF CES: HOLLY 


M/PCRM FID # 72 
20 CONVERSICN OF: 8 caneGpt 94 " j Hs HOURLY “@ERLY; M:PONTHLY /B: BI-WEERLY -A: ANNUALLY ; 
D:CAILY;",";" cm ":",2),%;",1) ,camGp(an,":",1) 
28 STCFED: $x TOCA, 3) °°", 7) 

21.1 DOT SUBSISTENCE NUMERIC FORMAT S:X"S" XeSP(X,"$",2) Re 4X! eX! ?NL".."2N) ! (90999999. 99) 1(X<0) X 
M/FCRM FID # 78 


28 SICFED: 9p “z0C(DA,3),""", 16) 


21.25 DOL SUBSISTENCE BASIS SET CF COLES «= H:HOLLY 
M: MONTHLY 
B:8T-MONTHLY 
A:AANLALLY 
D:DAILY 
M/PORM FID # 79 
20 CONVERSION (CLE: § amép( $p(";H: HOURLY; M: MONTHLY B:BT-MONTHLY-A:ANLALLY; 


D:DAILY;",";" cm ":",2),";",1) am@p(an,":",1) 
28 SIGHED: $4 Ta{EA,3)."", 17) 


21.3 DOL QUARIERS NUMPRIC FORMAT S:X1"S" WeGO(X,S",2) Ks 4X’ KE (X" 2NL". MQN) § (20999999. 99) 1 (X<0) X 
M/PCHM FID # 75 
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28 STORED: $p(“I0C(DA,3),"°", 18) 


21.35 DOL QUARIERS BASIS STO OXES H:HOLRLY 
WKLY 
M:MONIHLY 
B:BI-MCONIELY 
A:ANNALLY 
D: DAILY 


M/PCRM FID # 76 
20 CONVERSICN COLE: 5 crtmGip( 9p( "| H: HOURLY ;W:WEERLY ;M: MONTHLY ;B:BI-MONIHLY -A:ANNURLLY; 


D:DAILY;",";" cm ":",2),"7",1) ,cmGp(am,":",1) 
28 SIceD: $9 $( “foc(om, 3) ,"°", 19) 


21.4 DOL OBER RATE NMERIC FORMAT S:X1"S" %HGP(X,"S",2) Re4X NE (X!?.NL"."2N) | (20999999.99) 1 (<0) X 
M/ACRA FID # 73 
28 SORE: S$p(“10C(0A,3),""",20) 
21.45 OOL ODER RAI BASIS SeT OF OES | HHKLRLY 
W:WEERLY 
M:MONIBLY 
B:BI-MONIHLY 
A:ANNLALLY 
D:CAILY 
M/PCRM FID #74 
20 CONVERSION CODE: 8 omeSp( $p(";H: HOURLY WW: WEERLY;M: MONTHLY: B: BIMONTHLY -A: ANNUALLY: 


D:DAILY;",";" am ":",2),";",1) ,amOp(am,":", 1) 
28 STORED: 9S “Icc(mA,3),**", 21) 


229.1 WORK STOPPED BASE ARIE NUMERIC FORMAT S:X["S" ¥eGP(X,"S",2) s+ G(X"? NL". "2N) 1 (2999999.99) 1(X<0) X 
M/PCRM FID # 81 
28 SICRED: =$p{ “ICC(DA,222),"*",1) 
229.2 WORK STOPPED BASE BASIS SET CF CEES =H: HOLLY 
W:WEERLY 
M:MCNIHLY 
" ‘B:BI-PONTHLY 
A:ANNLALLY 
D:DAILY 


N/FCRM FID # 80 | 

20 COWERSION CELE: camp( 9p(" pH: HOURLY: WEERLY; Me NINLY; B:BT-ONUHLY A: ANALY; 
D:DAILY;",";" cam ":",2),";",1) ,camSp(om,":",1) 

28 STORED: $9 “Torna, 22), *", 2) 


229.3 WORK SICEFED SLBSISTENCE NUMERIC SCRMAT S:X{"$" HeGP(X, "5" ,2) Kev’ aXE(X! ?NL".P2N) 1(30999999.99) 1(X00) X 
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M/PORM FID # 83 
28 STORED: $p( “ICC(DA,222),"°", 3) 
229.35A0RK STOEPED SUB BASIS SeT OF CES) =H: HOURLY 


M/PCEM FID # 8&2 


2 Schema bear) 8 ado Sp(" oe ee RENEE 
D: Hare sf . He 2)," ; ",1),amp(an,": 
28 STORED: $H/ “Tata, 222) .""*,4) 


229.4 WORK SICPPED CLARIERS NUMERIC FORMAT S:Xf"S" 4eGP(X,"$",2) Ks4X Xe (X" 2 NL”. "2N) f (30999999.99) 1(X<0) X 
M/PCRM FID # 84 
y:) STCRED: $p( “TOC (DA, 222),"°",5) 


229. 45H0RK STOPPED QUARIERS BA SET OF COOES)—s HH: HOLLY 
W:WEEXLY 
M:MCONTHLY 
B:BI-*ONIHLY 
A: ANNUALLY 
D:DAILY 


M/PCRM FID ¢ 8S 


20 CONVERSION CDE: = 8 omép( $p( ";H: HOURLY W:WHERLY ;M: MONTHLY ;B: B1-ONTHLY ;A: ANNUALLY; 
D:DAILY;",";" am ":",2),%;",1) ,camGp(am,":",1) 
28 SICRED: $(“Toxta,222),""", 6) 


229.5 WORK STOPPED OTHER AMIE NUMERIC FORMA S:Xf "S$" %nGP(X, "S7,2) Kr 4X"ee (XK? NL”.2N) | (3999999.99) 1 (XO) X 
M/FORM FID # 87 
28 SICFED: =$p( “ICC(DA,222),""",7) 


229. SSAORK STOPPED OIHER BASIS SST OP CES) =H: HOLLY 
WWEERLY 
M:ONIHLY 
B:BI-PONIHLY 
A:ANLALLY 
O:DAILY 


M/FCRM FID # 86 
20 CONVERSION CORE: = 5 aeGp( $p( "| H: HOURLY W: WEEKLY 7M: MONTHLY; 3: BI-MONTHLY ;ASPANUALLY ; 


D:DAILY;",";" ca ":",2),"5",1) ,cmOptaae,”:",1) 
28 SERED: $(“TOr{0a,222),""",8) 
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ORIA ELEMENT 





a: «Ra aa 


ORDA TYPE POINTER GLOBAL REFERENCE OR INEUT VERIFICATION 


605 EMPLOYED IN DUTY 11 MOS STOP CYTES $Y¥:¥55 = 


NNO 
M/PCRM FID #18 - 


20 CONVERSION CODE: = amm6p($p(";¥: YES;N2ND;",";"_ con cu *:",2)," 7,1) ,cmeSp(an,": 
2B STORED: $p( “10C(DA,600),""",2) 


606 DUTY AFFCFOED 11 #05 WOR SET Or CES = ¥: YES 


NiNO 
M/PCEM FID # 19 


20 CONVERSICN COLE: 8 ateSp( Spi"; 7¥: YES ;N:ND;",";" ae r2)e"3 ",1) ,ateSp(an,":",1) 
23 STRED: $A 1CI0A, 00), 7,3) 
Pas) seaboard ry 
 '$0\chi (18) 8 skipe"D" chi (0,19 ja" 
i $d(abi(18)) s:cbi(1B)("y*!{chi(18)["Y") skip»"D" ,chi(0,19)="" 


251 CIHER LERVE FCM CXIE S Whe"E" D “WY S MY Ksycl X 


M/PCRM FID # 88 


20 COWERSICN CLE: 
8 ¥="(" s:+Se(am, 4,5) Yolk Sol. FPB.Y0R. APRN IN IL J.P OCT." *, 
+$e(cm,4,5)) " " 8:4Se(cmn,6,7) aX Se(cm,6,7) ", " 8 HaK ¢ (1700+Se(am,1,3)) 


s:Sp(an,".",2)'="" Yak" at * ' $e(cra“000",9, 10) | ms ee 8.%eK_")" 
$2="(1700)" %e"" s ameX 


28 STORED: $p( “IcC(0A,250),""",7) 


15.5 COOLENTICN CE FREE TEXT K:SUAX)>6!(SL(X)<S) X 


MYFCHM FID # 21 


28 STCRED: Set “TOC(TA, 3),"°*,2) 
44 FOST ID: s Mean K:$L(X)>61(SL{X)<S) X ge°Sd(X) ame s:anf"" cn" 


251.5 CHER LEME THU DXE $ WME" D “WE S KY K:Ydl X 


M/ECEM FID # 89 


20 CONVERSION comet: 
S Yer"(" g:4Se(cm, 4,5) Xa Sp("JPN.FEB.MAR.APR.MAY. JUN. JUL AUG. SEP.OCT.NOV.DEC™,".", 
48e(cm,4,5)) * * s:+Se(cam,6,7) YK Sean,6,7) ", "8 YeK_(1700e(cm,1,3)) 


s:Sp(an, 1,2) ek at " $e(ca_"000",9, 10). "2" Se(cm "000",11,12) 5 %XK_")" 
8:X"(1700)" %="" 5 amex 
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112.5 TYPE COLE 


126.5 SOURCE COLE 





28 STORED: $p(“ICC(DA,250),""",8) 
29 PREFIELD COME: S:/$0\chi(88)) skip="D" 


PREE TEXT K:S1{X)>51(SU{X)<L) X 
M/FORM FID # 22 


28 SICRED: $p{ “I0C(DA,100),"°",17) 
44 POST 3D: s ecm K:SL(X)>5!(SL(X)<L) X s:’Sd(X) ane” s:on{"°" ane"" 


FREE ‘TEXT K:$L(X)>6!(SL(X)<1) X 
M/C FID # 23 


28 STORED: $p( “IQC(DA,120),"*",9) 
44 FOST ID: 3 Meum K:SL(X)>61(SL(X)<1) X 6:’Sd(X) am" s:an(""* a" 


101.2 ONCP USE-NOI COLE FREE TEXT RsSUX""}51 (SAX) <1) X 


M/YCHM FID # 24 


283 STORED: $p( “IOC(mH, 100) ,"*", 18) 
44 POST ID: s Mec K:SL(X)>5!1(SLAX)<1) XK 8:°Sa(X) ane" g:anl"*" on" 


NUMERIC FORMA? SX] "S" %GP(X, "S$", 2) Keak (X"? NL". ON) 1 (20999999.99) 1(X<0) X 
M/PORM FID # 92 
28 STORED: =Sp( “ICC(2A, 250) ,"*",17) 


25C.8 COP RATE BASIS SETOF CES) H:HOURLY 


W:WEERLY 

M: MONTHLY 
B:BI-+BEKLY 
A:ANNLALLY 
D:DAILY 


M/PORM FID # 93 


20 COWERSIEN OYE: 8 caeOp\ Spi * :H: HOURLY W-WEERLY Mo PONTHILY ; 5: BI~WEERLY ; A: ANNUALLY ; 
D:CAILY;",";" ca *3",2),"3",1) ,amGp(aa,”:",1) 

28 STORED: $¢( “foc(ra,250),"°",18) 

29 PREFIELD CLE: S:’S(chi(92)) skip="p" 


250.6 COP FECVD GCss NUMERIC POFPAT S:X]"S" 4eGP(X,“$",2) K24X’ ake (X’? NL”. "2N) f (3999999.99)!(X<0) X 


M/FCRM FID # 94 


28 STORED: $p(“10C{0A, 250), "*",16) 
29 FREFIELD CE: S:/SD(chi(92)) skips" 


250 CoP RECVWO FRM CNIE S WIe"E" D “WI S WY K:Yd X 


M/PCEM FID # 90 
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20 COWERSICN CCIE: 
5 %"(" ceca’: 5) YX Sp( "UPN. FEB.MAR.APR.MAY.JUN.JULAUG.SEP.OCT.NOV.DEC",".", 
+$e(am,4,5))_" " s:+Se(cu,6,7) YK Se(an,6,7)_", " § HK (1700+Se(cm,1,3)) 
s:$p(an,".",2)'="" YK" at " Se(an "000" 19,10) | "2" Se(cm_"000",11,12) 8 %eK_")" 
$2:%="(1700)" X="" s amex 


28 STORED: $p( “Icc(DA,250),"°",1) 


250.5 COP RECVD THRU OME S Wik"E" D “Wr S MY K:Yd X 
M/FCEM FID # 91 
20 


8 X"(" sneeici’: 5) ¥eX_$p( “JAN. FEB.MAR.APR.MAY.JUN. JUL.AUG. SEP .OCT.NOV.DRIC",".", 
ey 5))_" * s:+Se(am,6, 7) YK Se(cm,6,7)_", " 8 XeK (1700+Se(an,1,3)) 
s:Sp(am,".",2)'="" eK" at “ Se(am_"000",9, 10)" "3" Se(am "000",11,12) s Xex_")" 

s:¥e"(1700)" %"" s om 


28 STORED: =$p{ “foc(DA,250),"°",2) 
29 PREFIELD OE: S:'SD(chi(90)) skip="D" 


25 FEHB CLE Free ‘TEXT K:SL(X)>15!(SL{X)<1) X 
M/PCEM FID # 2 


28 SICAED: 9p “10c(mA,3),""",13) 
44 FROST ID: s Mem K:S(X)>151(SL(X) <1) X #2/Sd(X) one" gran *°" ane 


332 DATE HEALTH CEDUCT SICeP ONIE S Wlhe"—" D “MOT S Xe KsY<l X 
'M/FORM FID # 34 


20 CONVERSION COLE: 

& Xe"(" s24Se(cm,4,5) Xe Sol "GAN. FEB.MARLAPR.MAY. JUN. JUL.AUG. SEP.CCT.NOV.DR",".", 
+$e(cm,4,5)) 7" 8:+Se(am,6, 7) XK Se(cm,6,7) ", " 6 ¥eK_(1700+Se( am, 1,3)) 
6:Sp(an,".",2)/="" aK" at * Se(cm "000",9 (10). *:" Se(cn "000", 11,12) s %K_")" 
8:¥="(1700)" Xe" § ak 

28 STORED: $p( “I0C(DA, 303),""",12) 

400 ADTENDING PHYSICIAN FREE TEXT B:QL(X)>301(SL(X)<1) X 
M/CORM FID # 52 


28 SICRED: $o( r0C(DA, 400) ,"*",1) 
44 KET ID: s Soren K:SL(X)>301(SLAX}<L) XK 83'Sd(X) cane" ssonf"*" ane” 


400.1 DOCS ACOFESS FREE ‘TEXT KsSU(X)>541 (SU{X)<1) X 
M/PCEM FID # 53 


28 SICFED: $p{“1cC(0A, 400) ,""", 2) 
44 FOST ID: s Neon K:SL(X)>45!(QUAX)<1) X s2/Sd(X) am s:anl""" am" 
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400.2 DOCS Criy 


400.3 DOCS SINIE 


400.4 DOCS ZIFOOE 





FFCE TEXT K:$(X)>20! (SL(X)<1) X 
M/FORM FID # 5d 


28 SICFED: $p({“I0C(DA, 400),"*",3) 
44 FOST ID: ss Yam K:SL(X)>20! (SL(X)<1) X s:’Sd(X) am" s:on{"*" one" 


FOINIER 1003’ Dz(1003, 
M/FORM FID # 55 


20 CONVERSION OE: 8 omGa(ame":"", "($d “DIZ (1003,cam, 0) )#10) sam, 1: 9p “DIZ( 1003 am, 0) ,""",1)) 
2B STORED: 9p( “IOC(DA, 400) ,""".4) 


FREE TEXT K:$L(X)>10! (SL(X)<5) X 
M/PCRM FID # 56 


28 STORED: $p( “ICC(DA, 400),"°", 5) 
44 FOST ID: 6 Meer K:SL()>101 (SL(X)<5) X 8:/Sd(X) am" s:on("*" one 


ee ep ee es = Se Pe Ne ee ee Oe ee i, 


OXIA ELEFENT OAXTA TYPE FOINIER GLOBAL REFERENCE OR INEUT VERIFICATION 
140 THIRD PARTY CASE ST COP QOES oY: YES 
N:NO 
M/ACHM FID # 3S 


141.1 ‘THIRD ERRTY 


20 CONVERSICN OE: = 8 ame6p($p(";¥: YES;N:ND;",";" cn":",2),"3",1) ,armGp(an, "3",1) 
28 STORED: $p(“I0c(DA,130),"°",9) 


M/PCEM FID # 27 


23 STICFED: nowhere 
29 PREFIELD WIE: 
i '$d(cbi(35)) s skip»"D” 
ssc (35) ("n"! (chi (35)("N") skip="D" 
6:’Sd(lvl) lvl<O i $d(chi(0))>9 s shhfile=l d fileone’ptrfilel k shhfile 
i Sd( file), file,New'=0 s Serene ss rama tlvlel, lvl! <filing:lvl+1,1: filing) 
+d upontr*fméme 5 New), chi(0)="" k 
& Ivielvl+l 
i lvl s DA(0)=CA, DOD f ielvl:-1:1 s:$d(DA(i-1)) DA(i)<OA(i-1) 
30 FOSTIFIELD COLE: 
i lvl s CA(O)@DR f ielslslvl s:$d(OK(i)) DACi-1)<0N1) 
s:lvl C&etA(0) k DA(lvl),OA(0),O1 s lvlelvl-1 


16 CALLS M/PORM: NAM@/ACORESS THIRD BAUY (#626) 
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M/EORM: NAMEYACORESS THIRD PARTY (#626) 
renee 
I. REAM COE 
n filen,rptfile,New s:'$d(ncomp) filene’ptc( i form, 99) 
+6:Sd(nocamp) filen="ptg(903, iforn,99) 5 New), rptfile=1 
& Us"™" i 'SA(DT) § YeGzd(SH) ,ADIe"" d “WE s DieY k X,¥ 
d sec’ fmnn 

d crindk’ fing 


TI. WOOOS 


DAOA ELEMENT CRIA TYEE FOINIER GLOBAL REFERENCE OR INEUT VERIFICATICN 
.O1 NAME FREE TEX === SL(X)>301(SL(X)<1) X 
M/FORM FID # 6 


28 STORED: Sp( “70C(DA(1),140,08,0),"°",1) 
44 FORT ID: & Mec K:SL(X)>301(SL(X)<1) X 83/Sd(X) cme" sant "°" che" 


5 SETILEMENT AMOLNT NYERIC FOUAT S:X1"°S" HGP(X,"S",2). Ke4Xéad(K?PNL". ON) 1 (209999999.99) 1(0) 
M/FORM FID #7 
28 STORED: $o(“ICC(DA(L) ,140,08,0),""",6) 

1 ACDRESS FREE TEXT = «sd K$L(X)>701(SL{X)<1) X 
MFORM FID # 2 


28 STORED: $p(“T0C(DA(1),149,0A,0),""",2) 
44 FOST ID: 6 Mean K:SL(X)>701 (SL(X)<1) X s2/Sd(X) am" s:an(""" cre"” 


2 cy FREE TEx? K:SL{X)>201 (SLX) cL) X 
M/FCRM FID # 3 


28 STORED: $p( “ICC(DA(1),140,0A,0),"°",3) 
44 FOST ID: 8 Mec K:SL(X)>20!1(SLX)<L) X 82’Sd(X) cm"" ssanl""" cm 


3 SIME FOINIER 1003’ p1rz(1003, 
M/FCEM FID # 4 


20 CONWEFSICN CCE: «8 cme (crme™ 2°", ’ (SA “DZ 1003, can, 0) #10) seam, 1: 94 “DTZ (1003,n,0) ,"°",1)) 
28 STORED: $p( “IC (DA(1),140,00,0),"°", 4) 


4 aoe FREE ‘TEXT KsSL{X)>101(SL(X)<S) X 
M/PORM FID 4 5 
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28 STORED: $p(“ICC(DA(1),140,0K,0),"°",5) 
44 POST ID: 8 Mean K:SL(X)>10! ($L(X)<5) X s3°Sd(X) ome" g:an{"*" ane” 





TIT. FOST+4CRM COE 


i Sd(file), file s filingeSs( '$d(filing):lvl,lvbfiling:1vl,1:filing) 
4d nocde0* fmf 





609 ATTORNEY NAME: FREE TEXT K:$L(X)>30! (SL(X)<1) X 
M/FCEM FID # 59 


28 STORED: $p(“I0C(DA,601),"°*",1) 
44 FOST ID: $§ Neem K:$L(X)>301(SL(X)<1) X s:’Sa(X) ane" s:anf"*" ane"" 


609.1 ATTORNEY ACDRESS FREE TEXT K:SL(X)>541(SL(X) <1) X 
M/FORM FID # 57 


28 STORED: 9 $p( “ICC(DA, $01) ,""",2) 
44 FOST IO: @ Meom K:S1(X)>541(SL(X)<1) X 83/Sd(X) aonm”* sami "*" an" 


609.2 ATTORNEY CITY FREE TEXT K:SL(X)>20! (SL(X)<1) X 
M/FORM FID # 58 


28 STCRED: Spi “tcc( DR, 601) ,""",3) 
44 POST ID: s Meom K:SL(X)>201(SL(X)<1) X s:’Sd(X) ane™ s:an"*" ane”"” 


609.3 ATTORNEY SIRXIE FOINIER 1003’ 12z(1003, 
M/FCRM FID # 60 


20 CONVERSICN COLE: «6 are (cme"® 2°", "(Sd “DIZ(1003,can, 0) $19) som, 1:9p( “Drz(1003,am,0),"7",1)) 
28 STORED: $p( “10C(DA, 601) ,"*",, 4) 


609.4 ATICRNEY ZIP COLE FEE TEXT K:SL{X)>10! (SAX) <5) X 
M/PCRM FID # 61 


28 STOFED: $p(“10C(DA,601),"°",5) 
44 FCRT ID: Xecm K:SL(X)>10!(SL(X)<5) X 8:'Sd(X) ane" s:anf"*" ane" 


S06 BRANLH OF SERVICE STOP CEES A:ARY 
N:NAVY 
M: MARINES 
F:AIR FORE 
C:COAST GUARD 
M/PORM FID # 30 
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28 STORED: $p(“r0c(pA,500),"°", 4) 
44 FOST ID: 5 Mem K:SL(X)>30!(SL(X)<1) X 8:’$d(X) am" s:an{"*" on"" 


505 SERVICE ND FREE TEXT K:$L(X)>201(SL{X)<L) X 
M/FORM FID # 31 


28 STCOFED: $p(“I0c(DA, 500) ,"*",3) 
44 FOST ID: ss Meum K:$L(X)>201(SL(X)<1) X 83’Sd(X) ame"" s:an{""" am 


610 CLAIM FILED W/CEM SET OF CES Y: YES 
N:NO 


-M/PORM FID # 32 


20 CONVERSION COLE: camSp( $p(";Y:¥ES;N:ND;", "7" cm "2",2),"7",1) ,cam@ptom,":",1) 
28 STORED: $p(“I0C(DA, 600) ,"*",5) ‘ 


611 NEXT OF KIN FR®E TEXT K:$L(X)>35! (SL(X)<1) X 
N/POR FID # 62 
28 STORED: $p(“10C(DA,602),""",1) 
44 FOST ID: 5 Mean K:SL(X)>351(SL(X)<1) X s:’Sd(X) am” s:anf"*" ce" 
611.1 ACORESS OF Nexr oF KIN Ree TEXT KrSL(X)>541(SUX)<L) X 


M/FOM FID # 63 





28 STCRED: $p( “ICC (DA,602),"°",2) 
44 POST ID: 5 Men K:SL(X)>541(SL(X)<1) X s2/Sd{(X) cme ssaml"*" cone" 


611.2 CITY OF NEXT OF RIN FREE ‘TEXT K:SL(X)>201 (SL(X)<L) X 
" M/PORM FID # 64 


28 STORED: $p(“ICC(DA, 2) ,”°", 3) 
44 FOST ID: s Neem K:SL{X)>201(SU{X)<1) X s2/Sd(X) are"" s:anf"*" am" 


611.3 SUXTE OF NEXT OF KIN FOINIER 1003’ 112(1003, 
M/PCRM FID # 65 


20 OVERSION CLE: 5 amGe(cme™ 2", * (S702 (1003, cm, 0) #10) som, 1:$p( “DTZ(1003,am,C) ,""",1)) 
28 STORED: 9p “ICC(DA,602),""", 4) 


- 611.4 ZIP COLE CF NEXT OF KIN PFGE TEXT K:SL{X)>101 (SL{X)<5) X 
M/FCRM FID # 56 


28 STORED: Spi “ICC(DA, 602) ,""", 5) 
44 FOBT ID: 8 Mean K:SL(X)>101(SLAX)<S) X $2’Sd(X) cme” ssan("*" an" 


402.1 SUPERVISR’S TTILE FREE TEXT K:SL(X)>30!1(SLAX)<1) X 
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M/FCEM FID # 50 


28 STCFED: $p( “10C(DA, 402) ,"*",2) 
44 OST ID: s Meom K:$L(X)>30!(SL(X)<1) X s:’Sa(X) an"* s:anl"*" an"" 


402.4 DXIE SUPERVISCR SIGNED OX S Wle"E" D “WT S WY K:¥<l X 
M/FORM FID # 51 
20 CCONWERSICN COLE: 
§ Xe"(" 5:+Se(am,4,5) aK Spi "JAN. FEB-MAR.APRPAY.LUN.ULAUG. SEP .OCT.NOV.DEC",".", 
+$e(am,4,5)) " " s:4Se(cm,6,7) XK Se(cn,6,7) ", " 8 NK (1700+Se(am,1,3)) 
$:$p(an,".",2)/="" XeX_" at " Se(am "000",9,10) "2" Se(am "000", 11,12) 8 Yak ")" 
8:Ye"(1700)" Xe" § amex = 


23 STORED: es “ICC(TA, 402) ,”"",5) 





ITI. FOST-9CRM OLE 


i $d( file), file,New ad) s:’Sd(lvl) lvl) 
+6 filingsSs('Sd( filing) :lvl,lvb filing:lvl,1: filing) 
+d “fméon 


upantr 
i fileel!($d(ERFLAG)) D CA6“TSCPINF, “TSCFTLE 





A-142 








CA-7 CLAIM FOR COMPENSATION 
EMPLOYEE STATEMENT 





TAME OF EMPLOYEE 

OWCP FILE NUMBER ——~—~—~C«<SSw «SOCIAL SECURITY NUMBER 
PERIOD OF WAGE LOSS, FROM THROUGH ee “Hine 
IS THIS A CLAIM FOR A SCHEDULE AWARD? i ae 
ANY PAY RECEIVED FOR PERIOD IN ITEM #27_™S~“—~*~S*S*~*~*~*~*S*~S~SSSSSS 
IF YES, AMOUNT $ 

COMPENSATION ReCETVED-FROK] rovers 
WAS CLAIM AGAINST A THIRD PARTY? _ = 

NAME OF THIRD PARTY/INSURANCE aE 
Press <Return> for NAME/ADDRESS THIRD PARTY 

10. HAS CASE BEEN SETTLED? 


* © © © @ @ 


wo NYHA U SNe 








: " EMPLOYEE STATENENT PAGE 2 ——S—S 

11. APPLIED OR RECEIVED BENEFITS FROM VA? 
A. CLAIM NUMBER te eae a hs ee 
B. VA OFFICE WHERE CLAIA FILED 
ADDRESS De ee ee Re ee 
CITY FX ety “Ose. 
C. NATURE OF DISABILIT oa ge ecmperes 
MONTHLY PAYMENTS $ Saat a ee ales 
12. APPLIED OR RECEIVED AN ANNU IEE CATER 


B.. DATE ANNUITY BEGAN 
C. AMOUNT OF MONTHLY PAYMENT § ; $$$ 
a ceeaeenenneneeniamenmmenenme ean nnnen mam nnn nar ren ee TT RT TT 
DEPENDENTS 
13+-15,17. LIST YOUR DEPENDENTS Press <Return> for DEPENDENTS 
16. *Press <Return> for SUPPORT PAID* 
SIGNATURE OF EMPLOYEE 


18. DATE EMPLOYEE SIGNED (MO.,DAY, YEAR) 
19. EMPLOYEE’S HOME MAILING ADDRESS 





STREET al ee ee ee re 
CITY ede eee SURE, tee eT CODE 
OVERSEAS. —_——__— ieee 
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20. 


21. 


22. 


24. 
25. 
26. 


27. 


28. 


29. 
30. 
31. 


32. 
34. 


35. 


CA-7 CON'T 





STATEMENT OF OFFICIAL SUPERIOR 


RATE AS OF A. BASE PaY 8B. SUBSISTENCE C. QUARTERS 0D. OTHER 
$ $ $ 


INJURY $ $ 

PER PER PER PER 

STOPPED $ $ $ $ 

WORK PER PER PER PER 
RECEIVED PAY, IDENTIFY TYPE AND AMOUNT Ty 

PREMUIM PAY PFR NIGHT PAY PER 

SUNDAY PAY __ PER OTHER PAY. Ss PERC 


IDENTIFY OTHER PAY 

SHOW WORK SCHEDULE FOR WEEK PAY otOer ED 

WORK IN POSITION 11 MOS PRIOR TO INJURY? —~—C™—CT.. CCS 

DUTY AFFORDED 11 MONTHS WORK? 

TOTAL LENGTH FEDERAL CIVIL SERVICE, YRS. MOS. 


HEALTH BENEFITS AND OPTIONAL LIFE INSURANCE 


ENROLLED IN HEALTH BENEFITS? 
IF YES, GIVE CODE 

ENDING DATE OF PAY PERI DEDU NS MADE 
ENROLLED IN OPTIONAL LIFE INSURANCE PRG? 
IF YES, WAS EMPLOYEE ENROLLED IN OPTION ea 
IF OPTION B, SHOW NUMBER OF MULTIPLES 














LEAVE AND CONTINUATION OF PAY 








SICK LEAVE RECEIVED, FROM: THRU: 
ANNUAL LEAVE RECEIVED, FROM: THRU: 
OTHER LEAVE RECEIVED, FROM: THRU: 


OTHER LEAVE SPECIFY 

CONTINUATION OF PAY, PROM: oe soe eo THRU: 

DATE ALL PAY STOPPED 
PERIOD COMPENSATION IS CLAIMED, FROM: THRU: 





RETURN TO DUTY 


DATE RETURNED TO WORK 
WORK SCHEDULE WHEN RETURN WOR 

WORK ASSIGNMENT CHANGE? 
DESCRIBE NEW WORK ASSIGNMENT 

*Press <Return> for DESCRIBE NEW DUTIES* 

PAY RATE ON RETURN TO WORK § PER 
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Ci.-7 CON’T 
a a oe nema eerste aan tnnenieniash pete eng 


CERTIFICATION 
36. OFFICIAL REMARKS 


SUPERVISOR DATE STGNED 
SUPERVISOR’S TITLE 


ed 


AGENCY NAME 
_—_— 


ADDRESS 
CITY STATE ZIP CODE 
37. PERSON CONTACT, IF OweP NEEDS PAY INFO. 





POINT OF CONTACT PHONE ee 
Tr Aarne ean cen eranastanstnigeeviassigumainrretee Ratatat ater cathe tarwiashatemasnsietienint 
Nee 


DEPENDENTS . 
‘+ eneemacercceer~teereemerttntemertnineenateinennat eeeeritnaenantieftenvmanarhneee “nwa aereemnpctecnrtatrathaceenmarmenttnatnainsNethaasinateneiatchotinaaineitetinnirnenaitinnn 


NAME. BIRTHDATE 
RELATIONSHIP. _. LIVING wit 540] 6 Sea ae 
STREET ADDRESS 

CITy AT IP COD 

SUPPORT PAYMENTS? Se een 


inpeteintanetniin 
ORDERED BY THE COURT? AMOUNT OF PAYMENTS § PER 


*Word Processing Window will appear. 
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MACH OF-7 (9671) 








I. PRE-FORM COE 


n filen, ptfile, filing s:'$d(nocomp) fileneptc( ifomm,99) 
$eisroccno) filen=*ptg( 903, iform,99) s NewO, rptfilesl, idexisb=2 k ident 
6 Ue"" i 'Sd(DT) § MeGad( 3H), W"" d “WI s Diey k X,Y 
I S08) S $P( “ICC(DA, 221),U,2,3}="* d sec” infos 
n filen, pptfile, filing s:’$d(nocomp) filene’ptc(ifomn, 99) 


TI. vIINCONS 





Wl EMPLOLEE SIROEPENT 


CATA ELEMENT CAA TYPE FOINIER GLOBAL FETERANE CR INPUT VERIFICATION 


20 COWERSICN COLE: «8 aSe(cane"":"", " (Sd( “EMPLOY( con, 0) #10) scm, 1: 90( “EMELOY(an, 0),.°°",1)) 
28 STORED: $p( “I0C(mK, 0) 7°", 3) 
32 POST FILING CLE: di setirck*finfon 


44 FCST ID: i Sd(taew) s:/SA(“I0C("C* new, xl)) magpe"Claim not logged” 25, ane 
S4 INEX: § “I@l("C") 
55 LOOKUP NCCE: &2°45°9p( “ICL Licds,0),"7", 3) 
137 CAP FILE NEER FREE TEXT K:SL(X)>131(SL{X)<1) X 
MFCRM FID # 2 


28 STORED: $p( “IOC (MA, 130) ,"°",.6} 
44 POST ID: ss Mean K:SL(X)>131(SL{X)<1) X 8:/$d(X) ame”” g:anf**" ame” 


3 SN FREE Text K:SL(X)>91! (SL(X)<9)1"(X29N) X 
MVEORM FID #3 


2B STORED: §=$p( “10C(mw, 0) ,"7", 4) 
44 POST ID: 5 Yer K:SL(X)>9! (SL{X)<9) 1" (X2ON) X ss°Sd(X) cme” g:cnl °°" ne” 


701 ORTE WAGES LOST 7FOM DAME S Wie"E" D “WT S WY K:ycl X 
M/FORM FIp & 45 


2) COWERSICN COLE: 


S %e"(" §:4+Se(c1a,4,5) Mak Ce ( “AN. FEB MAR-APR PAE JIN. JUL-AUG. SEP.OCT NOV .DEC", oe 
,+Se(am,4,5)) " " 8: +Se(an,6, 27) WX Se(cm,6,7) *, * 6 HK (1700+Se(cn,1,3)) 
8:So(cm,".",2)’=™ AX" at " ' Se(ca 000", 9,10) *: * Se(cm "000", 11,12) 5 %X_")" 
5:%="(1700)" %"" 5s cot 


2B STORED: = $p( “ICC(OA, 700),"°",7) 
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701.5 DATES WAGES LOST THU DATE S Whee" D “WT S MY Ks) X 
M/FCRM FID # 46 
20 
s Xe"(" : eaica8: 5) eK Sp( “JAN. FEB.MAR.APR. MAY. JUN. JUL.AUG. SEP.OCT.NOV.DEC”," 
pele 5)) " "ss +e(c,6, 7) YK Se(am,6,7) ", “5 XX (1700+Se(am,1,3)) 
s:So(on,".",2)'="" Nek” at ™ Se(am™000",9,10)_": um ' $e(am000",11,22) & ¥aK_")" 
Ss: xe"(1700)" Xe"" Ss amX 
23 STORED: Sex “IOC(DA, 700),"°",9) 
44 POST ID: 
i Sd(chi(45)) s skip="D" 
S Yea k:X<$p(abi (45) ,db,2) Xi *$d(X) $ am" s:omf"*" cme” 
702 HRS COMP CLAIMED NUMERIC FORMAT —K:+X'! (20999)! (XC0) 1 (X?.21"."3N.N) X 
M/FORM FID # 4 
28 STORED: =$p( “I0C(mA, 700) ,"*",2} 
703 SCHEDULE AAARO Ser GF CES ~—sY:ES 
N:ND 
M/FCEM FID #5 
20 CONVERSION CXOE: 8 aneGn($p(";¥:¥ES;N:ND;",";" can ":",2),"3",1) ,amOp(ory":",1) 
28 STORED: $p( “IQC(DA,700),"*",3) 
704 WAS ANY PAY RECEIVED SETOF CEES = Y: 8S 
NNO 
M/FCEM FID # 6 
20 COWERSION COKE: 5 amep($p(";¥:YES;N:ND;",";" an ":",2),";",1) ,amOp(am,":",1) 
28 STORED: Sp( “ICC(DA, 700) , "7", 4) 
25.2 COMP RECVD GACES NUMERIC FORMAT = S:X1°S" XeSP(X,"S",2) Ks 4X XE (X! 71”. "2N) 1 (999999.99) 1 (KO) X 
M/FCEM FID #.129 
28 STORED: 9p(“ICC(DA,251),""", 3) 
29 PREFTELD OYE: S:'W\chi(6)) skipe"D” i 'Sd(skip) s:chi(6)/("Y" skip»"D” 
256 COMP RECVD FROM DAIE S Wi" D “DT S Me K:¥<l X 


M/PCRM FID # 127 


20 CONWERSION COLE: 
S ¥="(" s:+Se(am,4,5) XK SURI FEB.MAR.APR.MAY.OUN. JUL-AUG. SEP.CCT.NOV.DEC",*." 
$e(an,4,5)) " " s: +e(an,6, 7) ¥eK Se{an,6,7) ", " s XK (1700+Se(an,1,3)) 


s:9o(am,".",2)/=" YeK_" at" ' Se(an™000", 9107 me ' Se(cm 000" ll,12) 5 XK ")" 
$2%~"(1700)" Xm" Ss cnet 


A=147 














28 STORED: $p( “I0C(mm, 251),"°", 1) 
29 PREFTELD COLE: $:'SXchi(6)) sicipe"D” i ‘Sd(skip) s:abi(6)’("Y" skip="D" 


256.1 COMP RECVD THRU DATE S Wie"E" D “WT S XY K:Y<1 X 
M/FCRM FID # 128 


20 COWERSICN COLE: 
S Xe"(" 5:4Se(am, 4,5) XeX_Sp( “JAN. FEB.MAR.APR.MAY. JUN. JUL AUG. SEP.OCT.NOV DE", "." 
+Se(am,4,5))_" " $:4Se(an,6,7) %aK Se(am,6,7) ", " s XeK (1700+Ge(am, 1, 3)) 
s:$p(am,".",2)'="" Yak" at " Se(an_"000",9,10)_":" Se(am "000",11,12) 5 XaK_")" 
8:X%="(1700)" Xe"" s ateX 


28 STORED: $p{“10C(DA,251),""",2) 
29 PREFIELD CGE: 
S:"$d(cbi(6)) skip-"D" i '$d(skip) s:obi(6)"(°Y" skip="D" 
§:’Sd(cbi(127)) ekip-"D" 1 'Sd(skip) s:cbt(1Z7}="" gkips"D" 


140 ‘TEIDRD PARTY CASE SET OF COLES Y:YES 
N:NOD 


M/FORM FID # 7 


20 COWERSICN CODE: = amdp($p( ";Y:¥ES;N:NO;",";" an ":",2),"3",1) ,amgp(am,":",2) 
28 STOFED: 9 $p{ “ICC(DA,130),"*",9) 


141.1 THIRD PRRTY 
M/FCRM FID # 8 


28 SICFED: nowhere 
29 PREFIELD CCE: 
I 'SO(cbi(7)) s skip»"D",cbi(0,8)="" 
i Sd{cbi(7)) ssobi(7) ("Nt (cbi(7)["n") skip="D",chi(0,8)—"" 
=:'Sd(1vl) lvleQ i $d(chi(0))29 s sthfile=l d fileone’ptrfilel k shhfile 
i Sd( file), file,New'=0 s filingSe(’$d( filing) :lvl+1, lvl’ <filing:lvl+1,1:£iLing) 
+d upontr“fimémn 6 Newd),coi(0)="" k file 
s lvlelvl+1 
i lvl s DA(O)=0A, 008A f ielvl:-1:1 s:Sd(OMi-L)) OA(i)OA(i-1) 


30 POSIFIELD COLE: 
i lvl s CA(O)=OR £ ilsi:lvl s:$d(DA(i)) DA(i-1)eQA(i) 
S:lvl DfteQA(0) k DA(1v1),OAK(0),O1 s lvlelvi~-1 


16 CALLS 4/PORM: NAME/ADDRESS THIRD BARTY (#6265) 
M/PORM: NAMEY/ADCRESS THIFD PARTY (4625) 


\eraaneancaetit a IRIS SE PATIOS I 9 ETE LI TSE ESIC LISS SSS SET INSERTS EE ES EE BC SR NERS CLBE BNE TS SRE SPOS REED GRIER SER 


I. PRE-PORM COLE 


n filen, rptfile,New s:'$d(nocomp) filene“pte( iform, 99) 
+6:Sd(nocamp) filen="pbg( 903, ifomm,99) s New0, ptfile=1 
& Un""" i 'Sd(DT) § XxGacd(SH) ,WT"* d “Wr s DTeY k X,Y 

d sec” fmfna 
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a crirck’ fnfon 
Iz. WINDS 
DATA ELEMENT OANA TYE FOINIER GLOBAL REFERENCE OR INEUT VERIFICATION 
01 NXE FREE TEXT K:SL(X}>30!(SL(X)<1) X 
M/PCEM FID # 6 


"28 SIGFED: =$p( “ICC(DA(1),140,08,0),"°",1) ; 
44 POST ID: 5 ecm K:$L(X)>30! (SL(X)<1) X s3/Sd(X) ane" s:anf"*" ane" 


S SETTLEMENT AMOLNT NUMERIC FORMA S:X{"S" HeGP(X,"S",2) Keo" (X'?NL. "2N) 1 (909999999.99) 1(X<0) X 
M/PCEM FID # 7 
28 STORED: $p(“IOC(DA(1),140,08,0),""",6) 

1 ADRESS FREE. TEXT K:SL(X)>70!(SLIX)<L) X 
M/PORM FID # 2 


28 STORED: $p( “ICC(DA(1),140,DA,0),""",2) 
44 Fost Ip: & Yeon K:SL(X)>70! (SLAX)<1) x 8:'Sd(X) one*" s:on"*" ae" 


2c FREE TEXT K:SL(X)>20! ($1.(X)<1) X 
M/ECRM FID # 3 


28 STORED: $p( “ICC (DA(1),140,08,0),"7",3) 
44 POST ID: s Yecrn K:SL(X)>201(SL(X)<L) K 6:°Sd(X) ore" ssa "*" one” 


3 STINE FOINIER 1003’ 1rz(1003, 
M/FCRM FID # 4 


20 CONVERSION CLE: 8 ciGe(came™":"™, "(Sd “DIZ ( 1003 can, 0) #10) scm, 1 :$p( “DI2(1003,cm,0),""",1)) 
2B STCRED: $p( “ICC(DA(1),140,DA,0),"°", 4) 


4 ZIRCOLE FREE TEXT K:SL(X)>101($4X)<5) x 
M/FCRM FID #5 


28 SICMED: $p(°TOC(DA(1) ,140,08,0) ,“*",5) 
44 FOST ID: s Xam K:S1.{X)>10!(SL(X)<5) X s3’Sd(X) ame" sani "*" cone 





. TI. FOST-4cRM COLE 
i Sd(file),file s filingSs( 'Sd( filing) :lvl,lvbfiling:lv1,1: filing) 
+d node0* finfom 
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141 CASE QUTCIME FRSE TEXT K:$L(X)>60! (SL(X)<1) X 
M/FORM FID # 9 
2B STCRED: $p(* TOC(TA,130),°", 10) 
2 perarricre 


T *$X(chi(7)) 6 skip»"D" chi (0,9)="" 
i $d(cbi(7)) szobi(7){ "n't (coi (7)["N") skip="D" chi (0,9)="" 


44 POST ID: 5 Xecm K:$L(X)>601(SL(X)<1) X 6:’$d(X) an” ssanf"*" ane" 
a ee ee ee ON ee ee ee ee ee 


DATA ELEMENT ONTA TYPE FOINIER GLOBAL REFERENCE OR INEUT VERIFICAITON 


708 APPLY/RECVO VA BENEFTTS SET OF CCLES Y:YES 
N:NOD 


M/FCEM FID # 10 


20 CONVERSION CODE: 8 amGp($p(";¥:YES;N:ND;",";"_am":",2),"7",1) am@p(am,":",1) 
28 STORED: =$p( “10C(DA, 700) ,"*",8) 
-TLO VA CLAIM NUMEER FREE TEXT K:SL(X)>151(SL(X)<1) X 

M/FORM FID # 66 


28 STORED: =S$p(“10C(DK,701),""",1) 
29 PREFTELD COLE: 


i '$d(cbi(10)) s skip="D" 
i Sd(cbi(10)) sscbi(10)"{"Y" skip="D" 


44 FOST ID: ss Mecm K:$L(X)>151(SL(X)<1) X 8:/Sd(X) ame" s:anf""* ane” 
7LO.1 VA CRFICE WHERE CLAIM FI FREE TEXT K:SL(X)>301 (SL(X)<1) X 
MFCRM FID # 67 


28 STORED: $p(°100(DA,701),"°",2) 
29 PREFIELD COLE: 


i '$d(cbi(10)) s skip="D* 
i Sd(cisi(10)) szctti(10)"["¥" skip="D" 


44 FOST ID: s ecm K:SL(X)>301(SL(X)<1) X s3’Sd(X) ane" s:amf"*" am" 
710.2 VA STREET ACCRESS FREE TEXT K:SL{(X)>54! (SL{X)<1) X 
M/FCEM FID # 69 


28 STORED: $p(“ICC(DA,701),""",3) 
29 PREFIELD CLE: 
i '$d(chi(10)) 5 skip»"D" 
i Sd(chi(10)) s:obi(10)"["Y" skip="D" 
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————, 


710.3 VA CITY 


710.4 VA SINIE 


710.5 VA ZIP CLE 





44 POST ID: s Yeo K:SL(X)>54t (SLAX)<L) X 82/Sd(X) cme" szoml"°" cone 
FREE TEXT K:SU{X)>2C1(SLAX)<L) X 

M/FORM FID # 65 

28 SICFED: sot" “TOC(ER, 701), oon 4) 

29 PREFIELD CCLE 


i '$acbi(10)) s skip="D" 
T $p(cbi(10)) secbi(i0)"("Y" skip=D" 


44 FOST ID: § Mec K:SL(X)>201(SLAX)<L) X 62°Sd(X) cane" sam" cone” 


FOIMIER 1003’ 012(1003, 
M/FORM FID # 68 


20 CONVERSION COLE: «5 ands (cme"™":"", "(Sd “DIZ (1003 cam, 0) #10) scan 1:9 “OZ (1003,an,0),""",1)} 


28 STORED: 9 $p(“10C(DK, 701) ,"°", 5) 
29 PEEFTELD CLE: 
i ‘Sd(cbi(10)) s skip="b" 
i Sd(cbi(10)) sscbi(16)'("Y" skip»"D" 


FREE ‘TEXT HKeSLEX)>101 (SL{X)<5) X 
M/FCEM FID # 70 
2B SIOED: so “Toc {tA, 701),""",6) 
29 PREFIFLD COLE 
i i *$d(cbi(10) ) 8 skip="D" 
i $a(cbi(10)) sscbi(10)/{"Y" skip-"D" 


44 FOSY ID: 6 Mec K:SL(X)>101(SL(X}<5) X s2¢’Sd(X) cae" sson( °°" 


710.6 VA NATURE OF OLSABILITY FREE TEXT RsS{X)>571(SLAX) <1) X 


M/FCEM FID # 63 


28 SICRED: ale “T0C(0A,701),""",7) 
29 PREFTELD COLE. 
i *$A(cb(10)) 8 skip-"D" 
i $d(cbi(10)) secbi(10)"{"Y" skipe"o" 


44 POST ID: s Meom K:SL(X)>57!(SL(X)<1) X s:’Sd(X) ane" ssanl"°" ane 


cite"* 


710.7 VA AMOUNT CF PAYMENT NUMERIC FORMAT = S:X{"S" GOK, "S",2) Ket Xe X'7 NL", "2N) 1 (3099999.99) 1 (X<0) X 


M/FORM FID # 64 
28 SICFED: $(“ICC(OA,701),""",38) 
PREFIELD CLE: 


23 
i '$d(cbi(10)) s skige"D* 
4 $A(coi(10)) sscbi(10)'( "x" skip="D" 


A-151 











713 ANY OTHER RETIRE/DISABIL SET OF CLES Y:YES 
N:ND 
M/FCRM FID # 12 


1 


20 CONVERSION CODE: s cam6p{$o(";¥:YES;N:NO;",";"_am_":",2),"7",1) atmp(am,":"",1) 
28 STORED: $p( “ICC(DA,700),"*",10) 


714 OTHER ANWITIES CLAIM NU FREE TEXT K:SL(X)>151(QUAX)<L) X 
M/FCEM FID # 71 
28 STORED: =$p(“ICC(DA,707),"" ",1) 
29 PREFTFLD CIE: 
i ’Sd(chi(12)) s skip»"D" 
i Sd(cbi(12)) s:cbi(12)'("¥" skip="D" 
44 POST ID: s Yeon K:$L(X)>15!(SL{X)<1) X s:°Sd(X) ane" ssanl"*" ane"” 


714.1 OTHER ANNUITY DXTE BEGAN OXIE 5 Wik"E" D “WT S wY K:¥<l X 





M/FCEM FID # 74 


20 COWERSIQN CCIE: 


S Xe"(" §:4Se(am,4,5) XeX Spl "JAN, FES.MARAPR.MAY. JUN. JUL AUG. SEP.OCT.NOV.DEC","." 
feu 5)) ""s: +Se(cin,6, 7) Yok ( Se(aa,6, 7)", * 8 Yok ¢ (1700+Se(an, 1, 3)) 


s:Sp(an,".",Z) "a" Xe" at " Se(am 1 *000",5, 10)": mye * Se(am i “000", i, 12) s %X_")" 
$:X"(1700)" Xe" s amex 


28 SICRED: 2" TOC(ER, 707) ,"°",2) 
2 saab piety 


T *'SO(cbhi(12)) & skip~'D" 

i $d(cbi(12)) srobi(12)'("Y" skip-"D” 
714.2 OTHER ANNUITY AMOLNT NUMERIC POR AT | S:X["S" %uSP(X,°S",2) Ke+X! eee (X’ 2 NL, "2N) 1 (X09999999.99) 1(X<O) X 
M/FCEM FID # 72 


28 STORED: $p(“ICC(DA,707),"°",3) 
29 PREFIELD CLE: 
i ’SA(cbi(12)) § skip"D" 
i $d(cbi(12)) srobi(12)"["Y" skip»'D" 





FS EANENSSSOCOC~C“—SCSCS—C—CSCSCSCC 


OATA ELEMENT OATA TYPE FOINIER GLOBAL REFERENCE CR INEUT VERIFICATION 


722 DEPENCENT INFO 


M/FCEM FID # 14 


28 SICQFED: rovere 
29 PREFIELD COLE: 


A-152 








8:’Sd(lvl) Lvl=O i S3(cbi(0))>9 s shhfile=l d filecre*ptrfilel k shhfile 

i $d( file) ,file,New’=0 s filingpSe(‘$d( filing) :lvl+l,ivl’<filing:lvi+1,1:filing) 
4d upontr“finéon 5 New=0,cbi(O)="" k file 

8 lvlelvl+1 

4 lvl 8 DA(O)=DA,DOMDA f ielvl:—1:1 s:Sd(DA(i-1)) OA(i)=OA(i-1) 


30 FCSIFIELD CF: 
i lvl s CA(O}OR £ imlslslvl s:Sd(DK(i)) DA(i-1)=Da(i) 
s:lvl DfeDA(0} k OA(1v1) DAO) DL s lvl-lvi-1 
16 CALLS M/PORM: DEPENDENTS (#686) 
" M/WOR: DRPENDENIS (4686) 
LRP EA EIR OT TEE IE EIS HES PRI TB DTT TT PEE TS ES SPIEL IIAP IOS GPT NISMS QE ASTEROID INIT OCIS I OE LIONEL LE LIE LE EEA, 
I. PRE-PORM ODE . 
n filen, rptfile,New s:/Sd(nocamp) filene“ptc(i form, 99) 
+0:Sd(nocamp) fLlene*ptg(903,iform,99) s New), rptfile=l 
8 Un" 4 ‘SA(DT) s XGacl(SH) ,WI"" d “MOT 8 OMY k X,Y 
d sec*fafoma 
TI. WONOOS 
-01 NAME PRE. ‘TEXT K3SL(X)>301 (SL(X)<1) X 
M/PCEM FID #1 
28 STCFED: $p(“ICC(CA(1),706,04,0),""*,1) 


32 FOST FILING CLE: d setinck” infra 
44 POST ID: Yecan K:SL(X)>30!(SL(X)<1) X s2/Sd(X) ams"" s:emi""" cme" 


54 INEX: = “ICC(DA(1),706,"5") 
$5 LOORUP NODE: §=1°30"S$p( “IOC(DA(1), 706, Lids,0),"°",1) 

1 BIRIMDATE CATE S WIE" D “WY S MY KY X 
M/PCRM FID 3 2 


20 CONERSICN COLE: 
& %e"(" s3+Se(cm,4,5) HK C Sp("UAN. FES .PRR.APR. MAY. JUN. JUL.AUG. SEP .CCT NOV. DEC”, ".” 
+$e(an,4,5)) " " 5: +Se(cn,6, 7) ¥eK_Se(cm,6,7) ", " 8 XeK_(1700+Se(cm,1,3)) 
s:Sp(am,".",2)'="" ¥eX_" at " Seam “000",9,10)_": mn ' Se(am_ "000", 11,12) 8 %K ao 

s2¥="(1700)" *”"" 5 anX 
28 SICRED: $p(“10C(DA(1),706,08,0),°°",2) 
2 RELATIONSHIP FREE ‘TEXT R:SL(X)>151(SL{X) <1) X 
M/FCRM FID 4 3 


2B STCRED: 9=$p(“1CC(DA(1) , 706,0A,0),°°",3) 


A-153 














44 FOST ID: & eam K:SL(X)>151(SL(X)<1) X 82/$d(X) ane" ssaml "7" cne"” 


3 LIVING WITH YOU SET OF COLES YES: YES 
NO:ND 


M/FORM FID # 4 


20 CONVERSION CODE: = s ameSp( $p("; YES: YES;NO:NO;y: YES ;n:ND;","5"_am_ ":",2),"5",1) ,ammop(an,":",1) 
28 STORED: $p{ “ICC(DA(1),706,08,0),""", 4) 


9 STREET ACORESS FREE TEXT K:SL({X)>301(SL(X)<1) X 
M/FORM FID # 9 


28 STORED: $p(“1C(DA(1),706,08,0),""",5) 
44 POST ID: s Yee K:SL(X)>301(SU{X)<1) X 6:’SA(X) ame" sun" one” 


10 CIty FREE TEXD K:SL(X)>30!(SU(X)<L) X 
MORI FID + 10 


28 STOFED: $p(“ICC(DA(1),706,D4,0),""",10) 
44 POST ID: s Neem K:$L(X)>30!(SL(X)<1) X s2’$d(X) ame" s:an("*" am" 


li SINIE POINTER 1003’ fz(1003, 
M/FCEM FID # 11 


20 COWERSION CCEE: 5 areGe (cme, "($d “DTZ (1003,can, 0) )#10) sam, 1:$p4 DEZ(1003,an,0),"°",1)) 
28 STORED: $0(“ICC(DA(1),706,DA,0),""", 11) 


12 cIP CLE FREE TEXT K:$L(X)>10!($L(X)<S) X 
M/FORM FID # 12 


28 SICRED: $p( “IOC(DA(1) ,706,DA,0),"°",12) 
44 FOST ID: 8 Mem K:SL(X)>101(SL(X)<5) X sz’Sd(X) ame" s:am”*" cre"” 


5 SUPECRT PAYMENTS? Set OF COLES Y:YES 
N:NO 


M/FORM FID # 5 


20 CONMERSION CODE: 5 amSp( Spi"; ¥: YES;NeNOsy: YES;n:ND;",";" cm "2",2),"7",1) cmedp(am,":",1) 
28 STORED: §=$p( “ICC(DA(1), 706,08, 0),""",8) 


6 CRCERED BY ‘DE CORI? SeT OF COLES Y:¥ES 
N:ND 


M/FCRM FID # 6 
20 CONVERSION CCE: = s ameGp( Sol"; ¥: YES ;NeNOsnicNOzy:¥ES;",";"_am_":",2),"5",1) ,amgp(om,":",1) 


28 STORED: $( “TOC(DA(1) ,706,08,0),"°",7) 
29 PREFIELD COLE: 


A-154 








I '$0(ch(5)) 8 ekip="D" 
i Sd(cbi(5)) szcbd(5){ "n't (cbi(5)("N") skip="D" 


7 AMOUNT OF FAYPENIS NUMERIC FORMAT = S:X1'"S* Ww 9E(X,"S",2) Kr4K (XK! 2 NL. "2N) 1 (X59999.99) 1 (XO) X 
M/FORM FID # 7 | 


28 SILFED: $9 “ICC(DA(1),706,08,0),"°",8) 
29 PREFIFLD CCIE: 
i *$d(cbi(5)) 5 skip»"D" 
i $A(dod(S)) ssobi(S)( NE (cbd(5}["n") oxi" 


8 FER SET OF COLES M:PCNIHLY 
WWEERLY 
B:BI-VEEKLY 
A:PNNALLY 


M/ECRM FID # 8 


20 COWERSION COLE: s amGp($p( " ;M:MONIHLY ,W:WEERLY;B:BI-WEERLY; 
A:ANNBLLY;",";" cn ":",2),";",1) crmeOp(am,":",1) 
2B STORED: Sp “ICC(DALL), 708,0A,0), wn) 
29 PREFTFLD COLE: 
I '$d(cbi(S)) 8 skip="D" 
& $d(cbi(5)) ssobei(5)("n"t (cbi(5)("N") skip="D” 





TTI. POST-ACEM COLE 
i Sd( file), file s filingsSe('Sd( filing) :1vl,1lvl>filing:1vl,1: filing) 
4d nocde0* infra 





538 OTHER CEPENCENIS 
M/PCEM FID # 130 


29 PREFTELD OTe: 
8:/Sd(lvl) lvleO i Sd(chi(0))>9 s shhfile=i d filecne’ptrfilel k sthfile 


i $d( file), file,New'sO s filingSs('$d{ filing) :lvl+l, lvl’ <filing:1vl+1,1: filing) 
+d upentr fea 5 New), chi(0)="" k file 

8 lvlelvl+1 
i lvl s DA(0)=CA,D0eDA £ ielvl:~1:1 s:$d(MA(i-1)) DACi)OA(i~1) 


k DA(O) S Dre", Dihe*" 
30 HOSIFIELD cOHE: 
i lvl 8 DAO)MA £ ielstslvi s:SQ(OR(4)) OM i-1)=tA(4) 
s:lvl DPwQA(O) k CA(1v1),OA(0),D1 ¢ lvlelvi-1 
16 CALLS M/PORM: SLEFORD PAID (4732) 


M/PCRM: SUPPORT BAD (#732) 





acl55 














I. PRE-FORM COE 
n filen, pptfile,New s:'Sd(nooomp) filen=’} anohgeaciontfaN 
+6:$d(noamp) filen="ptq(903,ifoan,99) s Naw, 
ee as i SA(DT) s YeGad(SH), We" d “MT s Diey k X, : 
d sec’ fmfon 
II. WINDE 
OANA ELEMENT OATA TYPE POINIER GLOBAL REFERENCE OR INEUT VERIFICHITON 
.01 NAME FREE TEXT K:SL(X)>30! (SU{X)<3) X 
MACH FID #1 
28 STORED: $p( “IQC(DA(1) ,549,48,0),"°",2) 
32 FOST FILING CLE: d setirck’finfon 
44 POST ID: 5 Xecm K:$L(X)>301(SL(X)<3) X 8:'Sd(X) awe s:anf"*" on 
54 INCEX: 9“ICC(DA(1), 519, "B") 
55 LOOKUP NCCE: §=1°30°Spf “ICC (DA/1) , 819, lids, 0),"*",21) 
3 ACCRESS FREE TEXT K:$L(X)>60! (SL(X)<1) X 
M/FCRM FID # 2 


28 STORED: $p( “ICC(DA(1) ,519,04,0),"°",4) 
44 FOST ID: s Meum K:$L(X)>60!(SL{X)<1) X s:’$d(X) am" seamf"°" as"" 


4 ly FREE TEXT K:SL(X)>231 (SL(X)<1) X 
M/FCRM FID # 3 


28 STORED: $p( “IOC (DA(1) ,519,08,0),"°",5) 
44 FOST ID: 8 Mea K:SL(X)7231(SL(X)L) X 82/$d(X) com" ssa "" ate" 


5 SINE FOINER 1003’ nm2(1003, 
M/FORM FID # 4 


20 COWERSIXN CDE: 5 ame(cme”™:"* 2” (SA “DIEZ (1003, cm,0) #10) sam, 1 :$p( Dz, 1003,cm,0),"*",1)) 
28 SICFED: Sp(“ICC(EA(1), 5u),DA,0),""", 6) 


6 ZIP CLE FREE TEXT R:SL{X)>101 (SL{X)<5) X 
M/PCRM FID #5 


28 STORED: $p( “ICC{DA(1), 519,08, 0),"°",7) 
44 POST ID: s Mec %:S2(X)>101($L(X)<5) X s3’Sd(X) ame™ s:an “" ome 





TI. POST-RURM COLE 


A-156 








i Sd(file), file s filingpSs('Sd( filing) :lvl,lvb>filing:1v1,1:filing) 
+d node0" intron 


322 ONE EMP,CLADONT SIGNED) CE S Wik"E" D “WI S HY K:Ycl X 
M/PCEM FID # 18 
20 COWERSICN COLE: 
5 %e"(" s:4Se(cm,4,5) YeK Spl "JPN. FEB.MAR.APR.MAY.JUN.JUL AUG. SEP.OCT.NOV. DEI", "." 
_+$e(c0,4,5)) " " s:4Se(cm,6,7) ¥aX Se(cm,6,7) ", " § XeX (1700+Se(an,1,3)) 
s:$p(am,".",2) "=" HX " at " Se(cm "000", 9,10)_":" Se(an "000", 11,12) 6 XeK")" 
$2=7(1700)" %="" 5 anmxX 
28 STORED: Spi “10C(EA, 303),""",,7) 
7 SIFEET ALCRESS FRESE TEXT R:$L(X)>641(SL(X)<1) X 
M/PCEM FID # 19 


28 STORED: $p(*ICC(DA,1),"7",1) 
44 POST ID: s Xeon K:$L(X)>641(SL(X)<1) X s:/Sd(X) are" g:an("?" am" 


8 CIty FREE: TEXT K:SL(X)>231 (SL(X)<1) 1" (X?.AP) X 
M/FCRM FID # 20 


2B STORED: $p(“ICC(0K,1),"7",2) 
44 POST ID: ¢ Xecn K:SL(X)>231(SL(X)<1) 1" (X2.AP) X 8:/Sd(X) ome” ssa "*" ane” 


9 STATE FOINIER 1003’ f2(1003, 
M/ECEM FID # 21 


20 CONVERSION CODE: «8 ameGe(cae™:"", * (Sa( “DTZ(1003,cm, 0) #10) som, 1: Sp “DIZ (1003,cm,0) ,"°",2)) 
28 STORED: §=Sp( “Tec (mH, 1),""",3) 


10.5 2IP COLE FREE ‘TEXT K:SL(X)>10!(SL{X)<5) X 
M/FCHM FID # 22 


28 STORED: Spi “Icc(m,1),"°",6) 
44 OST ID: s Meom K:SL{X)>101(SL(X)<5) X s3’Sd(X) ane" gron{"*" ane" 


9.5 OVERSEAS ADDRESS FREE TEXT K:$L(X)>641(SL{X)<1) X 
M/FCHM FID # 23 


2? STORED: $p(“I0c(DA,1),""", 4) 
44 FOBT ID: 6 Yeo K:91(X)641 (SL(X)<1) X sz "Sd{X) ame" sscamf""" cme’ 


Sete a Nr cae eee To Te nr or tical 9 ofr soe ee ee ee . 


DATA ELEMENT CATA TYPE FOINIER GLOBAL REPLRENCE OR INEUT VERIFICNITON 


Aw157 





21 PAY FAIE NUMERIC FORMAT S:X["S" Xe6P(X,"5",2) K+! eXE(X!2NL". ZN) 1 (2099999) 1 (X<0) X 
M/FCRM FID # 84 
28 STORED: 9p(“ICC(DA,3),"°",8) 
21.1 DOL SUBSISTENCE NUMERIC PORMAT «= -S:X["S" 6P(X,"S",2) r+’ aki (X’2.NL"."2N) 1 (2>999999.99)1(X<0) X 
M/FCRM FID # 91 
2B STORED: 9 $p(“IQC(M,3),"°", 16) 
21.3 COI QLARTERS NUMERIC FORMAT S:X1"S" SP(X,"$",2) 24K’ ake (X’ 2NL"."2N) 1 (30999999.99) 1(X<0) X 
M/FCRM FID # 88 
28 STORED: $p{ “I0c(DA,3),"°",18) 
21.4 DOL OIHER RAIE NUMERIC FORMAT «= S:X1"$" GP(X,"S",2) Ks4X’ ("2 NL”. "2N) 1 (90999999.99) 1(X<0) X 
M/FCRM FID # 86 
28 STORED: $p({ “I0C(DA,3),"°",20) 
20 BAY BASIS ST OF COLES H:HOLRLY 


M/FCEM FID # 85 


20 COWERSICN COE: 5 no Mecennaetamsy at dear pear I 
A:AANLBLLY;D:DAILY;",";" cam ":",2),"3",1) ,ameSp(cn,": 
2B STORED: $p(“ICC(0A,3),""",7) 


21.25 DOI SUBSISTENCE BASIS SET OF COLES H: HOURLY 
M:MONIHLY 
B:BI-MONIHLY 
A:AANALLY 
D:DALLY 
M/FCRM FID # 92 


20 COWERSIN CIE: 8 cop Sol” sSSCLILY PPONIEY Bt SI-MONIHLY; 
A:ANNUALLY ;D:DAILY;",";" cm ":",2),"3",1) ,cameGo(can,":",1) 
2B STORED: Sp “I0C(DA,3),""",17) 


21.35 DOY QUARIERS BASIS ST CF COLES H: HOURLY 
W:WEERLY 
M:MONIBLY 
B:BI-ONIHLY 
A:ANLELLY 


4-158 








D:DAILY 
 M/FORM FID # 89 
20 CONVERSION CE: 3s anSp($p(";H: HOURLY -W: WEERLY ;M: MONTHLY ;B:BI-PONTLY; 
A:ANNLPLLY;D:DAILY;",";"_an":",2),"5",1) ,ameSp(an, ":",2) 
2B STORED: 9p “IOC(DA,3},"""", 19) 


21.45 DOT OTHER RAIE BASIS SET OF CLES H: HOURLY 


M/PORM FID # 87 
20 CONVERSION CORE: = 5 ameGp($p(":H: HOURLY: aiid M:MONIHLY ;B:BI-AONTLY; 
ADANNLALLY;D:CAILY;",";" cm ":",2),"3",1) ,amGo(an,":",1) 
28 STORED: =$p( “10C(DA, 3),"°", 21) 
229.1 WORK STOPPED BASE RATE NIERIC PURPD — S:X{"$" YeGP(X,"$",2) 24" aite(X"2NL"."2N) 1 (30999999,99) 1 (X<0) X 
M/FORM FID # 94 | 
28 STORED: $p( “100 (0H, 222),""7", 1) 
229.3 WORK STOPPED SUBSISTENCE «= NUMERIC AORPATS:X[ "5" NeSP(K,"S",2) Rete (X'7 NL. 2) | (20999999.99) 110) X 
M/ECRM FID # 96 
28 STORED: $( “100(DK,222),"°",3) 
229.4 WORK STCPPED CUARIERS NLMERIC FORMA S:X{"S" XeGP(X,"S",2) Ke4X’mXG(X'P.ND"."ON)1() 799999.99) 1x0) X 
M/FORM FID # 97 . 
28 STORED: $0( “10C(DA,222),"7",5) 
220.5 WORK SICEPED ODER RAIE NERIC FORMAT S:X{"S* HSP(X,"S",2) Ki4Xi eke (XK 7.NL"."2N) 1 (30999999.99) 1(<0) X 
M/PORM FID # 100 
2B STORED: 9p “IOC(DA,222),"*",7) 
229.2 WORK SICEPED BASE BASIS SErOF OURS = HULL 
W:VEEKLY 
M:MONTHLY 
B:SI-PONTHLY 
A:ANNUALLY 
D: DAILY 
N/ECEM FID # 93 


A-159 








229. 35WCRK SICEFED SUB BASIS 


209. 450RK STOPPED CUARIERS BA 


229. SSACRK STCEPED OTHER BASIS Se? OF COCES 


3) FEEMTUM oAY 


21 PREMIUM SAY BASIS 


20 CONVERSTON CODE: = 5 ameSo( Sp"; H: HOURLY; W:VEERLY;M: abroad ig! BIMONTHLY; 
A:ANNLALLY;D:DAILY;",";"_am n":",2), 37",1),cméo(an,":",1) 
22 STCRn: $p{ “rac( DA, 222) ,"°",2) 

Ser OF COLES HK: HOLRLY 
W:VEEKLY 

M: MONIRLY 

B: BI-MONINLY 
ASANLALLY 
D: DALY 


M FORM FID # 95 


20 CONVERSION OIE: 8 aQX(S0(": ein Ey M: MONTHLY ;B: BIMONTHLY; 
A:ANNLALLY;D:DAILY;",";" aa ":",2),"5",1) amép(am,":",1) 
28 STCFED: §=9$p( “IGC( DA, 222) ,"°".4) 

SETOF CES =H: HLRLY 
W:WEERLY 
M:MONISLY 

B: BIMONTHLY 
A:ANNLALLY 
D:TAILY 
M/FCEM FID # 98 

20 CCNVERSION CEE: s amSp(90(";H: ee oe, 7M: MONTHLY ;B:BI-MONTHLY; 
A:ANUALLY;D:DAILY;",";" am ":",2),";",1) ,am6p(am, "2" a) 
28 STORED: §$p( “1CC(DA, 222),""", 5) 


R: HOURLY 

A: WEERLY 
M:MCNIHLY 
B:8I-MCNIHLY 
A:’ANNALLY 
D: CAILY 


M/TORM FID # 9 


20 COWERSICN COLE: 5 Rh oa ee M: MONTHLY ;B:BI-MCNTHLY; 
A:ANLALLY ;D:DAILY;",";” cm_":",2),";",1) ,camp(an,":",1) 


28 STORED: 9% “I0C(DA,222),"°",8) 

NUMERIC FORD | S:X("S" 4eSP(K,"5",2) Kr eX (X"> NI". "2N) 1(90999999.99) 1(X<0) X 
MFOR* FID # 106 
28 STROD: = “ICCIOA,42),"°",1) 


SI CF CLES H:HOLPLY 


WIAEEKLY 

MO MCNTHLY 

3:1 4SEXLY 
ACANNLALLY 


A-1té0 








32 NIGH BAY 


33 NIGHT PAY BASIS 


34 SUNDAY FAY 


35 SUNCAY FAY BASIS 


36 OTER DAY 


M/FCEM FID # 114 
20 CONVERSION COLE: $5 ais6p($p(";H: HOURLY W:VEERLY; 7M: MONTHLY ;B: BI-WEEKLY; 
A:ANNUALLY;D:DAILY;" 3" 6 an":",2)," t ",1) ,ameSp(an,":",1) 
28 STORED: $p( “Icc(DA,12),"°",2) 

29 PREFTELD COKE: §:/Q(abi(106)) skipe"D" 


NOERIC PORAT SiX1"S" RSP(K,"S",2) Ket? (K02 NL". "2N) 1 (50999999.99) 1(K0) XK 
M/FCRM FID # 107 

28 SICFED: $p(“JOC(DK,12),"°",3) 
SET OF CES = H:HOLRLY 
W:SEEXLY 

M: MONTHLY 
B:BI-WEERLY 
ASANUALLY 
D: DAILY 


M/PCRM FID # 108 


20 CCNVERSICN CODE: «= 8 ane6p($o( "Hs HOURLY W:HEERLY;: MoMONTHLY 38: BY-“BERLY; 
A:ANNURLLY;D:DAILY;","3" cm "2",2),"7"/1) ,cam@p(can, "2", 1) 
28 STORED: $p( “IOC(DA,12),""", 4) 

29 PREFTELD (KEE: 8:’Sd(chi(107)) skips” 


NERIC FORMAT © S:X["S" XaGP(X,"$",2) Kz4X’ mk (X"?.N1". ZN) 1 (20999099 99) 1( X60) ¥ 
M/FORM FID # 109 
28 STORED: = $p(“IC(0A,12),""",5) 


SST oF QRS. WHOLLY 
W:WEERLY 
M:PONINLY 
B:BI-EERLY 
AcANNUBLLY 
D:DAILY 


M/ECEM FID # 110 
20 CONVERSICN CODE: 8 amm6p( $p(";H: HOURLY W:HEENLY ;M:PONTMLY ;8: BI +EERLY; 
A:ANNLBLLY;D:DAILY;",";" am ":",2),"3",1) cmOp(om, *2",1) 
28 STORED: So “Toc(pA,12),""",6) 
29 PREFIELD OTE: $:’SD(cbi(109)) skip="D" 
NUMERIC FORMAT «= -S:X{"S" MeGP(X,"5",2) Ke 4X" (X"2NL". MON) | (30999995.99) 1(KC0) X 
MFO FID # 111 


2B STORED: Sp( “TOC(oR, 12),°7",7) 


A-161 











37 OTHER PAY BASIS SET OF COLES H:HOLRLY 
W: WEEKLY 
M:MONIHLY 
B: BI-WEEKLY 
D: DAILY 
M/FORM FID # 112 


20 CONVERSION CODE: = 5 ame$p( $p(";H: HOURLY W: WEERLY ;PEPONTHLY;B: BI-VEERLS ; 
A: ANNLALLY;D: DAILY; ly 3" an! ", o 2)" ott yh) ,amSp(on,": " yl) 
28 STORED: =$p(“10c(mA,12),"°",8) 
29 PREFTELD CODE: S:’SD(cbi(111)) skip»"D” 
36 OTHER FRY SPECIFY FREE TEXT K:SL(X)>30!(SL(X)<1) X 
MALE FID # 113 
23 STCRED: $p( “TOC(DA,12),"°",9) 
29 PREFTELD COLE: $:/SD(cbi(111)) skip="D" 
44 FROST ID: § Xam K:SL(X)>30!(SU(X)<1) X 8:’Sa(X) om" g:an""" ane" 
303 REGULAR WORK SCHEILEE FREE TEXT K:SL(X)>151($L(X)<3) 2% 
M/FCEM FID # 24 


28 STORED: $p( “ICC(DA, 300),""",4) 
44 POST ID: s Yeu K:SL(X)>10!(SL(K)<3) X s:’Sd(X) om sran"*" aw" 


605 EMPLOYED IN DUTY 11 M5 SET G COLES Y:YES 
N:ND 


M/FORM FID # 25 


20 CONVERSICN COLE: = 6 ateGp($p(" ;Y: YES;N:NO;",";" cm ":",2),"3",1) ,cam@p{am,":",1) 
28 STORED: 9p “I0C(DA,600),"°",2) 


606 DUTY AFFCRCED 11 »OS5 WR SET OF COLES Y:¥ES 
N:ND 


M/PCRM FID # 26 


20 COWERSION COLE: 8 cmp $p(";¥: ¥ES;N:NO;",";" cam :",2),"3",1) camOp(am, "2", 
28 STORED: Sp “I0C(DA, 600), "*", 3) 
29 PREFIELD Cre: 
I '$0(cbi(25)) § skip="0" ci (0,26)="™ 
i Sdichol(25)) szcboi(25)["¥"1 (chi (25)["y") skip="0" di (0,25)="" 
727 TOIL YRS CIV SERVICE NUMERIC FORMAT K:-4X'mK1 (2050)! (X<L) 1002.1". "IN.N) X 
MFCM FID # 47 


28 SICFED: $p( “ICC(TA, 704) 7°", 2) 


A-162 





; | 727.5 TOUNL 10S CIV SERVICE NUMERIC FORMAT KeaX?aX! (XOLL) £(KCL) {(X2.E1"."1N) Xo 
M/FORM FID # 48 
28 STORED: $p(“10C(DA,700),""",5) 
nnn: 3.2..." is 
POINTER GLOBAL REFERENCE OR INFUT VERIFICATION 





OATA ELEMENT DATA TYE 
728 EMP ENECLLED IN FEB Ser CF COLES Y¥:¥25 
; Nino 
M/FOEM FID # 28 


20 COWERSICN GYE: § carweiph Sp" 2 YES NENO}" "5" cam "2",2),77" 1) campeon "2", 3) 
28 STORED: $p( “10C(A,704),"""»3) 


25 FEB COE FREE TEXT K:SL(X)>15! (SL(X)<L) XK 

M/FCEM FID # 30 

28 STORD: 9p “10C{DA,3),""",13) 

29 PREFTELD COLE: 
1 'Xcbi(2B)) $ skip="0" 
1 Si(chn(2B)) cba (28) ("Nc (28){"n") skip" 

44 POST ID: § Moun K:SLAX)>151(SLX)L) X s:'$d(X) ane" sran{""* am" 

728.1 PAY PERIOD END DASE CR CRXTE § Wik” D ROT S HY KY X 
M/FCEM FID # 44 
20 CONVERSION 


COE: : 
8 Xe"(" s+Se(an, 4,5) AK So PNAFP.PARAPRPAY JUN. JUL AS. SEP.OCE.NOY DEC" ,"." 


*$e(cn,4,5)) << 6:+Se(an,6,7) we Se{am,6,7) *, "8 eK (1700+Se(am,1,3)) 
5:90am, ".",2)"0" XK" at * Se(can “000",9,107_*:" Se(ca "000", 11,12} s w")" 
gi¥e"( 1700)" Xe"* 8 coe 


28 STORED: Sp( “T0C(DA, 700),"°",6) 


729 OP ENRCUED INGRT LIE | SET CES SMES 
N:ND 
M/PORM FID # 29 


20 COWVERSIN CIE: 5 crip SpA" ¥SYES NNO; "577" aan "3", 2) "3", 1) crm@ptam,":",1) 
2B SICRED: Sp “I0C(DA,704),""",4) 


729.1 LIFE INS OPTION Sey CF COLES ASA 
8:8 
€:c 

M/FCEM FID # 83 


A~163 











20 CONVERSION COE: s camSp( $p("A:A;B:B;C:C;",";"_am"2",2),"5",1) ,ameGo(am,":",1) 
28 STORED: $p(“10c(mA, 704),"*",5) 


729.2 HOW MANY OPT/B MULTIPLES FREE ‘TEXT K:SL(X)>30! (SL(X)<3) X 
M/FCEM FID # 32 
28 STORED: Spf “ICC(DA, 704) ,"°", 6) 
29 PREFIFLD (CLE: 


I '$0(dbi(31)) 5 skip="D" 
i SA(cbi(31)) ssobi(31)"("S" skip="D" 





44 FOST ID: s Meam K:$L(X)>30!(SL(X)<3) X s:’Sd(X) am"" s:an{"°" oms"" 
252 SICK LERVE FROM DAIE S WIe"E" D “Wr S HY K:¥dl X 
| M/FORM FID # 115 
| 2C CCOWERSIGN COLE: 
i ; & Ye"(" s:4Se(cm,4,5) Yak Sp( "JAN. FF3.MAR.APR.MAY JUN. JUL ALG. SEP.CCT.NOV.DEC”,"." 
,+$e(cm,4,5)) " " 8:+$e(cm,6,7) MK Se(an,6,7) ", ” 6 aX ¢ (2 700+Se(cm,2, 3)) 
$:Sp(an,".",2)’ ="" XeX "at" ' Se(an "000", 9, 107 ":" Se(am 2 “000",11,12) & XeK_")" 
8:X%="(1700)" Xe" 5 cmeX 
28 STORED: $p( “ICC(DA, 250) ,"°",,3) 
252.5 SICK LEAVE THRU CRI S Wrme"E" D “MT S Me K:Ycl X 
M/PCEM FID # 136 
20 CONVERSION COLE: 
& Xe"(" s:+Se(an, 4, 5) %eX_Sp( “JAN. FEB.MAR.APRPRY.UN. JUL ALG. SEP.OCT.NOV.DEL",". 
aeaicas A; 5)) " * g:+Se(an,6,7) XK Se(an,6,7) ", ° & Mex ¢ (1700+Se(am, 1, 3)) 
s:Sp(an,".",2)’="" XaX_" at " ' Se(cr"000",9, 107. *:" Sean 2 *000",11,12) 5 XaK_")" 
§:X"(1700)" Xe" s amex 


28 STORED: $p( “IGC(L4,.250),""",4) 
29 PREFTELD (ILE: s:/S$d(chi(115)) skip="D" 


253 ANNUAL LEAVE FROM OXIE S We"E" D “WI S WY K:Yd X 
M/FORM FID # 117 


20 COWERSIGN COLE: 
8 Ye"(" 5:+Se(cn,4,5) MeaX . Sof “JAN. PES.MAR.APRPAY.JUN. LL AUG. SzP.CCT. NOV. DE",".." 
t$e(an,4,5)) ” " s:4$e(cn,€,7) XK Se(am,6,7) ", * $ XK (1700+Se(an,1,3)) 
s:9p{an,".",2)'="" eX" at " Se(cm "000" 79,107": a“ * Se(an "000", 11,12) s %6X_")" 
82240"(1700)" Xe"" 5 cK 
28 STORED: =$p( “100(DA,250),""",5) 
253.5 ANNLAL LEAVE THRU ONTE S Wile"E" D “WI S MY K:Ycl X 


M/FORM FID # 118 


A-164 











20 COWERSICN COLE: 


8 ¥e"(" 8:+$e(am,4,5) MaK Sp( "JAN. FEB. MARLAPR.MAY. XN. LAG. SEP.CCT.NOV.TEC", ae 
,+$e(am,4,5)) " " s:4$e(am,6,7) 3K t Se(am,6, 7)", " S ¥eXK ¢ (1700+Se(om, 1, 3)) 

8: Sp(an, y " yaya Yo | " at " ' Se(an 1 “000",9, 10)": 4, Ci ' Sefan a *000", i ,12) 6 eX Se 
s:¥"(1700)" Hes cameK 


28 STORED: $p( “I0C(DA,250),""",6) 
29 PREFTELD COLE: S:/SD(chi(117)) skip»"D" 
251 OTHER LEAVE FROM CATE S We"E" D “WI S Key K: Yel X 
M/FORM FID # 119 


20 CONVERSICN COLE: 


S Xe"(" §:4S5e(cn, 4,5) XK C Sp( “GAN. FEB.MAR.APR.MAY.JUN.JUL.ALG. SEP.OCT.NOV. Dec", "." 

*$e(an,4,5)) " " 8:+Se(an,6, 7) %eK Se(amn,6,7) ", " & XK (1700+Se(an,1,3)) 

8:So(an,".",Z)'="" Yak" at " Se(crt *C00",9,10)_": myn ' Se(cm_"000",11,12) & %*K_")" 
s7X="(1700)" %e"" s omk 


23 SYTCRED: Spt “T0C( DA, 250) ,""",,7) 
251.5 OIMER LEAVE THEU DATE $m D Wr s wy Kv X 
MV/FORM FID # 120 


20 CONVERSICN COLE: 


+8 Xe"(" 24Se(cmn,4,5) Hak Spl "JPN.FEB_MAR_APR.MAY. JUN. DULG, SEP.COT.NOV.DEC™,"." 
r#$e(cm, 4,5) " * s:4Se(c,6,7) XK Se(cm,6,7) ", " § HK (1700+Ge(cm,1,3)) 
s:Sp(an,”.",2)'="* Ye" at © Seca “000", 9,107 ":" Seam "000",11,12) s eK ")" 
:Xe"(1700)" x" 5 ame 


28 STORED: $p(“TOc(Da,250),""",8) 
29 PREFTELD CE: s:'Sd(chi(119)) skip-"D” 
251.6 OTHER LEAVE SPECIFY FREE TEXT KsSU(X)>308 (SAX) <1) X 
M/FORM FID # 121 
2B STORED: $p(“ICC(DA,250),"°",9) 


29 PREFIFLD CEE: =S:/SD(chi(119)) 
44 POST ID: 8 Meo K:SL(X)>301(SRAX)<1) X 83 "Sd(X) cme s:anf"*" an 


250 COP PECVD FROM TPE S$ Wk"e" D “Wr S HY Kv xX 


*/PORM FID # 123 


20 CONVERSICN (CLE: 


8S Met(* paises 5) 3K CS "PN, FEB PAR.APR.MAY.JLN.JUL-AIG. SEP CCT .NOV.DeD”,”." 
tSe(om,4,5)) * " s:+Se(cm,6, 7) YK Se(an,6,7) ", * s HK (1700+Se(an,1,3)) 

8! Spica, Cy] 2 pyran wx" at * * Sele "000", 9, 107 * *" ' Se(aa™ "i. 712) 8 eX $y 
:¥e"(1700)" *™ 3 aK 


28 STORED: $p(“10C(DA,250),"*",1) 


A-165 














5 COP REVO THA DATE S WWle"E" D “MOT S Mey K:¥<l K 
MACHM FID # 122 
20 COWERSICN CLE: 
S ¥="(" s:+Se(am,4,5) aX _Sp( "JAN. FEB. MAR-APR.MAY..JUN.JUL.AUG. SEP.OCT.NOV.DEC",","" 
+Se(am,4,5)) " " s:4$e(cii,6,7) ¥eX Se(am,6,7) ", " § 4X (1700+$e(am,1,3)) 
s:So(am,".",2)'a"" yok" at " $e(an_"000",S,10)_“:" Se(an_"000",11,12) s XeX_")" 
S:¥="(1700)" Xe" Ss cmeX 


28 STORED: $p( “10C(0K, 250) ,""",2) 
29 PREFTELD CLE: S:/SD(chi(123)) skipe"D" 


230 D/T BAY STCEPED CXIE S WIe"EI" D “SOT S He K:Y<l X 
M/FCEM FID # 23 


20 CONERSICN COLE: 
S ¥e"(" s:+Se(am,4,5) XeK_Sp( "JAN. FEB.MAR.APR.MAY.JUN.JUL.AUG. SEP.OCT.NOV.DET”, "7." 
-+Se(am,4,5)) " " s:+Se(am,6,7) XaX Se(am,6,7) ", " s XeK (1700+Se(am,1,3)) 
s:Sp(am,".",Z)'a!" wX_" at " $e(am_"000",9,10 "2" $e(an "000", 11,12) s YoaX_"")" 

$:X"(1700)" Xe" s creX 

28 STORED: =$p( “IGC(DA,221),"°",2) 

M/FORM FID # 49 

20 COWERSION COLE: 


28 STORED: nowhere 
44 RST D: 


M/FORM FID # 50 
20 CONVERSICN COLE: 
2B STORED: nowhere 


44 Post ID: 
nS ION ee eee 
OATA ELEMENT DPCA TYPE FOINIER GLOBAL REFERENCE OR INEUT VERIFICATION 
231 D/T RETURNED TO WORK OXTE S OMm"EI" D “WOT S MY KY X 
M/FORM FID # 34 
20 CONWERSION COLE: 


S %="(" $:4Se(an,4,5) YeXK_$p( "JAN. FEB.MARAPRMAY UN. JUL ALG. SEP.CCT.NOV.DE”,"." 
+Se(cn,4,5)) " " s:+Se(an,6,7) aK Se(an,6,7) ", * s HX (1700+Se(cm,1,3)) 
S:$p(an,".",Z)'=" XK" at" Se(cm"000",9,107_":" Setcm"000",11,12) $ YeK.")" 
s:%"(1700)" %e"" § on 


23 STCFED: So “ICC(DA, 221) ae ,3) 


A-166 





324 NEW WORK WEEK / FRE TEXT | K:SL(X)> 301 ($2(X)<3) X 
M/FCEM FID # 43 


38 STORM: = $p( *I0C(OA, 303) ,"°",8) 
44 POST ID: 5 Xecm K:$L(X)>30!(SL(X)<3) X s:’$d(X) ame"" s:an{"*" ame"" 


311 DISABLED FOR WORK SET CF COLES Y¥:YES 
N:ND 


M/FCRM FID # 35 


20 COWERSION OME: 8 amdp($p("7¥:¥ES;Nst0;",";"_om_":",2),";",1) ame p(am,":",1) 
28 STORED: $p( “20C(DK, 303),""",2) 


320 DESCRIBE NEW WORK ASSIGN 
M/FORM FID # 36 


28 STORED: rovere 
29 PREFIELD CIE; 
I Sch (35)) 8 skive"D" 
i $A(cei(3S)) ssc (39)("n"! (aod (35) ("N") skip="D” 
83'Sd(lvl) lvleO i Sdiani(0))>9 s sinfileel d filecne’ptrfilel k sthfile 
i $d( file), file,New’=0 s filinceée( '$d( filing) slvi+l,lvl'<filing:lvl+l,1: filing) 
4d upantr*finfion s News), chi(0)="" k file 
s lvlelvl+l 


i lvl s LA(O)=0R,D0e0R f imlvl:-l:]1 s:Sd(DA(i-1)) DACi)A(i~-1) 


30 ROSIFIELD COLE: 
i lvl s DA(O}=OR £ iwks1: wi s:$d(DNi)) DAC im] )CA(i) 
Stlvl OheDA(O) k DA(1v1) ,DA(0) D1 s lvleivl-1 


16 CALS M/FCRM: DESCRIBE NEW DUTIES (#630) 
M/YORM: DESCRIBE NEW DUTTES (#630) | 
1. PRO-FCRA COLE 
n filen, pptfile,New s:'Sd(noconp) filen=*pte(ifoom,99) 
+6:Sd(necanp) filen»*ptg(903,iform,99) s New), mptfile=l 
S Us"** i 'Sd(DT) & MSad(SH), Wie" d “WT s Dike k X,Y 
di sec” ffm 
@ crindk” infra 
TI. WINDS 
CATA ELEYENT OAIA TYPE FOINIER GLOBAL FEFERENCE OR INEUD VERIFICATION 
-O1 DESCRIQE NEW WORK ASSING 89 WORD FRCCESSING 


MFCR FID # 1 











28 STORED: $o(“ICC(CR(1),311,08,0),"",1) 





III. POST-FCEM COLE 


i Sd( file), file s filingse('$d( filing) :1vl,lvbfiling:1v1,1: filing) 
+d shuffle*fméom d nodeO* fnfon 





231.1 RETURNED TO WORK BASE RA NUPERIC FORMAT S:X["S$" XeSP(X,"$",2) KevX'eX6(X'?.NL"."2N) 1 (X>999999.99) !(X<0) X 
M/ECRM FID # 125 
28 STORED: 9 $p(“10C(TA,231),"°",1) 

231.2 RETURNED TO WORK BASE BA SET OF COOES H: HOURLY 


M/ACEM FID # 126 


20 CONVERSIQN CODE: = ame6p( $0"; H: HOURLY W: WEERLY;M: MONTEILY ;3: 81-PONTHLY; 
A:ANNALLY;D:DAILY;",";"_ cm an ":",2),%3",1) ,am6p(am,":",1) 
28 STORED: =9$p( “ICC(MA, 231),"°",2) 
29 PREFIELD COME: $3 5:’Sd(cbi(125)) skipe"D” 
720 CEFICIAL REMARKS FREE TEXT K:SL(X)>50! (SL(X)<1) X 
M/FCEM FID # Sl 


28 SICFED: $p(“IdC( DA, 402) ,"°",6) 
44 FOST ID: 5 Yam K:SU.(X)>50!(SL(X)<1) X s:’$d(X) an" s:anf"*" an" 


402 SUPERVISGR’S NAME FREE TEXT K:SL(X)>30! (SL{X) <1) X 
M/FCRM FID # 55 


28 STORED: $p(“IcC(DA, 402),"7",1) 
44 FOST ID: 5 Xecm K:SL(X)>30!(SL{X)<1) X s3/Sd(X) ane”™ s:an("*" ane" 


402.4 DOATE SUPFRVISCR SIGNED TXIE 5 SDle"E* D “WT S MY K:¥d X 
M/PCRM FID # 79 
20 COWERSICN COLE: 
s (" s:+Se(an, 4,5) 
XaX_Sp( "JAN. FEB..MAR-APR.MAY.JUN. JUL.AUG. SEP.OCT. NOV. CEC”, ".",+S$e(an,4,5)) * * g:+Se(an,6,7) YK Se(an,6,7) ", " 
s 
4K _(1700+Se(cn,1,3)) 


s:$p(an,".",2)/="" XeK_" at " Se(an_"000",9,10) *:" Se(am "000",11,12) s XaK_")" 
s:¥e"(1700)" ¥e"" 5 amex 


2 STORED: $0 “ICC(OA, 402),"°",5) 


A-168 








402.1 SUPERVISOR'S TTILE FREE TEXT =: SL(X)>301(SL(X)<1) X 


MOM FID # 56 


3B STCEED: $e “I0C(DA, 402) ,"*",2) . . : 
44 POST ID: 5 xem K:SL(X)>30!(SL(X)<1) X S2/Sd(X) ame" ssamt"*" qt 


14 REPORTING OFFICE FOINIER 1063’ N0( 1063, 


14.01 FO ACDRESS 


14.02 Fo criy 


14.03 FO SINE 


£4.04 FO 2IP CE 


M/FORM FID # 58 


20 CONVERSION COLE: 5 Cs (cane, *($A(“INT(1063,crn,0) }410) sam, 1:$p “INT 1063,cmn,0),"-",1)) 
28 SICFED: $i “10C(IK,10),"*",1) oe 


FREE TEXT K:$L(X)>54! (SL(X)<l) X 
M/FORM FID # 59 


28 STORED: $p{ “ICC(DA,10),""",2) 
44 POST I: s xem R:SL(X)>541(SL(X)<1) X $:/$d(X) ane!" samt """ cet? 


FRE Text K:SU(X)>201(SL(X)CL) X_ 
MVFCRM FID # 61 


28 STORED: $p(“Ict(mA,10),"*", 3) 
44 FOST ID: § Mem K:SE(X)9201 (SU(XI<L) X 8:/SA(X) ane" ssa" onet* 


POINTER 1003’ = rz(1003, 
M/FCRM FID # 60 


20 COWERSIN OCDE: 8 crmGe(canw™:"*, ”($( “D12(1003,can,0) 410) sem, 2 $p¢ “UT2(1003,cm,0),"-",2)) 
28 STORED: $p(“ICC(DA,10),""", 4) 


FRE® TEXT R:SL(X)>101 (SL(X)<5) X 
M/FCEM FID # 62 


28 STORED: Sp(“IG0(DA,10),"*",5) 
44 OST ID: 5 Yeon K:SL(X)>10! (SL(X)<5) X S:'SA(X) cae™" gran" one 


731 PERSQN TO CONIFCT SET OF COLES S:SEERVIER 


O:OXHER 
M/FCEM FID # 81 


20 CONWERSICN OE: 5 mm S0{"S:SUPERVISRO-ODER;",";* cm 2" 2),"3",1) amiplem,":",1) 
28 STURED: = $p{“I0C(E8,700),"*",2) 


14.05 SQINT GF CONIACT FREE TEXT RsSL{X)>301 (SLAXI<L) X 


M/FCEM FID # 60 


r A-169 














28 STORED: =$p(“10c(04,10),""",6) 
44 POST IM: 6 Xeam K:SL(X)>30!(SL(X)<1) X s:’Sd(X) ane" s:ani""" ane”" 


14.06 FOC PRONE FREE TEXT K:SL(X)>13!(SL(X)<10) X 

M/FCRM FID # 54 

28 STORED: $p(“IGC(DA,10),"°",7) 

44 FORT ID: $ Yea K:SL(X)>13!($L(X)<10) X s:’Sd(X) ane" s:an"°" ane" 

III. FOST-FORM COLE 
i $d( file), file,New'=0 s:/Sd(lvl) Ivl=d 
+6 filings6e( '$d( filing) :1vl,lvb filing: lvl,1:filing) 
+d 


*fmérm 
i flew)! (Sd(BRELAG)) d CA7"TSCPN, “TXCFILE 





A-170 








SAM tad KD bt | 
Seer aes ot oar Me 


wO ow 


19. 


13. 


15. 


CA-8 CLAIM FOR CONTINUING COMPENSATION ON ACCOUNT OF DISABILITY 
STATEMENT OF INJURED EMPLOYEE 


NAME OF INJURED EMPLOYEE 

OWCP FILE NUMBER, IF KNOWN 

HOME MAILING ADDRESS 

City STATE os ZIP CODE 
OVERSEAS ADDRESS 

SOCIAL SECURITY NUMBER 

VATE AND HOUR OF INJURY 











PERIOD COMPENSATION CLAIMED, FROM THROUGH 
HAVE YOU RECEIVED ANY LEAVE PAY? 

SICK LEAVE FROM THROUGH 

ANNUAL LEAVE FROM THROUGH 

OTHER LEAVE FROM THROUGH 








SPECIFY OTHER LEAVE 
DO YOU WISH TO REPURCHASE LEAVE? _ 
COMPLETE (A & B) TF YOU WORKED DURING THE PERIOD SHOWN IN ITEM #6. 
A. SALARIED EMPLOYMENT Press <Return> for WORK INFORMATION 

B. Press <Return> for COMMISSION & SELF-EMPLOYMENT 

IF YOU HAVE APPLIED FOR EMPLOYMENT WITH THE U.S. TRAINING AND 
EMPLOYMENT SERVICE GIVE THE FOLLOWING: 

REGISTRATION NO. 
DATE OF REGISTRATION 
OFFICE ADDRESS 








CITY Sate es STR ee ee ODE 
"Press <Return> tot STATE REASON FOR NO wKORK*® a 


IF, SINCE FILING YOUR INITIAL CLAIM FOR COMPENSATION, YOU HAVE 
APPLIED FOR OR RECEIVED VA BENETITS BASE ON MILITARY SERVICE FOR 
SAE U.S., GIVE: 

LAIM NO. 
NATURE OF DISABILITY 
MONTHLY PAYMENT §$ 
NAME OFFICE WHERE CLAIM IS FILED 
ADDRESS 











CITY STATE ZIP CODE a 
IF, SINCE FILING YOUR INITIAL CLAIM FOR COMPRNSATION, YOU HAVE 


APPLIED FOR OR RECEIVED ANNUITY UNDER CIVIL SERVICE RETIREMENT 
ACT, GIVE: 

CLAIM NO. 

AMOUNT OF HONTHLY PAYMENT 9 

NAME OF OFFICE WHERE CLAIM IS FILED 
ADDRESS 
CITY STATE bie CODE 

DATE EWPLOVEE SIGNED (MO. ,DAY, YEAR). 
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CA-8 CON’' 





STATEMENT OF OFFICIAL SUPERIOR 


16. EMPLCYEE HAS RETURNED TO WORK, SHOW DATE 
17. EMP’S WORK WEEK ON RETURN TO DUTY 

18. HAS EMP RECEIVED ANY PAY FROM AGENCY? 
19. IF ANSWER TO #18 IS YES, SHOW: 

AMOUNT: §$ 

TYPE OF FAYMENT: nea ee es ee ee 
PERICD: FROM: ‘ ; TuRoUcH: 
PAYMENT RATE: 5 PAYMENT BASIS: s~—~—~Ss—CS 
*Press <Returcn> For EXPLAIN CHGS IN EMP HLTH* 
TITLE 

DATE (MO.,DAY, YEAR) ee es ie 


ree areata 





fw GS 


toe 


2, tee WORK INFGRMATION 
DATES & HOURS WORKED _ 
PAY RATE TOTAL AMOUNT EARNED 
TYPE WORK PERFORMED 
EMPLOYER NAME 
EMPLOYER STREET ADDRESS 
EMPLOYER CITY/STATE/ZIP CODE 

















COMMISSION AND SELF-EMPLOYMENT 





DATES & HOURS WORKED 
NAME OF BUSINESS 
STREET ADDRESS 7 
CITY ATE D 

TYPE TIVITY PERFORMED = 
INCOME DERIVED 














*Word Processing Window will appear. 
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M/C: O88 (4662) 





I, PRE-FORM COLE 


n filen, mptfile, filing s:’$d(nocamp) filen=’ptc(ifom,9) 
+6:Sd(noamp) filen=*ptg(903, iform,99) s New0, rptfileel,idexiste2 k ident. 
Ss Us"*" i 'Sd(DT) s XeSacd(SH),WIe"" d “WI s Dey k X,Y 
S:QXDA) $P(“ICC(DA, 221) ,U,2,3)="" d sec* fmt 
n filen, ptfile, filing s:’$d(nocatp) filen="ptc(iform, 99) 


II. WINDS 
DACA ELEMENT CATA NEE POINTER GLOBAL REFERENCE OR INEUT VERIFIGWION 
2NE POINIER 1004’ EMPLOY( 
M-SCRM FID # 62 


17 EXTERNAL DEFT: NYE 

18 INIFAL DEFALLT: NAMEPIR 

20 CONVERSION CCE: «8 amSs(cme"":"™, ’ (Sd “EMPLOY( cm, 0) )#10) som, 1: Sp “EMPLOY(cmn,0),"7°",1)) 
28 STORED: Sol“ I0C(EA, 0) ,"7",3) 

32 POST FILING COE: di setinck” fmf 


44 POST ID: i Sd(mew) s:’Sd(“IQC("C", pee) mege"Claim not logged”, y24, cine” 
54 INDEX: “rect "C") 
5S LOOKLP NTE: 

62° 40° Sek “TCC( Lids,0),"°",3) 

9° 23° SX “ICL Lids, 0),"°",2) 


137 CACP FILE NUMBER FREE TEXT K:QL(X)>13! (SLX) <1) X 


M/FCRM FID # 2 


28 STORED: $p(“10C(DA, 130),"*",6) 
44 POST ID: s Mean K:SL(X)>131(SL{X)<1) X $2’Sd(X) ane" s:ani*"" ame" 


7 STREET ADDRESS : FYEE TEXT R:SLAX)>641(SLAXI) X 

M/ECHM FID # 3 

28 STORED: $p(“IcC(DA,1),"7",1) 

44 FOST ID: 5 Meco K:SL(X)>641(SLAX)<1) X 8:°Sd(X) am”" s:cml"*" cone" 
8CtY FREE TEX =: SL{X)>231(SU(X)<1)!°(X?-AP) X 

M/FCRM FID 4 4 


2B SKRED: ST 10C(DA,1),"°",2) 
44 POST ID: s Yum K:SL(X)>231 (SEAX) <1) 1" (X2.AP) X 82°Sd(X) ame” g:anl"*" ane"* 
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9 SINIE POINIER 1003’ DIz(1003, 
M/FCRM FID #5 


20 COWERSICN CTE: $s amés(ame"":"", / (Sd( DIZ(1003,cm,0) #10) sam. 1 :Sp( “DIZ(1003,am,0),"7",1)) 
28 SIRED: = $p( “10C(mA,1),""",3) 


10.5 2IP COLE FREE ‘TEXT K:SL(X)>10! ($L(X)<5) X 
M, FURM FID # 6 


28 STORED: $p( “ICC(DK,1),""",6) 
44 FOBT ID: s Mec K:SL(X)>10!(SU(X)<5) X s:’Sd(X} am" gan "-" cm” 


9.5 OVERSEAS LJORESS : FREE TEXT K:SL(X)>64!(SL(X)<1) X 
M FORM FID # 7 


28 STORED: 9Sp( “IOC( OA, 1),""", 4) 
44 FOST ID: § Mmm K:SL(X)>641(SL(X)<1) X s:/$d(X} ae" s:anl"°" cre" 


3 SSN FREE TEXT K:SL(X)>9! ($L(X)<9) 1" O29N) X 
M FORM FID # 8 


28 STORED: Spx “ICC(0A,0),"7",4) 
44 POST ID: 5 Neem K:SL(X)>91($L(X)<9) !" (XPQN) X 8:/Sd(X) ame" gsan("°" cine” 


i DOUFY TLUNESS OAIE & TI OATE S Wle"EI" D “OT S Mey K:¥<l X I OLX) K:$P(X,".",1) 07 X 
M FORM FID #9 


20 COMVERSICN CCIE: 
S Xe"(" $:+Se(am,4,5) Yak _Sp{ “JAN. FEB. MPR.APR.MAY.JUN. JUL. AUG. Se? .CCT..NOV DE", ".", 
+Se(am,4,5))_" " s:+Se(an,6,7) YaX_Se(an6,7)_", * © HeXK_(1700+Se(cm,1,3)) 
8:Spiam,".",2)/="" Ye" at " Se(cn “000",9,10)_":" Se(am "000", 11,12) © XK)" 
8: "(1700)" %e"" § an 


28 STORED: 9p(“I0C(IA,0),"°",2) 
32 POST FILING COKE: di setirck” fmf 
54 INEX: “ICC("D") 
SS LOOKUP NIE: 
97 23° “TOC Lids,0),"°",2) 
627 40°Sp “IOC Lids 0) ,"*", 3) 


701 CATE WAGES LOST FROM ONE S Wme"E" D “WI S My KY X 


M/PORM FID & 37 


20 CONVERSION CCLE: 


8 Ye"(" s:4Se(cm, 4,5) Yak Spt "JAN. FEB.MAR-APR.PAY.JIN.JUL.AUG. SEP.CCT.NOV.DEC",".", 
s$e(cm, 4,5)" " s:4$e(cm6,7) Mek Se(cm,6,7) %, * $ %aK (1700+Se(an,1, 3) ) 
6:Spcmn,".",Z)"="™ Kak" at” Sean "000",9,10)"*:" Se(crm_000", 11,12)" Xax_")" 
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S:¥e"(1700)" X="" § omeX 


2B STORED: $p( “ICC(DA,700),"*",7) 
44 POST ID: Yeam k:X<Qp(ahi(9) ,db,2) X i ‘Sd(X) s am"" s:an{"*" am" 


701.5 DATES WAGES LOST THRU ONMTE S Wie"E" D “WT S MY KsY<l X 
M/FCEM FID # 38 


20 CONVERSICN COLE: 
Ss Xe"(" :4Se(am, 4,5) XaX Sp( “AN. FEB.MAR_APR.MAY. IN. JUL.AUG. SEP .OCT.NOV.DEC",".", 
+Se(cm,4,5))_" " s:4$e(cm,6,7) Yak Se(am,6,7) ", " s XeK_(1700+Se(am,1,3)) 
s:Spian,".",2)'="" Yak" at " Se(am “000” 19,10). "s :" Se(aa "000" 11,12) s %aK_")" 
s:Xe"(1700)" Xe" s amX 





28 STOFED: $pi* TCC(TA, 700),"°",9) 
44 POST D: : 
i ‘$d(chi(37)) s skip="D" 
: Yeom k :X<Spi chi (37) ,db,2) X i "Sd(X} 8 ane" s:an{"°" am" 


806 PAY RECVD DURING COP ST CF COLES Y: YESS 
N:NO 
M/FCRM FID # 36 


20 CONVERSICN COKE: = s com6p( $p(";¥: YES;N:NO;",";" am ":",2),"5",1) comOptam,":", 1) 
28 STORED: $p(“ICC(DA,704),"*",7) 


oSo STOCK LEAVE FROM ONE S Wle"E" D “WT S MY Kyl X 
MTOM FID # 63 


20 CONVERSICN COLE: 

& ¥e"(" $:4Se(an,4, 5) 4a Sp{ “JPN. FEB.MAR.APR MAY .JUN.JULAUG. SEP.CCT.NOV.DEC”, rae 
entry 5)) "" s: +Se(am.6, 1) YX Se(an,6,7)_", * s ¥K_(1700+Se(an,1,3)) 
s:Sp{an,".",2) "=" weak" at * ' Se(ca_"000", 9 10) brie _Se(an 4 "000",11,12) s eK _")* 

$:¥e"( 1700)" te" 5 cx 


3B STCKED: So( “TOC DA, 250) ,""", 3) 
29 PREFIELD CODE: 3 S:/S(chi(36)) skip="D* 1 ’Sd(skip) sschi(36)’("Y" chipe’"D” 


282.5 SICK LEAVE ‘THRU LACE S Wi"2" D “WT S WY K:Y<1 X 
M/FCEM FID # 64 


20 CONWERSICN COE: 
8 Xe"(" §:4Se(cm, 4,5) 4eX_Sp( "JAN. PEB.MAR.APR.MAY. JUN. JULAUG. SEP.OCT.NOV.DEC", a 
+Se(am,4,5)) "" 8: +Se(cm,6, 7) WX Se(cm,6,7)_", * s HK (1700+Se(can,1,3)) 
s:So(an,".",2)’="" ea” at * ' Se(aa_ "007", 9,10) | mee ' Se(aa! "000",11,12) s 4X cy” 
§:%="(1700)" %="" 5 aneX 


28 SHRED: Sot “10c(DA,250),°"", 4) 
29 PREFTELD COLE: 


A=175 








S:"SO(cbi(36)) skip="D” i ‘Sdiskip) s:obi(36)’("Y" skip-'D" 
s:’Sd(chi(63)) skip="D" 


253 ANNUAL LEAVE FROM DATE S Wre"E" D “WT S Me K:Y<1 X 
M/FCRM FID # 65 


20 COWERSICN COLE: 
S %"(" 5:4+Se(an,4,5) XaX | Sp( "GAN. FEB. MAR.APR.MAY.JUN. JUL AUG. SEP.CCT.NOV..DEC"," : 
+Se(an,4,5)) " " s:4Se(am,6, 7) aK Se(an,6,7)_", " & XX (1700+$e(cm,1,3)) 
s:Sxan,".",2)/="" Yak " at " Se(an_"000",9, 10) ":" Se(am_"000", 11,12) $ YaK_")" 
$:%e"(1700)" Xe" s amex 


28 STORED: $p “ICC(04,250),"°",5) 
29 PREFTELD COKE: s:'Sdichi(36)) skipe"D" i 'Sd(skip) ssobi(36)'("Y" skip="D" 


253.5 ANNUAL LEAVE THRU DATE S @DIe"E" D “WY S XeY K:¥d1 X 
EUFCRM FID # 66 


20 COWERSION CCE: 
5 Xe"(" §:4Se(am,4,5) Xe Spo( "JBN. FEB. MAR.APR.MAY. J N.JULAUG. SEP.OCT.NOV.DEC",".", 
+Se(am,4,5))_" " s:+Se(am,6,7) MX Secan,6,7)_", "8 ¥eK_(1700+$e(cm,1,3)) 
5:S0(an, " "yo)e"" Xa" at" ' Se(an 1 "000",9,10). "3" Se(an b "000", 11,12) 6 xK_")" 
8:Xe"(1700)" Ye" s cn 


28 STORED: $p( “ICC(0A,250),"°".6) 
Pas) aches CLE: 


S:‘SD( coi (36)) skip="D" i ’Sd(skip) s:obi(36)’("¥" skip="D” 
$:'$d(doi(65)) skip="D" 


251 OTHER LEAVE FROM DATE S We"E" D “SOT S Xe K:¥<1 X 


M/FCRM FID # 67 


2) CONVERSICN CLE: 
6 Xe" §:4Se(am,4,5) XeX_Sp( “JAN. FEB.MARAPR. MAY. JUN. JUL.AUG. SEP.OCT.NOV.DEC",".", 
+$e(am,4,5)) "" s: +e(an,6, 7) Yok Se(cn,6,7)_", " © AK (1700+Se(am,1,3)) 
$:9X(an,".",2)/="" YK" at " " Sec "000", 9,10) "2" Se(cm_"000", 11,12) 8 %K_")" 
8:Xee"(1700)" Xe"" 5 cameX 


28 STORED: $p( “10C(DA, 250),"*",7) 
29 PREFTELL COE: = s:/Sd(cbi(36)) skipe"D” i *Sd(ekip) s:cbi(36)'("Y" skipe"D" 


251.5 OTHER LEAVE THU ONIE S Wls"—" D “Wr S Mey K: Yc X 
M/FCRM FID # 68 


20 CONERSICN COLE: 
& Xe"(" s:+Se(cm,4,5) XaK Sp( “JAN. FEB.MAR.APR. MAY. JUN, JUL .AUG. SEP. OCT.NOV.DE™,"." 
+Se(an,4,5))_" " s:+Se(am,6,7) XK Se(am,6,7)_", " $ Yak (1700+Se(am, 1,3)) 
s:%xan,".",2)'="" Xak_" at " Se(cam_"000",9,10)_":" Se(am_"000",11,12) s Xe)" 
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$:%="(1700)" %="" 5 amx 


28 STORED: $p( “I0C(DA,250),"*",8) 
29 PREFIELD COLE: S:'SD(cbi(67)) skip="D" 


251.6 OTHER LEAVE SPECIFY FREE TEXT K:SL(X)>30! (SL(X}<1) X 
M/FCRM FID # 69 


28 STORED: $p( “I0C(mA, 250) ,"*",9) 
29 PREFIELD COKE: S:/S0(chi(67)) skip="D" 
44 POST ID: 5 Xeam K:$L(X)>30!(SL(X)<1) X s:/Sd(X) ane" s:an{"*" an" 


801 REPURCHASE LEAVE SAT CF COEES) = Y: YES 
N:ND 


M/FCEM FID # 10 


20 CONVERSICN COKE: 5 cateSp( So(";¥: YES ;NsNO;",";"am_":",2),";",1) ,cmGp(am,":",1) 
28 STORED: 9 $p( “ICC (mA, 704),""",1) 


2217 WORK INFO DURING COPCOM 
M/PCEM FID # 


28 SICFED: motere 
29 PREFIFID CCIE: 
8:’Sd(1vl) lvleO i Sd(ctt(0))>9 s shhfile=l d fileone’ptrfilel k shhfile 
£ Sd( file), file,New's) s filingeSe( '$d( filing) :lvi+l,lvl’<filing:ivl+1,1: filing) 
4d upontr® finfin s New), cbi(0)e"" k file 
8 lvlelvl+1 
i lvl s CA(O}efA, DOTA f imlvl:—1:1 s:Sd(DA(i-1)) OACi)=OALi~]) 


3) PCSIFIELD Cre: 
i lvl 5 CA(O)@OR £ iedsl:ivl s:$d(DA(i)) DACi-L)e@Asi) 
s:lvl OPeDA(C) k CA(lv1),DA(0),O1 s lvielvl-1 


16 CALLS M/PORM: WORK INFCEMATION (#655) 


M/FCRM: WORK INBCRMATICN (#655) 


RSE CARTELS RE TSE NI LT SSE ATE STE TE INSU IMIS LETE  TIE AI ES EE NEL EEE SPILL IE SETI A AGT Y 7 BITS INES AINE A SEG ESOS TE NATE RES 


I. PRE-PORM COLE 


Nn filen, pptfile,New s:’Sd(noomp) filen=*pte( i fom, 99) 
+6:$d(nocomp) filene=*ptg( 903, iform,99) s New), rptfile=l 
S Un""" i 'Sd(DI) s XeGad(SH) ,WTe"" d “WT s DIkY k X,Y 

d sec fntma 


TI. WAOOS 
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CATIA ELEMENT DADA TYE POINTER GLOPAL REFERENCE OR INEUT VERIFICATION 
.O1 DATES & HOURS WORKED FREE TEXT 0K: X{ "1 (SA(X)aMS) KX I SO(X) KeSL(X)>30! (SL(X)<L) X 
M/FORM FID # 1 
28 STORED: $p( “ICC(DA(1),212,08,0),"7",1) 
setindk” fménm 


32 POST FILING COLE: 
44 POST ID: s Mecm K:SL(X)>301(SL(X)<1) X 8:/Sd(X) am" s:an("°" am" 


54 INEX: “IOC(DA(1),212,"8") 
55 LOOP NIE: 1°30°Sp( *IOC(DA(1),212,1ids,0),""",1) 
1 PAY RAIE FREE TEXT K:SL(X)>30! (SL(X)0 ) X 
M/FCEM FID # 2 


28 STCFED: $p{ “IOC(MA(1),212,08,0),""",2) 
44 FOST ID: 5 Xm a K:SL(X)>30!(SL(X)<1) X $:’$d(X) am" s:an{"°" anm"" 


2 TOTAL AMOUNT EARNED NUMERIC FORMAT S:X1°S" NeGP(X,"$",2) K:4X’ G(X’ 2.NL"."2N) 1 (299999) 1(X<0) X 
M/FORM FID # 3 
28 STORED: $p(“I0C(DA(1},212,Da,0),"°",3) 

3 TYPE WORK PERPCRMED FREE TEXT R:SL(X)>201 (SL(X)<1) X 


M/FCRM FID # 4 


28 STORED: = $p(“IOC(DA(1) ,212,08,0),"7", 4) 
44 PCET ID: § Nec K:SL(X)>20! (SL(X)<1) X s:’Sa(X) ane™ s:an{""" ane”” 


4 EMPLOYER NAME FREE TEXT K:$L(X)>30!(MAX)<1) X 
M/FCRM FID #5 


28 STORED: $p( “TCC(DA(1),212,00,0),"°",5) 
44 POST ID: § Yom RrTAX)>HU(SLAXI<L) XK 82/Sd(X) am s:on("*" one” 


5 EMPLOYER STREET ACDRESS FREE TEXT K:SL{X)>30!(SUAX)<1) X 
M/ACEM FID # 6 


28 STORED: $p( “ICC(CA(1),212,0A,0),"°",6) 
44 POST 1D: s Meom K:SL(X)>301(SL(X)<1) X 83°$d(X) ame” ssa "*" am" 


§ EMPLOYER CITY/SIMIE/ZIP FREE TEXT K:SL(X)>30!(QUA1X)<L) X 
M/FCRM FID #7 


3B STCRED: $0 “TOC(DA(1),212,0A,0),"°",7) 
44 KSAT ID: s Meom K:5U(X)>30!(SL(X)<1) X ss/Sa(X) cone” sso" ae" 
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III. FOST-FORM COLE 


i $d( file), file s filings§s( '$d( filing) :lvl,lvbfiling:1v1,1:filing) 
+0 node0*finfon 


SEA AER ASTRA IEEE TN PETS, SI RE II IE DEE LIE OT II OP LEN INI IIE III NSIOE ELI EIEN NEI LTE TCISD ITE OTE BIEN NSS NER SIGE RTH eR 


806 COMMISSION & SELF-EMP 
MFCM FID 4 12 


28 STORED: rowere 
29 PREFIELD CCIE: 
s:'Sd(lvl) lvl=0 i Sd(chi(0))>9 5 sthfilesl d filecre*ptrfilel k shhfile 


i $d( file), file,New'=Q s filirspSs(’$d( filing) :lvl+L,lvl’<filing:lvl1+i,1: sai 
+d upcntr“ fmf s News, chi (0)="" k file 
6 lvlelyl+1 


i lvl s CA(0)—0A,D0e0R f islvl:-1:1 s:Sd(cAV( i-1)) DA(i )eCA( i~1) 
30 OSIFIELD CCIE: 

i lvl s CA(O)=R f imlslsivl s:Sd(DA(i)) CACi-1)=DA(i) 

S:lvl DPeOA(0) k DA(1v1),DA(O),DL s lvlelyl-1 


16 CALLS M/FORM: COMMISION & SELF-EMPLOYMENT (#665) 


M/FORM: COMMISICN & SELP-EMPLOYWENT (4665) 
1. PRE-PORM COLE 
n filen, rptfile,New s:’Sd(nooamp) filers "ptc( i form, 99) 
+6:5d(nocamp) filene“ptg(903,ifoon,99) s New0, rptfile=L 
S Un" i ‘Sd(DT) s MeSarc( SH), We" d “WT s Diwy k X,Y 
d sec” finfrm 


II. WINDS 
: 
CATA ELEMENT OR TE POINTER GLOBAL REFERENCE OR INPUT VERIFICATION 
-Ol DOMIES & HOLES WORKED FREE ‘TEXT K:$L(X)>201 (SE(X)<1) X 
MPO FID # 1 
28 STORED: Sp(“I0C(DA(1) ,812,0A,0),""",1) 


32 POST FILING COLE: di setirck’finfm 
44 FOST ID: 5 Yeom K:SU(X)>201(SLAX)<1) X s:’Sd(X) ame™ ssanf"*" on 
54 INEX: “ICC(DOA(1),312,"5") 

$5 LOCFUP NCE: 1°20Sp( “10c( nA 1) 812, Lids,0),"*",1) 


1 NAME OF BUSINESS FREE TEXT K:SL{X)>301 (LAX)<L) X 


Aw179 








M-FCEM FID # 6 


28 STORED: $p(“I0C(TA(1) ,812,08,0),""",2) 
44 POST ID: 5 Xear K:SL(X)>301(SL(X)<L) X 6:’Sd(X) ae" s:an{""" cme"" 


1.1 STREET ADDRESS FREE TEXT K:$L(X)>45! ($L(X)<1) X 
M/FORM FID #7 


28 STORED: $p(“ICC(DA(1),812,08,0),""",6) 
44 POST ID: s eam K:SL(X)>45!(SL(X)<1) X s:/Sd(X) ane" s:an{"°" ane" 


1.2 CITy FREE TEXT K:SL(X)>23!(SL(X)<1) X 
M/FORM FID # 8 


28 STORED: $p( “ICC(DA(1),812,D4,0),"°",7) 
44 FOST ID: 8 Nec K:SL(X)>231(SL(X)<1) X 8:’Sd(X) ame" s:an("°" ce" 


1.3 SINE FOINIER 1003’ 12(1003, 
M/FCEM FID # 13 


20 CONVERSION CEE: $ amSe(ame":"", *(Sd( “DIZ (1003,cmm, 0) #10) sem, 1:$p( “DIZ(1003,am,0),"°",1)) 
28 STORED: $p(“I0C(DA(1),812,08,9),""",8) 


1.4 2 OTE FREE TEXT K:SL(X)>10! ($L(X)<S) X 
M/FCEM FID # 10 


28 STORED: $p( “I0C(DA(1) ,812,08,0),""",9) 
44 OST ID: s§ Nec K:SL(X)>101(SL(X)<5) X 8°"Sd(X) cae” gral °°" core” 


3 TYPE CF ACTIVITY PERFCAM FREE TEXT K:SL(X)>20!(SL(X)<1) X 
M/FORM FID #¢ 11 


28 STORED: $p( “I0C(DA(1) ,612,08,0),""", 4) 
44 FOST ID: s mcm K:SL(X)>201(SLX)<1) X 2/Sd(X) cae" scm """ ne" 


4 INCOME CERIVED FEE TEXT K:SL(X)>30! (SL(X)<1) X 
M/FCEM FID # 5 


28 STORED: $p(“ICC(DA(1),812,08,0),"°",5) 
44 BOST ID: = eam K:SL(X)>30!1(SL(X)<1) X s2/Sd(X) aa” s:anf*°" an" 





ITI. FOST-FORM COLE 


i Sd(file),file s filings6e( ‘$d filing) :lvl,lvbfiliny:lvl,1: filing) 
+d noeO* fmémn 


snemsnnetmietenineemnno nent a a a A OTIC OEE ET ETT A ETI TIAL TT TET 
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BEG 8 ap a TR ee a Al ENS ee gy ee 
DAGA ELEMENT OMIA TYE FOINIER GLOBAL REFEFENCE OR INEUT VERIFICATION 
G11 ‘TRAINING REGISTRATION NJ 0 FEE TEXT K:SL(X)>30! (SL(X)<1) X 

M/FORM FID # 39 


28 STORED: $p(“I0c(D8,804),"°",1) te 
44 FROST ID: s Nem K:SL(X)>30!(SL(X)<L) X s2’Sd(X) ane" s:an{"*" ane" 


@11.5 TRAINING ONTF OF REGISIR «= CIE: S Wle"E* D “ROP S XeY K:¥<l X 
. M/FCEM FID # 40 
20 COWERSICN CLE: 

8 Xe"(" 8:4Se(am,4,5) MeK Sp( "AN. FEB.MAR.APR. MAY. JUN. JUL.AUG. SEP.OCT.NOV.DEC","".", 
salad, 5)) " "ss +$e(an,6, 7) YK Se(am,6,7) ", " 8 Yak (1700+Se(an,1,3)) 
s:$p(an,".",2)/="" XaX " at " Se(am "000",9, 10) "3" Se(an "000",11,12) 5 XmK_")" 

$2X="(1700)" Ye" ss om 

22 STORED: 9$p( “T0C(DA,804),"°",6) 
611.1 ‘TRAINING SIREET ACORESS FREE TEXT K:SL(X)>54! (SL{X)<1) X 
M/PCRM FID # 42 


28 STORED: Sp “ICC(DA,804),"*",2) 
44 FOST ID: s Xorcom K:SL(X)>541(SL{X)<L) X 62Sd(X) ame™ s:an"*" ane" 


811.2 TRAINING CITy FREE TEXT K:SL(X)>20! (SL{X)<1) X 
M/FORM FID # 42 


28 STCRED: $p( “10C(DA,804),“*",3) 
44 FOST ID: = 8 Mec K:SL{X)>201(SL(X)<1) X 82/Sa(X) ame" s:onl*"" com" 


811.3 TRAINING SINTE FOINIER 1003’ Z(1003, 
M/TCEM FID # 


20 CONVERSICN COKE: 5 cmGe(ame"":"*, *(Sd( “DZ (1003, can, 0) )#10) sais $o( T1rz(1003,cmn,0),"°",1)) 
28 STORED: $p(“10C(DA,804),""",,4) 


€l1.4 TRAINDG ZIP OE FREE TEXT «=i SL(X)>10!($L(X)<5) X 
MTORM FID # 44 


28 STORED: $p(*10c/nA,804),"*",5) 
44 OST ID: s Meam K:S1(X)>1G1(SL{X)<$) X 8:'$d(X) am s:om{"*" ane" 


802 SIRIE REASCN FOR NOT WOR 
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M/FORM FID # 16 


28 STORED: nobere 
29 PREFTIELD CITE: 
$:'Sd(lvl) lvl=Q i Sd(cbi(0))>9 s shhfile=l d fileone’ptrfilel k sthfile 
i $d(file), file,New’=0 s filingsSs( ‘Sd( filing) :lvl+1,lvl’ <filing:lvl+1,1: filing) 
+d upmtr*fmfon s News0,cbi(0)="" k file 
s lvl=lvl+1 
i lvl s DA(O)eOR,D080R f imlvl:-1:1 s:Sd(DA(i-1)) OX i OA i~1) 


30 POSTFIFLD CIE: 
i lvl s DA(0)eOA f iml:l:lvl s:$d(DA(i)) DACi-1)<OX(i) 
s:lv] DPeQA(0) k DA(1vl),OA(0),O1 s lvl=lvl-1 


16 CALLS M/FORM: STATE REASON FOR ND WORK (#666) 


M/FORM: STRIE REASON FOR ND WORK (#666) 
anaes EA IT A IU a ES I A TIS OER PEA TE SE TE BITES CEI CSE ELE TOTTI TEAL ECE IED IIIT ILE SLIDE EEE ADEE. SE NEED NA EAD ELLY 

1. PRE-?CEM COE 

n filen, rotfile,New s:’$d(nocomp) filen=“ptc{ ifoa,99) 

+8:$d(momp) filen="ptg(903,iform,99) s New, rptfile=l 

& Un"*" i ‘Sd(DT) 5 Yet ad(SH),We"” d “Wr s Dey k X,Y 

f a sec" fiméoa 

d crindk” fmf 


TI. WINKS 


nnn SE FERN RRO RK COCO. 
OATA ELEMENT OXIA TYP FOINIER GLOBAL FeFERENCE OR INFUT VERIFICATION 
.O1 STATE REASON PCR NOT KR WORD PROCESSING 
M/FCHM FID # 1 
28 STORED: 9p( “10C(DA(1),801,08,0),"",1) 


Se aeneeemeeeel 








TIT. FOST-ORM COLE 
i Sd(file), file s filingsSe( 'Sd( filing) :1vl,lvbfiling:1v1,1:filing) 
+d shuffle’ finfom d nodke0* finfrm 








TO VA CLAIM NUMBER FREE TEXT K:SL(X)>151(SL(X)<1) X 
M/FCRM FID # 45 
28 STORED: $p(“I0C(DA,701),"°",1) 
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, 44 POST ID: 5 Mec K:$L(X)>15!($L(X)<1) X $:’Sd(X) ame" ssam*" ame 
710.6 VA NATURE OF DLSABILITY FREE TEXT K:$L(X)>57! (S1{X)<1) X 
_ M/AFCEM FID # % 


2B SICFED: $p( “I0C(DA,701),"*",7) 
44 FOST ID: 5 Xecm K:SL(X)>571(SL{X)<1) X s:/$d(X) ame" s:on"*" ane” 


710.7 WA AMCLNT CF FAYMENT NUMERIC FORMAT S:X["S" HeGP(X,"S",2) Ke+X’ XG (X! 2NL". "2N)1(3099999,99) 1(X<0) X 
M/FCRM FID # 47 
28 STCFED: 9X “IOC(DA,701),"*",8) 

710.1 VA CEFICE WHERE CLAIM FI FREE TEXT R:$L(X)>30! (SL(X)<1) X 
M/FORM FID # 48 


28 STORED: $p( “ICC(DA,701),"7",2) 
44 FOST ID: 8 Yeo K:SL(X)>301(S2(X)<1) X 2°Sd(X) am” sre" cet 


710.2 VA SIREET ADDRESS FREE ‘TEXT K:SL(X)>541(SL(X)<1) X 
M/AACRM FID # 49 


28 STORED: $p(“10C(OK,701),"7",3) . 
44 POST ID: $s Mma K:5L(X)954!(SLIX)<L) X s:'Sd(X) ane s:an{"*" cel" 


710.3 VA CITY . FREE TEXT K:$L(X)>201(SL(X)<1) X 
MACH FID # 50 


28 STORED: Set “TOC(OA, 701) ,*°", 4) 
44 POST ID: ss Yom K:SL(X)>201(SLAX)<L) X s2/Sd(X) come s:an{"*" ane 


710.4 VA SIME | POINTER 1003’ 017(1003, 
NAOH FID # Si 


20 COWERSICN CE: 5 CamGe (cane 2,” (Sd “D2 (1003, cm, 0) #10) sem, 1:$p( “DTZ (1003,cm,0),""",1)) 
28 SICRED: Spt “I0C(DA, 701),""",5) 


710.5 VA ZIP OLE FREE ‘TEXT R:SL(X)>101(SL{X)<5) X 
M/PORM FID # 52 


28 SICFED: $p(“I0C(DA, 701), "**,6) 7 . 
44 FOST ID: 5 Neom K:SL(X)>101(SL(X)<5) X $:°Sd(X) cme" sroml""" ce 








DAMA ELEMENT . DATA TYE FOINIER GLOBAL REFERENCE OR INPUT VERIFICATION 
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714 OTHER ANNUITISS CLAIM NU FREE TEXT K:$L(X) 215! (SL(X)<1) X 
M/FORM FID # 53 


28 STORED: $p{ “Ic (DA, 707),"7",1) 
44 POST ID: s Yea K:SL{X)>151(SL(X)<1) X S:’Sd(X) ame" s:anl"7" one" 


714.2 OTHER ANNUITY AMOLNT NUMERIC FORMAT S:X["S" P(X, "S",2) K:4X(X’ ?2.NL”."2N) 1 (09999999 .99) 11X<0) X 
M/FORM FID ¢ 54 
28 STORED: $p( “I0C(0A, 707),""", 3) 

714.3 OTHER ANNUITY CFFICE PREE TEXT X:SL{X)>301(SL(X)<1) X 
My CHM FID # 55 


28 STORED: =Sp( “ICC(DA,707),""", 4) 
44 POST ID: 8s Ywom K:SL(X)>20!1(SL(X)<L) X s2’Sd(X) cme”” g:amf"°" ane” 


714.4 OTHER ANNUITY STREET ACD FREE TEXT K:SL(X)>54! (SL(X)<1) X 
M/ECEM FID # 56 


28 STORED: $p(“I0C(DA,707),"°",5) 
44 POST ID: s Yeom K:SL(X)>S4!(SL(X)<1) X s:’Sd(X) ane"™ s:oni °°" cane” 


(14.5 OTHER ANNUITY CITY FREE TEXT K:$L(X)>201(SL(X)<1) X 
M/PCEM FID # S7 


28 SICFED: $p( “10c(0n, 707) ,"*", 6) 
44 FOST ID: 8 Neem K:$L(X)>201(SL{X)<1) X s:’Sd(X) ca” s:an{**" an" 


714.6 OTHER ANNUITY SINIE POUINIER 1003’ 012(1003, 
M/FCEM FID # 58 


20 CCNVERSICN COKE: $s 8 ameGe(am”":"", ’ (Sd( “DZ ( 1003, cen, 0) #10) am, 1 Spf “DTZ 1003,cm,0),“*",1)) 
23 STCRED: Sof “ICC(CA, 707) ,"°", 7) 


714.7 OIKER ANNUITY ZIP COLE FREE TEXT K:SL(X)>103 ($L{X)<5) X 
DYPCEM FID ¢ 599 


28 StoReD: $p( “10C(En, 707),""",8) 
44 POST ID: s Nec K:SL(X)>101($2(X)<5) X s3/Sd(X) cm”™* s:anl"** ane” 


322 ONTE EMP/CLAIMANT SIGED  =s CIE. S Wlk"E" D “WT S Me KY X 
M/FORM FID # 24 
2 


Oye: 
S Xe"(" $:4Se(an, 4,5) YeK_Sp( “JAN. FEB. MAR.APR.MAY IN. JULALG. SEP .CCT.NOV.DEC™,".", 
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+Se(am,4,5)) "" 8: r4$e(amy6,7) YeX Se(cmy6,7) ", " 8 %eX_(1700+$e(an,1,3)) 


s:Sp(am,".",2)"="" Yak." at" Se(cm "000",9,10).":" Se(am "000",11,12) 5 Ye _")" 
$: "(1700)" %"" s anmX 


28 SICFED: =$p( “I0C“DA, 303),"°",7) 


fo ee ae ag ee ee WEN EIR Se ee ee eee 


CATA ELEMENr OTA TYPE FOINIER GLOBAL REFERENCE OR INPUT VERIFICATICN 
23] B/T RETURNED TO WORK DATE S WM"EI" D “MT S Me K: cl X 
M/FCEM FID # 25 


20 COWERSION COE: 
& Xe"(" 5:45e(am,4,5) HX C Sp( "JAN. FEB.MAR.APR.MAY. JUN, JUL.AUG. SEP. OCT. .NOV.DEC™, " 
+Se(an,4,5)) " "3: +Se(an,6, 7) YX Se(an,6,7) ", " § YeK (1700+Se(am,1,3)) 
B:$p(am,".",2)'="" Yak" at" Se(cn_“000",9, 10) "3" Se(cm "000",11,12) 5 %aK_")" 
$:¥e"(1700)" Xe" 5 cnc 

28 STORED: $p(“ICC(DA,221),""",3) 

324 NEW WORK WEEK PYEE TEXT K:$L(X)>30! ($L(X)<3) X 
MCE FID # 26 


28 STORED: $p( “IcC(DA, 303),""",8) 
44 OST IM: ss Neon K:SL(X)>30! (SL{X)<3) X g:Sd(X) ame" sronf"*" ane" 


812 EMP RECETVED MONIES FREM Ser ar ares sy: veS 
N:ND 


M/FCRM FID # 27 


20 CONVERSION COTE: = 8 umm$p(9p(";¥: YES;N:ND;",";" cn ":",2),"3",1),amGplam,":"1) - 
28 STCRED: $p( “ICC(cA, 704) ,""", 8) e 


257.2 MISC FAY RECVD GOSS NUMERIC CROAT S:X{"S" GP(X,"S",2) K24X! kb (X"2.NL"."2N) £(30999999.99) 1(K<0) X 
MVFCEM FID # 71 
28 STORED: 9p( “10C(DA,252),""",3) 
29 PREFIELD COKE: S:/SD(cbi(27)) skips" i "Sd(akip) s:cbi(27)'(°Y" skips"D” 
257.5 MISC SPECIFY FREE TEXT K:SL(X)>30!(SLAX)<1) X 
M/PCEM FID # 75 


28 STORED: $p( “10C(DA, 262),"°",6) 
29 PREFIELD COLE: §s:/$d(chi(27)) skip="D" {£ ’Sd(skip) sschi(Z7)’("Y* skip="D" 
44 FOST ID: s Neem K:SL(X)>301(SLAX)<1) X s:’Sd(X) cae" s:anl"*" ane 


-257 MISC ERY PECVD FROM ae S WE" D “WT S He KCl X 
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M/FCRM FID # 70 


20 CONVERSION COLE: 
S Yeo"(" 5:4Se(cm,4,5) XaK C S$p( "JAN, PEB MAR.APRMAY.JUN.JUL AUG. SEP OCT. .NOV.CEC",".", 
#Se(am,4,5)) * " s:4Se(an,6, 7) Yak Se(an,6,7) ", * § Yak (1700+6e(cm,1,3)) 
3:9pam,".",2)'=" HK ” at" Se(cm."000",9,10).":" Setar "GOO", 11,12) 8 Hak ")" 
$:¥e"(1700)" Ye" § cateX 


28 STORED: = 9p(“100(0A,252),"7",1) 
29 PREFIELD COE: S:/SXXchi(Z7)) skip*"D" i '$d(skip) ssobi(27)"["°Y" skint? 


257.1 MISC PAY RECVD THU CATE 5S Wle"E" D “WT S MY Ks X 


257.3 MISC RXIE 


M/PCRM FID # 73 


20 COMERSICN COLE: 


S %e"(" §:+Se(cm, 4,5) XeX_$p( "JAN. FEB. MAR-APR. MAY. JUN. JUL.AUG. SPP. OCT.NOV.0EC",".", 
eaten, 5))_" " s:+Se(am,6,7) Yeh Se(an,6,7) ", " 8 ¥eK (1700+Se(cm,1,3)) 
8:Sp(an,".",2)“="" ek " at " Se(an "000",9, 10)": * Se(cza_"000",11,12) $ %=K_")" 
s:Xe"(1700)" Xe" § cK 


28 STORED: Spi “ICC{DA, 262) ,"*",,2) 
29 PREFIFLD COLE: S:'SO(chii(27)) skip="D" i "Sd skip) s:cbl(27)°("Y" skip="D” 


NUMERIC FORMAT S:X{"S" XaGP(X,"S",2) Kr4Xe(X" NL. °2N) 1 (20999999.99) 1(X<0) X 
TYVFORM FID # 72 


28 STORED: = $p( “ICC(DA, 282) ,"7", 4) 


29 PREFISLD CODE: § S:/SX chi (27)) skipe"D” 1 ’Sd(skip) ssotal(27)’("Y" skip” 


257.4 MISC RATE BASIS SET OF CEES) ss HW: HOLLY 


W. WEEKLY 

M: MONTHLY 
B:BI-WEEXLY 
ASANNLPLLY 
D:DAILY 


M/PCRM FID # 74 


20 sepobielirny COE: § Greet Sp( "7H: HOURLY -W: WEERLY :M: MONTHLY 8: BI-WEEKLY :A ANNUALLY ; 
D:DAILY;",";"_ am ":",2),";%,1) compte, "2", 1) 
2B STORED: Sol “TOL(CA, 252),""",5) 


29 PREFTELD COLE: S:’/SD(chi(27)) skipe"D” ° *Sdiskip) s:cbi(27)’("Y" skipe"D* 


816 EXPLAIN CHGS IN EMP HLH 


M/FOM FID # 30 


28 STORED: rovdere 
2o PREFITID COLE: 
s:/Sd(lvl) lvle i Sd{chi(0))>9 s sthfileel d fileowe’ptrfitel k shhfile 


i Sd( Side), file,New =<) s filinpée( ’Sd( filing) :lvl+l,lvi’ <filing: lvl+l,1:filing) 
+d upantr’fimém s New, chi(O}e"" k file 
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8 lvl=lvl+] 
i lvl s DA(O)=OA,D080R f ielvl:—1:1 s:Sd(DA(i-1)) DACi DAC i-1) 


30 FOSIFIELD CIE: 
i ivl s CA(G)OR £ ielsl:lvl s:Sd(OK(i)) DACi-1L)@QACi) 
stlvl DAeOQA(0) k DA(1v1),DA(O),O1 s lvlelvl-1 


16 CALLS M/PORM: EXPLAIN O45 IN EMP HLTH (#670) 


M/C": EXPLAIN CHGS IN EMP HLTH (#670) 





I. PRE-ACM COLE 
n file, ptfile New s:’Sd(noomp) filer “ptc( i form, 99) 
+6:5d(necamp) filen=ptg( 903, iform,99) s News), mptfilee! 
& Us"*" i *Sd(DT) s XeGard( SH), WOT"" d “WT s Diy k X,Y 
d sec” frfon 
d crindx* finfrm 


TI. WINOOS 


DACA ELEMENT OXIA TYPE FODTIER GLOBAL REF RENCE CR IMEUT VERIFICATION 
.OL EXPLAIN GHGS IN EMP HUT «= WORD PROCESSING 

M/FCEM FID #1 

28 STORED: $p( “T0C(DA(1),805,08,0),"",1) 





IIT. FOST-8cA4 COE 
i Sd file), file s EilingsGe( ’$d( filing) :lv1, lvbfilig:lvl,1:£iling) 


+d ctuffle*fmém d nodeO* fnfon 
ED AR ASL PAAR EET IE CET EE SPITE IE SS LD ILE LENO TES ST ENE TE PRT ITE TEE LESTE AIO LAR: WOES LEE AAG I OE 8 SS NeW Sch SSS IEEE SI I INES ENTIRE 


402.1 SUPERVISOR'S TTILE FPEE TEXT K:5L(X)> 30! (SUX)<1) X 
MFCM FID # 60 


28 STOFED: = $p( “TOr (Oa, 402),"°",2) 
44 POST ID: 8 Meee K:S{X)>201 (SAX) CL) X 8:/$d(X) ame" g:an"°" ae” 


402.4 OXTE SUPERVISOR SIGNED OME S Wm"E* D “MOT S WY K:¥41 X 
M/FORM FID # 61 
20 COMERSICN COE: 


A~-187 





& Ye"(" g:4Se(ca, 4,5) ¥eK Sp( "JAN. FEB.MAR.APR.MAY.JUN. JUL.AUG. SEP.OCT.NOV.0EK",".", 
+Se(am,4,5)) " " s:+Se(cn,6,7) XX Se(cm,6,7) ", “ 8 HK (1700:Se(am, 1, 3)) 
&:9pam,".",Z)"="" Nek" at” Se(ch "000",9,10).*:" Se(cra "000",11,12) s Hak ")" 
$:X="(1700)" Xe"" s omeK 


28 STORED: $p( “10c(DA, 402),"°",5) 


TIT. FOST-4ORM CIE 


i Sd( file), file,New eC §:’/Sd(lvl) lvl=O 
+6 filingeGe( ’Sd(Ciling):ivl,lvbfiling:ivl,1: filing) 
+d upontr ” fino 
i fileel! (Sd( ERFLAG)) d CAB*TSCEYNF, “TSCFILE 
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Sl dm w ht 
. e @ 8 


n 


od 


nN 
= 


CA-16 AUTHORIZATION FOR EXAM AND/OR TREATMENT 
PART A-—~AUTHORIZATION 
MEDICAL CARE FACILITY 

















*Press navies for NATURE OF INJURY/TLINESS* 
AUTHORIZATION OF MEDICAL CARE 
A. FEES FOR SERVICES NEED PRIOR APPROVAL 
B. TREATMENT/EXAM FOR CAUSE 
IF A DISEASE OR ILLNESS IS INVOLVED, 
AUTHORIZING OFFICIAL NAME 
AUTHORIZING OFFICIAL TITLE 
SIGNATURE OF AUTHORIZING OF FICIAL 
TITLE CF AUTHORIZING OFFICIAL 








. LOCAL AGENCY TELEPHONE NUMBER om oY » ne 
2. REPORTING OFFICE 














PART B—-ATTENDING PHYSICIAN’S REPORT 


. *Press <®eturn> for HISTORY GIVEN BY EMPLOYEE* 
. EVIDERICS OF PRE-EXISTING CONDITION? 


IF YES, *Press <Return> for DESCRIBE CONDITION® 


. WHAT ARE YOUR FINDINGS? 


*Press <Return> for DESCRIBE CLINICAL FINDING* 


. WHat IS YOUR DLAGNOSIS? 


*Frass <Revurn> for DIAGNOSIS OF CONDITION* 


. WAS IT CAUSED/ACGRAVATED BY EMPLOYMENT? 





EXPLAIN ANSWER IF THERE’S DOUBT 
*Press <Return> for DOCTOR'S EXPLANATION*® 


', DID INJURY REQUIRE HOSPITALIZATION? 


IF YES, ADMISSION DATE DISCHARGE DATS. 
IZATION REQUIRED? Nae ee 


- IS ADDITIONAL HOSPITAL 
. SURGERY (IF ANY, DESCRIBE TYPE) 








*Press <Return> for OTHER TREATMENT PRCVIDED* 


. *Press <Return> for PERMANENT EFFECTS* 

. DATE OF FIRST EXAMINATION (0. , DAY, YEAR) 
. Press <Return> for TREATMENT DATES 

. DATE DISCHARGED FROM TREATMENT (MO. ,DAY, YEAR) 
. PERIOD OF DISABILITY 








TOTAL DISABILITY: FROM bad 
PARTIAL DISABILITY: FROM 
DATE EMPLOYEE ABLE TO RESUME, LIGHT WORK 

RESUME REGULAR WORK 
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. EMPLOYEE ADVISED RESUME TO WORK? IF YES, FURNISH DATE 





“Press <Return> for WORK LIMITATIONS* 
*Press <Return> for REMARKS* 


. DOES DOCTOR SPECIALIZE? _ SPECIALITY. 
. ATTENDING PHYSICIAN 





TAX IDENTIFICATION NUMBER 38. DATE OF REPORT 


aera earrerennamivemt creates aaeriapeyteeitttiitnt 





TREATMENT DATES 





DATE OF TREATMENT 
DATE OF TREATMENT 
DATE OF TREATMENT 
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| PYRE: O16 (4687) | 
| 1. PRE-FORM OE | 
n filen, rptfil, filing s:’$d(noump) filene’ptc( iform,99) 
+8:$d(nocamp) filen=*ptg(903,iform,99) s New, rptfiles], idexiste2 k ident 
§ Ua" i 'Sd(DP) 5 NeSod(SH) WT" d “Wr s Oley k X,Y 


G secfmfmm 
TI. WNDOS . 
OG 
DATA ELEMENT DNA Tue FOINTER GLOBAL REFERENCE OR INFUT VERIFICATION 
1604 MEDICAL CARE FACILITY FREE TEXT K:SL(X)>30!(SL{X)<L) X 


M/FCRM FID # 49 


28 STORED: $p( “IOC(DA,1601),""",1) 
44 OST ID: 3s xeon R:SL{X)>30!(SL(X)<1) X s:/Sd(X) ane s:an{"*" amet" 


1604.19ED CARE STREET AIRES 9 RE Ter RsSL(X)>S41(SU(X)<L) X 
MVFORM FID # 52 


28 STORED: $p{ “Icc(DA,1601),"*",2) 
44 FOST ID: ss Mean K:SL(X)>541(SL(X)<1) X $:'$d(X) am" s:anf"*" ome” 


1604.2MED CARE CrTy FREE TExr K:SL(X)>20!(SLIN)<L) X 
MFCM FID # 50 


2B STORED: $p(“ICC(DA, 1601) ,"*", 3) 
44 FOST ID: § Mecm K:SL(X)>201(SU(X)<L) X 8:'Sd(X) aoe" ssanl"*" cnet 


1604.24ED CARE SIE FOUNIER 1003’ rz(1003, 
M/FCRM FID # SI 





20 COWERSICN OLE: 5 GmeGe (came: "", '($c{ “HZ 1003, cmn,0) #20) sex, 2:9 “LT2{1003,an,0),""",1)) 
28 SIGRED: = $p(“I0c{ra, 1601),"**, 4) 


1604. ED CARE ZIP OTE FREE TEXT R:SLX}101 (SLAX)<S) X 
4/20 FID # 53 


2B SIORED: $p( “10C( DA, 1601) ,"*",5) 
4 POST ID: s Mec K:SL{X)>101 (S2(X)<5) X 8:/SA(X) came”* grcm{"*" cope” 


2 Ne POINTER 1004’ = EMELOY| 
MECHA FID #79 


A~191 











17 EXTERNAL CEFALLT: NEVE 
18 INJERA, CEFMLT: NAMEPIR 
20 CONVERSICN COE: $s ameSs(cane™™:"", * (Sd( “EMPLO¥(cm, 0) )#10) :om, 1 :Sp( “EMPLOY(am,0),"°",1)) 
28 STORED: 9$o( “I0c(OK,0),"*", 3) 
32 FOST FILING CIE: d setircx” fief 
44 YOST ID: i Sd(new) s:'Sd(“I0C("C" ,new,x1)) msp"Claim no logged", 24cm" 
54 INEX: “ICC("C") 
55 LOOMP NIE: 
79° 45°So “TOC( Lids, 0),"°",3) 
3°23°Sp( “IOC( Lids ,0),"°",2) 


1 INOURY/ILLNESS ONIE & TI ONTE S We"ET" D “WI S MY KY X I D(X) K:$P(X,".",1)0F X 
M/FCEM FID # 3 


20 COWERSICN CCIE: 

& %e"(" 5:+Se(an,4,5) XX C EX "UPN. FEB. MAR.APRMAY JUN. JUL.ALG. SEP.OCT. NOV. DEL”, "."" 
pars 5))" " s: +Se(an6, 7) MeX_Sa(amn,6,7)_", “ & 4K (1700+Se(am,1,2)) 
s:$>(an,"." ,oyean™ wi" at “  Se(am 2 "000",9 /10F_": mye " $e(cn "000", 11,12) 8 mx ae bs 
8:%="(1700)" %"" 5 aX 


STORED: Spi “TIER, nnn 2) 
ROT FILING CLE: di setirck’ fifo 
INEX: “I00("D") 
LOORUP NCLE: 
3°23 So “IOC Lids,0) "7", 2) 
79°45"Sp( “LOC( Lids 0) ,"°", 3) 


REE 


15 COCLEATICN FOINIER 1001’ orz(1001, 
M/TCEM FID # 4 


20 CONVERSION CODE: 8 cmGa(cme"":", (Sd “DIZ (1001, cam, 0) #10) sean, 1 :$p( “DTZ(2001,cm, 0) ,"*",2)) 
28 STORED: $p( “ICC(mA,3),""",1) 
32 POST FILING COE: di setindk”finéon 


101.1 NATURE OF INQURY EXPLANA 


M/PCRM FID #5 


2 SICRED: rovere 
29 PREFTELD COE: 
8:'/Sd(lvl) lvleO 1 $d(cai(0))>9 s shhfile=l d fileme‘ptrfilel k shhfile 


i Sd( file), file,Naw’=0 s filinoSea( 'S$d(filing):lvl+l,lvl'<filing:lvi+l,1:£iling) 
+d upontr“fmérm 8 News), cbi(0}e"" k file 
§ lvlelvl+l 


i Lvl 8 DCA(0)=0R,D0MA f ielvi:-1:1 s:$d(DA(i-1)) ON(i eOA(i-1) 
30 YOSIFIELD CCIE: 

i lv] s CACO)=OA £ iel:ls:lvl s:Sd(QAli)) ONC i~L)etA(i) 

S:lvl OfeQA(0) k DA(1v1),0A(0),O1 s lvi=lvi-) 


16 CALLS M/PORM: NATURE OF INQURY/ILLNESS (#642) 


A~i92 








M/FORM: NATURE OF INOURY/TLINESS (#642) 
I. PRE- FEM COLE 
n filen, rptfile,New s:$d(noconp) filen=“ptc(ifomn,99) 
+6:Sd(nocomp) filen="ptg(903,ifom,99) s New), rptfile=] 
S Us"*" i 'Sd(DI) s %Ga(SH), We" d “Wr s Oley k X,Y 
d sec” finfrm 
d crink’ info 
. II. WINDS | 
OATA ELEMENT OAK Te FOINIER GLOBAL REFERENCE OR INEUI VERIFICATION 
-OL NATURE CF INOURY EXPLANA WORD PROCESSING 
M/FCEM FID # 1 


28 STOFED: $p{“1CC(DA(1),101,08,0),"",1) 





TH. POST-4CRM CLE 


i Sd(file),file s filingpée( '$a( Filing) :ivL, eas lW1,1: aia 
+@ shuffle’ fmfoa d nodeO” fintrm 


1601 ‘TREROMENT/EXAM FOR GUSE SET CF CODES AGRE TD PEE SOHDUIE 
B: FURNISH NECESSARY TRERIMENT 
C:EXM4 FOR XB FELNIED CRLEE & 





M/FORM FID # 6 


20 COWERSICN CODE: =s am6p($p(";A:AGREE TO FEE SCHEDULE; B: FURNISH NECESSARY TREAIMENT NOT SURGERY; 
C:EXAM FOR JCS PELATED CALSE & TRENIMENT;”,";" cn ":",2),"5",1) ,camSplam, *:",1) 
2B STORED: =$p(°100(0K, 1600) ,""",1) 


1623 AUTHORIZING CEFICIAL NAM FREE TEXT K:$L{X)>30t (SEAX)<1) X 
M/PCRM FID ¢ 77 
28 STORED: $p(“1ac(mA, 1610),"**, 1) 
44 POST ID: 8 Yeo K:SL(X)>301(AX)cl) X 6:/Sd(X) am™ ssn" am a 
1623. LAUIHORTZING OFFICIAL TIT FCS TEXT K:SL{X)>301(SLAX)<1) X 
M/PCRM FID ¢ 78 


2 STORED: §=$p(“10C(DA, 1610) ,""", 2) 
44 POST ID: 6 Yer K:SU(X)>301(SAX)<L) X s:/Sd(X) am"* ssanf"*" cae 


402 SUPERVISOR'S NAME - FREE TEXT K:QL{(X)>301(DANI<L) X 


Aw193 














M/PCEM FID # 45 


28 STORED: $o( “ICC (DA, 402),"°",1) 
44 FOST ID: s Xecm K:SL(X)>30!(SL(X)<1) X s:’Sd(X) am" on"*" cme" 


402.1 SUPERVISOR'S TTILE FREE TEXT K:SL(X)>30!($L(X)<1) X 
M/FORM FID # 46 


28 STORED: =$p( “Ic (IA, 402) ,""",2) 
44 FOST ID: 5 Neom K:SL{X)>30!(SL{X)<1) X s:/Sd(X) am"" s:an{""" ame"” 


402.2 SUPERVISOR'S FHQNE NEE FREE TXT K:SL(X)>141(SUUX)7) X 
M/PORM FID # 48 


28 STORED: Sp(“1cC(mA, 402) ,"°", 3) 
44 POST ID: s Meam K:SL(X)>14!(SL(X)<7) X s:’Sd(X) ane” s:an("*" an"" 


402.4 DATE SUPERVISER SIGED DATE S Wh"E" D “WT S Ne K:¥cl X 

M/FCEM FID # 47 

20 CONWERSICN COLE: 
5 Ye"(" 5:+Se(cm,4,5) Nak Sp( "JAN. FEB.MAR.APR.MAY.JUN. JUL AUG. SEP.OCT.NOV.DEC™,"." 
,+$e(am,4,5)) " " 8:4Se(an,6,7) %K Se(an,6,7) ", * 8 HK (1700+Se(an,1,3)) 
B:9p(am,".",2)’="" Yak " at " Se(cm "000",9,10)_":" Se(am "000", 11,12) 6 XaK")" 
g:Xe"(1700)" Yo" 5 comX o 

28 STORED: $p( “I0C(DA, 402),"*",5) 

14 REPCRTING CFFICE POINIER 1063’ 1NJ(1063, 
M/PORM FID # 72 


20 CONVERSION COLE: «8 crmeGe (cme: "", “ (S( “IN0(1063,can, 0) #10) sem, 1: 9p “IN(1063,cm,0),"°",1)) 
28 STORED: $p( “T0C(DK,10),"°",1) 


14.01 FO ACDRESS FREE TEXT K:$L(X)>541(QAX)<1) X 
M/PCEM FID # 74 


28 STORED: $p(“I0C(DA,10),"°",2) 
WM POST ID: s Meo K:NAX)>701(SLAX)<1) X s:’Sd(X) cme" sean *** ane" 


14.02 FO CTY FREE TEXT K:SL{X)>201(SLUAX)<1) X 
M/FCRM FID # 75 


28 STORED: §=Sp( “Icl(mA,10),"°", 3) 
44 POST ID: § Xecm K:SAX)>201 (SLX) <1) X s2’Sd(X) ame*" sramf*"" ame” 


14.03 FO SINIE KOMTER 1003’ Drz( 1003, 


A-194 








M/PCEM FID # 73 


20 COWERSICN CLE: § amSs(cmne'"":"™, “(Sa “101Z(1003,can,0) )#10) sem, 1:$p(“D42(1003,cm,0),""",1) 
28 STORED: $p(“ICC(#,10),""", 4) 


14.04 FO ZIP COLE FREE TEXT K:SL{X)>16! (SL(X)<5) X 
MACH FID # 75 


28 STORED: $p(*TOC(mA, 10) ,"*",5) 
44 FOST DD: 5 yecm K: SL(X)>101 ($L!X)<5) X s:/Sd(X) ane"" s:an{"°" ane"" 


DATA ELEMENT ONTA TYPE POINIER GLOBAL REFERENCE OR INEUD VERIFICATION 


13 CUIY SIRTICN POINTER 1062’ IN)(1062, 
M/FORM FID # 39 


20 CONVERSICN COLE: «8 asde(are"":™, "(Sd “IND(1062,can, 0) #10) sem, 1 spf “IN3(1062,cm,0),""",1)) 
28 STORED: 9p “I0C(DK,9),"°",2) 


13.4 DUTY SINTIGN ACORESS FREE TEXT K:$L(X)>54!(SL(X)<1) X 
M/ECRM FID # 40 


23 STORED: $p(“Icc(DA,9),"7",5) 
44 POST ID: s Mecm K:SL(X)>701(SL(X)<1) X s:/Sd(X) ae"” ssan{"°" one” 


13.5 DUTY SINTION CITY FREE TEXT K:SL(X)>201 (SL(X)<L) 

M/RCEM FID # 42 — 
2B SHED: $p(“ICC(mA,9),""", 6) 

44 POST ID: ss Neem K:SL(X)>201(St{X)<1) X 53/Sd(X) ce" ssanl*** coe 
13.6 DUTY SINTION SIME FOINIER 1003’ p12(1003, 

M/PCRM FID # 42 


20 COWERSICN COKE: «5 camGe(cme™" 2", "(SA “DTZ (1003, crn, 0) )#10) scm, 12S “DIZ (1003,cn,0),""",1)) 
2B STORED: =$p( “ICC (DA,9),""",7) 


13.7 DOTY SINTIGN ZIP CLE Free TEXT K:$L(X)>101(SL{X)<5) X 
M/FCRM FID # 43 


2B STORED: $p(“Tcc(0w,9),"°",8) 
44 POSE ID: s Yee K:SL(X)>10!1(SL(X)<5) X 82'Sd(X) am s:anf**" cm 


1605 HISTORY EMPLOYEE CAVE DO 


M/FORM FID # 11 


f An~195 














28 STORED: nowere 
29 PREFIELD CIE: 
8:'Sd(lvl) lvl=O i Sd(cbi(0))>9 s shhfile=l d fileaeperfilel k shhfile 
i Sd(file),file,New’=s) s filingse(’$d( filing) :lvl+l,1vl’ <filing:1vl+1,1: filing) 
+d upontr’fimfim s News0 chi(0)="" k file 
s lvlelvl+l 
i lvl 5 DA(O)sDA,D080K £ islvl:-1:1 s:$d(DA(i-1)) DA(i)=QA(i-1) 


30 FOSIFIELD CIE: 
i lvl 5 DA(O)=OA f ielsl:lvl s:Sd(DA(i)) DACi~1 Ri) 
s:lv] DAeQA(0) k DA(Iv1),DA(O) 22 s lvlelvl-1 
16 CALLS M/FORM: HISTORY GIVEN BY EMPLOMBE (#701) 


M/FCRM: HISTORY GIVEN BY EMPLOYER (#701) 





1. PRE-FORM CLE 


n filen, rptfile,New s:'Sd(nocamp) filen"ptet ifon, 99) 

46:$d(noconp) filere"ptg(903,ifcon,99) 8 NewG,rptfileal 

§ Ue"*" ¥ *Sa(CT) 8 XxGad(SH),WIe"" d “WT s Dey k X,Y 

a sec*fnfra 
d crinck’ fim€on 
TI. WINDS 
HISTORY GIVEN BY EMPLOYEE Winckw 1 
DATA ELEMENT CATA TYPE FOINIER GLOBAL REFERENCE Ge INPUT VERIFICATION 
-01 HISTORY EMPLOYEE GAVE 00 WORD PROCESSING 
M/FCEM FID # 1 


28 STORED: 9$p(“IOC(DA(1) , 1602,08,0),"",1) 








III. FOST-FORM COLE 


i Sd( file), file s filings6e('%i( filing) :lvl ,lvbfiting:ivl,1:filing) 
+d duffle’ fnfon d nodeO”finfra 





1606 PRES/PRIOR CONDITICN S=Y OF CCOOES Y¥:YES 
N:NO 


M/FCRM FID # 8S 


20 CONVERSICN COE: $5 ane6p(9p(";¥: YES;N:ND;",";" cn ":",2),";",1) ,amGp(am,":",1) 
28 STORED: $p( “ICC(DA,1600),""",3) 


1606. EXELAIN INJ/OIS/DP 
M/FORM FID # 13 


A~196 














26 SICFED: nowhere 
29 REFELr Cre: 
I ‘S0(dhi(85)) s skip»"D" 
I SO(and(8S)) seb (8S) [NTT (abd (85){"n") skipe"D" 
8:’Sd(lvl) lvleO i Sd(chi(0))>9 6 shhfileel d filecne*ptrfilel k shhfile 


i $d( file), file, New'eO s filingsSe('Sd( filing) :Ivi+l,lvi'<filing:lvlel,1: filing) 
4d upontr“finérm s News), cbi(0}e"" k file 
8 lielvl+l 


i lvl s DA(O}@0R DOA f ielvi:-1:1 s:$d(DA(i-1)) DA(i)=OA(i-L) 


30 FOSIFIFLD CLE: 


i lvl s OA(O)eOR £ imlslsivl s:Sd(DA(i)) DACi~1)=DK(i) 
s:lvl DfeDA(0) k DA(1v1),DA(0),O1 s lvlelvl-1 


16 CALLS M/ECEM: DESCRIBE CONDITION (#702} 


M/PORM: DESCRIBE CONDITION (#702) 
I. PRE-ORM COLE 


n filen, pptfile,New s:'$d{noamp) filen="pte( ifomn,99) 
+8:$d(noomp) filen="ptg(903,iform,99) s New), rptfileel 
§ Unt" i Sd DT) § XeGac(SH) We" d “WI s Dey k X,Y 

a sec*fmfon a 
di crinck’ intr 


1, WOO 





DATA ELEMENT CATA TYPE SOINTER GLOBAL REFERENCE CR INEUT VERIFICATION 
.OL EXPLAIN INU/DIS/InP WORD PROCESSING 
M/ECEM FID # 1 


28 STORED: Spf “ICC (DA 1) ,1603,08,0),"",1) 





TT. ROST-FORM OTE 


i SA(file) file s tilingéet ‘$a filing) lol wl jlvbtiling Ivi,1:filing) 
a a 
1707 CESCRIBE CLINICAL FINDIN 


MYER FID # 14 


28 STORED: rowere 
29 PREFIELD (rE: 
8:/SA(lvl) lvlaO i Sa(chi(0))>9 s shhfile=l d fil-~one’ptrfilel k shhfile 


i Sd( file), file,New'=O s filingGe( ooh tlvlel, lvl! <£iling:ivl+l,1: filing) 
+d upontr* fmfrm § New), chi (O}="" k file 
S lvlelvl+l 


A+197 





i lvl 8 DA(O)@CR DORIA £ imlvl:-1:1 s:$d(DR(i-1)) DAC )sOR(i-1) 
30 FOSIFIFLD CIE: 


i lvl s DOA(O)eOA f iel:l:lvl s:Sd(DA(i)) ONCi-1 OAC) 
stlvl DeeDA(0) k DA(]v1),DA(O),D1 s lvlelvl-1 


16 CALLS M/PORM: DESCRIBE CLINICAL FINDING (#693) 
M/PORM: DESCRIBE CLINICAL FINDING (#693) 


es aca ck a NS a IR ta TLE ENERO EDAD TELE ITE OEE SET OE DLL ITIL EEA EIA DIA TOL LEILA FRIDGE REL DED IIE DOLE GLY SOLED S DALES LOD 


I. PRE-FORM CIE 


n filen, pptfile,New s:'Sd(nocomp) filene"ptc(ifoon,99) 
+8:5d(nooomp) filan=*ptg( 903, ifoon,99) s New, rptfilenl 
Ss Un"*" i 'Sd(DT) § XeSad(SH) ,We"" d “MOT s Diky k X,Y 

@ sec*fmfon 
d crindkk* fimérm 
TI. WINKS 


Ee CLintas AN ew CSC“‘“‘S;SCSCSCSCSCCTCUCTCTCCTCCCOCOCOCOCO 


DATA ELEMENT ONDA TYPE FOUNIER GLOBAL REFERENCE CR INEUT VERIFICATION 
-01 CESCAIBE CLINICAL FINOIN WORD PROCESSING 


M/FCRM FID # 1 
28 STORED: $p( “I0C(DA(1),1702,08,0),"",2) 





TI. FOST-PORM COLE 


1 Sd( file), file s filingeSe( '$d( filing) :lvl,lvbfiling:1vl ,1:£iling) 
+d shuffle’ fmfom d nods0° fino 





1708 DIAGNOSIS (INOURY) 


M/PCEM FID # 15 


28 STORED: + rnowere 
29 PREFIELD COLE: 
8:'Sd(lvl) lvl=O i Sd(chi(0))>9 s sthfile-l d filare’ptrfilel k ahfile 


i Sd( file), file,New=0 s filinge('Sd( filing) :lviel, lvi’<filing: lvl+1,1: filing) 
4a mea 5 New), chi(0)="" k file 
8 lvlelvl+l 


i lvl s DA(O}eOR, CODA f iwlvl:-1:1 s:Sd{DA(i~1)} DALi SOAi-1) 
30 FOSIFTEID Aire: 

i lvl s DCA(O)=OR £ imisls:ivl s:Sd(DAK(i)) DACi-1L)=OA(i) 

s:lvl DetA(O) k DA(lv1),DA(0) D1 s lvlelvl-1 


16 CALLS M/PCR‘: OLAGQOSIS OF CONDITION (#694) 


A-196 








M/PORM: DIAGNOSIS CF CONDITICN (4694) 
ceca ite ren ge WP a cree ete ere ree AP I AN DEEPER DMT I IE BD TOE REIS TE ILI NE EEE I EE EEE SESE IE ELE TE ETE TT EE ELIE AEDS LEED 
I. PRE-ECEM COLE: 
n filen, rptfile,New s:'Sd(noomp) filen="ptc(ifomn, 99) 
+6:$d(noomp) filen=“ptg( 903, iform,99) s New0, mptfile=1 
S Un" i *Sd(DI) s MxGarl(SH),8DIe"" d “WI s VIMY k X,Y 
d sec” fmémn 
d crim’ fieérm 
II. WINS 
DATA ELEMENT DATA TYPE POINIER GLOBAL REFERENCE CR INFUT VERIFICATION . 
.01 DIAGNOSIS (INOURY) WORD PROCESSING 
M/FCRM FID # 1 


28 STORED: =$p(“I0C(NA(1),1703,0A,0),"",1) 








TIT. ROST-ACORM COLE 


i Sd( fila), file s filingGs('$d( filing) :lvl,lvbfilirg:1vl,1:filing) 
+d shusffle*finéoa d nodeO*finfma 


1607 DCC BELIEVE IND WORK-fEL Set OF COLES Y:YES 
N:ND 


M/FCRM FID # 80 


20 CONVERSICN COLE: § amp(9p(";¥:YES;N2ND;",";" crn ":",2),"3",1) cmp(an, "2", 1) 
28 STOR: $p( “ICC(OA, 1600) ,"*", 5) 


*°57.1D0C EXPLAIN-NOT WORK FEL 
MVECEM FID # 17 


28 SICRED: nowhere 
29 PPEFIFLD COE: 
82'Sd(1vl) lvleO i Sd(coi(0))>9 s sthfileel d filecre* k sthfile 
1 Sd( file), file,New'ad) s filingGe(‘Sd( filing) :lvl+l,1vl' <filing:lvl+1,1: filing) 
+d upertr*fintrm ¢ NeweQ,chi(0)e"" k file 
8 lvl=lvl+l 
i lvl 8 CA(O)=OA,D0eGA f ielvi:-):1 s:$d(DA(i~1)) OA @DA(i-1) 
3 PCSIFTEXL? CIE: 
i lvl 5 DA(O}eGA £ imlsislvl s:Sd(OK(i)) DA(i-1)<OMi) 
Stlv] DAeOA(0) k DA(lv1),DA(0),O1 s lvlelvl-1 


16 CALLS M/FCRM: DOCIOR’S EXPLAINATICN (#703) 


A~199 











M/PCRM: DOCTOR'S EXPLAINATION (#703) 





I. PRE-FORM CCIE 


n filen, ptfile,New s:/$d(noomp) filen="ptc(i fom, 99) 
+6:Sd(nocamp) filene’ptg( 903, iform,99) s NewQ, ptfile=l 
S Un"*" i 'Sd(DT) 5 XeGari(SH),Wie"* d “WT s Dik k X,Y 

@ sec" fmémn 
d crindk*fnfon 


II. WINDOS 





CATA ELEMENT OXIA TYPE POINTER GLCBAY, REFERENCE OR INPUT VERIFICATICN 
-O1 DOC EXPLAIN-NOT WORK REL WORD PROCESSING 

M/FCEM FID # 1 

2B SICFED: = Spf “ICC (DA(1) ,1604,Da,0),"",1) 








TIT. FOST-FORM COLE 


i Sd( file), file s ee lvl ib dor 1vl,1:iling) 
+d shuffle’ fmm d nodeO” inf: 








a I a OC "C= <1: 0c | a 


CAA ELEMENT COXA TYPe POINTER GLOBAL REFERENCE OR INPUT VERIPICATICN 
1608 REQUIR® HOSPTIALIZATICN StT OF COLES Y:YES 
N:ND 
M/PORM FID # G1 


20 COWERSICN CLE: 5 cmSp( $p{";¥:YES;N:ND;",";"_am":",2),"7",1) ,camOp(am,":",1) 
28 STORED: 94 “I0C(DA,1600),""", 4) 


1608. LACMISSICN ORIE CONTE S Wls"E" D “WT S Me K:Yd X 
MACH FID # 19 


20 CONWERSICN COLE: 
8 %="(" 8:4Se(am,4,5) 4aX C S( "AN. FEB FPR APR AYN. ALG. SEP. CCT NOW. De,","." 
,+Se(an,4,5)) " " s:sSe(cn6, 27) Yk Se(an,6, 7)" 1” 8 HK (1, 00+Se(amn,1,3)) 
8:Sp(an,".",Z)’="" YX " at ” " Se(am "000", 9,107. ":" Se(cat 1 000" rll,l + S XK_")" 
§:X="(1700)" Xe" s cmX 


2B STORED: Spf “T00(DA,1600),"°",6) 
29 PREFTELD COLE: 








T ‘S(abi(81)) s skipe"p" 
i Sd(abi(81)) S:cbi (31) (NW! (obi (@L)["n*) Skip-"D" 


1608.2 DISCHARGE OMTE DATE S WE" D “WT S Ne K:YCl X 


M/FORM FID # 20 


20 COWERSION CE: 


S Xe"(" §:+Se(am, 4,5) 7 Sp\ "AN. FEB.PRR-APRMAY UN. JUL-AUG. SEP .CCT.NOV. DEC," 
reSe(an,4,5)) 7" $:459(an,6,7) eX Se{om,6,7) ", "Ss XX (1700+Se(om,1,3)} 
STOO) pag OE Sele "000",9, 107 *:* Seven ™O00", 15,42) & 4K") 
S:Xe"( 1700)" Xe" 5 omxX 7 


28 STORED: Sp “ICC(DA, 1600), "*",7) 
29 PREFIELD CoO: 

i ’Sdiabi(al)) $s seipe"y” 

i 'Sd(cbi(19)) § skips 

i Sd(cbi(81)) S:cbt(81)("N" skipw"D" { "Sd( skip) s:cbi(19)—"" skipe"Ty” 


1509 ACDITIONAL HOSPYTALIZATT SET OF CLES Y:YES 


NexD 
M/TCEM FID # & 
<0 COMERSICN ChE: 5 Crk SAY SMES NENDS", "3" aan "2", 2)"; 7,1) scam plany"s,1) 
28 STORED: Se “TQC( OK, 1600) ,"°" By 
1519 SURGERY RECUTRED FREE TEXT 


R:S2(X)> 30! (SU(X)2) x 

MTOM FID # 2 ; 

“B STORED: fo “10C(DA,1600),""", 9) 

44 POST TD: 5 won K2SL(X)>301(1x}<2) X s3'Sd(X)} ome" S:an "7" cry” 
i SURGERY Cans CXE 


oe 
25 


pees 


S OME" D “WT S mY KCL x 
“FORM FID #23 


“0 CONVERSION Core: 


6 %e"(" §:450(cm, 4,5) 2X SOU" PN, FEB. YARAR MAY. IN. LILA, SEP CCT NOV.DEI","," 
s*Setam4,5))_* " s:4$e(cR,6,7) HK Sa(cn6, 1)" * YK (1700+Se( om, 1, 3)) 
8:Sp(cm,*.", 2) a" eK” at "_Se(cma_"000",9, 107 ":" Se(an *000", 11,12) & Yo ")" 
5:%="(1700)" ee” § amk 

2B SIRED: S64 “TCCIEA, 1600),"*", 19} 

PREFTELD COE: 


2 : 
I 'Sd(cta(22)) s skip 
1 Sd(cht(22)) srcbai(22)6"" skips 


1612 CIHER TREAOMENT PRC ED 


MACHA FID § 24 


A-291 














28 STORED: rowhere 
29 PREFTFLD COLE: 
8:/Sd(lvl) lvle i Sd(chi(0))>9 s sthfile=l d fileme‘ptrfilel k shhfile 
i $d( file), file,New’ad) 5 filingss( 'Sd( filing) :lvl+l,lvl’<filing:lvl+1,1: filing) 
4d upontr” fmEmm 5 New), chi(0e"" k file 
s lvlelvlel 
i lvl s DA(O}OR,DOeCA f ielv):-1:1 s:Sd(DNi-1)) ON i)=OAi-1) 


30 POSIFIELD CLE: 
i lvl 5 CA(OmOA £ iwlsislvl s:Sd(DA(i)) DACi~1 eOQi) 
S:lvl DeCA(0) k DA(1v1),OA(O),O1 8 Ivlelvl-1 
16 CALLS M/PCRY: OTHER TRERIMENT PROVIDED (#704) 


M/PORM: OTHER TRERIMENT PROVTED (#708) 





1, PRE-FORMM OTE 


n filen, rptfile,New s:'Sd(ncoump) fileneptcl i fom, 99) 
+6:5d(noconp) filene’ptg(%03,ifoon,99) s News), cptfile=) 
$ Us"*" i 'Sd(DT) s MxSarl(SH), Ie"" d “WI s OY k X,Y 


d sec” fnéoa 
d crindk” fnfon 
TI. WINKS 
OAR ELEMET CASA TYPE POINIFR GLOBAL REFERENCE OR INPUT VERIFICATION 


31 CIHER TRENIMENT PROVITED WORD PHICESSING 
M/‘FORM FID # 1 
2B STORED: 904 “ICC(DAL 1), 1605,08,0),"",1) 





TIT. FOST-FCRM COE 


i Sd( file), file s filingeGe( ‘Sd( filing) :lvl,lvb filing:lv1,1:filing) 
+4 shuffle” fnfom d noceO* infra 





1613 FEAMCeNT EFFECTS 


MFCRM FID 4 2S 


29 PREFIFID COE: 
629%.) IvleO i Sd(chi(0)}>9 8 athfileel d filecre’ptrfilel k stinfile 
i Gi file), file,New'a $s filingete! Sd( filing) :lvl+l,lvl'<filing:vlel,1: filing) 
+d upcntr” intron s Newed), coi (0)0"* k file 
S ivlelvi+l 
i lvl s TA(O}=CA, 008A f ielvi:-1:1 s:Sd(DAli-1)) OA ffAli-1) 


A=-20? 

















30 POSTIFIELD COLE: 
i lvl 5 DA(O}eOA £ iml:1:lvl s:$d(DA(i)) DACi-1)<fA(i) 
S:lvl DtefA(0) k CA(1v1) ,DA(O) DL s ivl=lvl-1 
16 CALLS M/FORM: PERPPAENT EFFECTS (#705) 


M/FORM: PERMRNENT EFFECTS (#705) 





I. PRE-FORM COE 
n filen, pptfile,New s:/$d(ncoonp) filene’ptc(ifom,99) 
+6:S0(nocamp) Eilene’ptg(903,ifomn,99) s Need), rptfile=l 
_ § Unt" i SADT) s %eGard(Si), We" d “WI s Diky k X,Y 
a sec*finérm 
d crinck* fmf 
IT. WINKS 
CAI ELExeENT ORCA TYPE FOINIER GLOBAL REFERENCE OR INGUT VERIFICATICN 
.0] PERMANENT EFFECIS WORO PROCESSING 
M/PCRM FID # 1 
28 STORED: $p( “I0C(OA(1),1606,0A,0),%",1) 





eerie ee 


TI. FOSP-FCRM CLE 


i Sd( file), file s filinoe('Sd( filing) :lvl,lvb filing: lvl,1:filing) 
+d shuffle’ fmfon d node0*finfrm 





2414 DONTE OF LST EXAM OATE S W"E" D “WI S HY K:Y¥Q X 
M/FCEM FID # 26 


20 CONVERSION COLE: 
S$ %"(" §:4+Se(an,4,5) %eK Sp( “JAN. FEB.MARAPRUMAY. JUN. JUL.AUG. SEP.CCT.NOW.DEC™,"." 
,tSe(am,4,5)) * * 8:+Se(an,6,7) Ha Se(am,6,7) ", * & XK (1700+Se(am,1,3)) 
8:90(ar,".",z)’a™ XK" at * Se{ca 000", 9,10)_":" Se(cm_ "000", 11,12) & ¥eaK_")" 
$:¥="(1700)" %*" ¢ oak 

28 STORED: =9p( “ICC{EA, 1600)," *,11) 


1615 TREXD@NT OXIES OX 
M/PORM FID # 27 
33 STORED: rowhere 
29 PREFIPLD COLE: 


s:'Sdl lvl) lvls i Sdichd(0))>9 8 sthfilest d fileme*ptrfilel k shhfile 
i Sd( file), file,New=0  tilingsGe( '$d( filing) :lvl+l, lv) <fling:!vlel,1:filing) 
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4d uomtr’finfm s News0,chi(0)e"" k file 
6 lvl=lvl+1 
i lvl s DALO)=ORCOe0A f ielvi:-1:1 s:$d(DA(i-1)) OA(i)=OK{i-1) 


30 FOSIFIELD CE: 
i lvl s DA(O)=0A f imlsl:lvl s:Sd(DA(i)) DA(i-1)=CA(i) 
silvl OfeTA(O) k DA(lv1),DA(0),O1 s lvlelvi-1 


16 CALLS M/PORM: ‘TREAIMENT CRIES (#706) 
M/PCRM: TRERIMENT ONIFS (#706) . 
1. PRE-FORM CIE 
n filen, ptfile,New s:’Sd(nocomp) filen=“ptc(ifoon, 99) 


+6:Sd(nocomp) filen=*ptg( 903, ifoum,99) s New, ptfile=1 
8 Un"*" i ‘Sd(DT) s MaSad(SH),Wre"" d “WT 6 Diky k X,Y 


d sec’ fimfoa 
d crinck” fimo 
IT. WNOOS 
REN CES Wek l!l™U™~<“‘“=SOSO™O*~;7]7™SC~CSsti‘OOCOCNSNSNNN 
DATA ELEENT DATA TYPE FOONIER GLOBAL REFERENCE CR INPUT VERIFICATION 
.O] TREAIMENT PACES ACE S We"E" D “WT S Ne K:Ycl X 
M/FCRM FID # 1 | 
20 CONVERSION COKE: 


8 Xe"(" g: aicacd: 5) YeX_Sp( “GAN. FEB.MAR.APR. MAY. JUN. JUL AUG. SEP OCT. NOV.DBC™,"," 
.+Se(am,4,5)) " " 8:+Se(caa,6,7) HK Se(an,6,7) ", " © HX (1700+Se(an,1,3)) 

8:Sp(am,".",Z)'a"" Ye * at " ' Se(cm "000", 9, 107 ":" Sela "000", 11,12) © YeX.")" 
8:Xe"(1700)" %="" 5 comeX 


28 STORED: 9 $p( “T0C(DA(1) ,1607,08,0),"°",1) 








Ti. FOST-FCRM COE 
i $d( file), file s filingeée( '$d( filing) :lvl,lvb filing:1vl,1: filing) 
4d node0’ fméon 





ee Sag ee ne ae RRR) ocean ae a peg ee 


ONTA ELEMENT CONTA TYPE FOINTER GLOBAL REFERENCE CR INSUT VERIFICATION 
1616 OXIE DISCHARGED FROM TRE OME S Wie"E" D “WI S Mey K:¥cl X 
M/PCRM FID # 28 
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20 CONVERSION COLE: 

8 Xe="(" s:4Sefcm,4,5) ¥eX_$p( "JAN. FEB.MAR_APR.MAY.JUN. JUL.ALG. SEP.CCT NOV.DEC, *." 
"Seem 4, 5)," "8: Sasa’ 7) YK Se(am,6,7) ", ° S ¥eK (1700+Se(am,1,3)) 
s:S$o(an,".",Z)%=™" " at " Se(an"000",9,10)_": mye ' Se(ca*000",11,12) 5 %K_")" 
$:¥e"(1700)" %e"" 5 ox 





28 STORED: $p(“I0C(DA, 1600) ,"°",12) 
1713 TOTAL DISABILITY FROM ‘TAIE S W"E" D “MDOT S MY K:¥C1l X 
M/PORM FID # 68 


20 CONWERSICN CLE: 

8 Xe"(" s:+Se(cm,4,5) YeK Sp( “JAN. FEB.MAR.APR.MAY UN. JUL AUG. SEP. ocr.nov. c=, ae 
vieelond: 5))"" s:+Se(an,6, 7) ¥eK Se(am,6,7) ", " & eX _(1700+$e(am,1,3)) 
B:9{an,".",2)'="" Xe" at “ Se(cm“000",9,107 | m :" Se(an "000", 11, 12) & XeK_")" 
8: =¥e"(1700)" Yo"" ss cneK 


= 


28 STORED: $p(10C(DA,1707),""",1) 
1713 TOIL OLSBILITY TO je 404 S Wle"E" D “WY S Mey Kl X 
. M/FCEM FID # 69 


20 CONVERSION COLE: 

& Xe"(" §:4Se(am, 4,5) YX Spl “GAN. FEB. MAR.APR.MAY JUN. OUL.AUG. SEP .OCT.NOV, DEL”, " . 
posites 5)) " " s:+Se(cm,6, 7) XK Se(am,6,7) ", " § XaK (1700+Se(cm,1,3)) 
6:S(an,". i] ,oyu "4 ” at" * Se(an_“000", 9, 10) _' " ” * Se(an "00", u, 12) 8 Xt eos 

s:¥e"( 1700)" Xe"" 3 cK 


28 STORED: $p(“10c(mH, 1707) ,""", 2) ~ 
44 FCST ID: 
i *S$d(cbi(68)) s skip="D" 
8 Yer k:X<Sp( chi (68) ,db,2) X i ’$d(X) s am" s:an{ °°" cme” 
1714 PARTIAL DISABILITY FROM OME S WM" D “WI S Me KYL X 
M/FCRM FID 4 70 


20 COWERSION COLE: 
8 ¥"(" 6:+Se(cm,4,5) Mok $A "PN. POB POR JOR PRY ANAM SEP OCT.NOV DEE", al 
r$e(an,4,5)) " " s:4Se(cm,6,7) HX Sefan,6,7) ", " s XK (1700+Se(cn,1,3)) 
8:9p(aa," 2" Z)ta" Yok" ot * * Se(can "900", 9,107": * Seton “000", 11,12) S Xek_")" 
82%="(1700)" %="" s anK 


2B STOPED: §=$p(“10C(0A,1707),""",,3) 
1714.1 PARTIAL DLSABILITY 70 OME S WI"E" D “WT S HY KY X 
MPC FID # 71 


20 CONVERSION COLE: 
S Ye"(" §:+Se(cm,4,5) Yak Spl “JAN. PEB.MAR.APRLMAY. JUN. LL ALG. S2P.OCT.NOV.DEC","." 
,+Se(am,4,5))_" * $:4Se(cta,6,7) eX Se(an,6,7)_", * 8 XK (100+Se(an,1,3)) 
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s:X(an,"." 2)ta” Sot" at " Se(am "000",9,10) ":" Se(an "000",11, 22) 8 eK")" 
Ss: ¥e"(1700)" »" g onX 


28 STEED: $p(“10C(CH, 1707) ,""", 4) 
44 FCST ID: 
i 'Sd(chi(70)) s skip="D" 
& Xmen k:X<Sp( ci (70) ,db,2) X i *Sd(X) s cm"” s:al""" on™ 


1617 DATE RESUME LIGHT WORK DONTE S Wl="E" D “WT S %Y K:¥<1 X 
M/FORM FID # 31 


20 CONVERSION COLE: 
& Xe"(" §:4Se(cm,4,5) Yak Spl “JAN. FEB.MAR.APRMAY. JUN. JUL ALG. S2.0CT.NOW.DEC",”." 
,+Se(am,4,5)) " " s: +Se(cm,6, 7) XX ( Se(an,6, 7) *, "= XX ¢ (1700+Se( arn, 1, 3)) 
s:Sp(am,".", 2)’ YeX " at" Se(an"000",9,10)_": mn * Se(cm_"000",11,12) & xK.")" 
s:X="(1700)" Xe" § amex 


28 SICRED: $p(“10C(DR,1600),"°",13) 


1618 CATE RESUME REG WORK OATS § Wie "=" D “WT S HY KE: X 
M/FCRM FID # 22 
2 


Cre: 
& Xe"(" 824Se(cm, 4,5) XeX Spl “IAN, FEB.MAR-APR_MAY. LUN. UL AUG. SP. OCT.NOV.OE”,"." 
,t5e(am,4,5)) " " 8: +Se(cn,6, 7) 3K Se(on,6,7) *, * © MK (1700+Se(cn,1,3)) 
B:S9(an,",",Z)'an™ eX" at " ' Se(am_“000" 9, 107": ' $e(an_”000", 11,12) s %K_")" 
$:%"(1700)" Xe" s cmeX 


28 STORED: $p( “I0C(DA, 1600) ,"°", 14) 


1715 ADVISED EMP CAN RESUME W ST oF OOS Y: YES 
N:ND 


M/FORM FID # 83 


20 CONVERSICN COKE: «8 amOp($p(";¥: YES;N:ND;",";" can "3",2),";",1) camOp(an,":",1) 
28 SICFED: Sp “ICC(DK, 1700), "°",11) 


1715. LORIE OF ADVICE OME S Wr~"" D “WI S My KY X 
MPORM FID ¢ Wi 


20 CONVERSION CIE: 
S Xe"(" 8:4+Se(an, 4,5) WX C Spl "VAN. FEB.MBR.APR. MAY. 292. JULAUG. SEP.OCT.NOV. DEC", "." 
o+Se(an,4,5)) " " #: +Se(an.6, 7) XeX Se(an,6,7) ", " & He (1700+Se(am,1,3)) 
B:Sp(am,”.",Z)%a"" eX" at ” Se(am 000",9,10)_": Fo ' Seen 000", 11,12) § XeK_")" 
8: :¥e"(1700)" we" 5 omit 


2 SED: Spl" TOC{DA,1700), nee 13) 
29 penne 


1 "Acti (83) 8 skip='D" 
i $d(cioi(83)) s:cbti(83)("N" skip” 
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1619 EXPLAIN EMP WORK LIMTIAT 
M/PCEM FID # 35 


28 SICRED: rowere 
20 PREFIFID COE: ; 
$:'Sd(lvl) lvleO i $d(chi(0)'>9 s shhfile=l d filecme*ptrfilel k shhfile 
i Sd( file), file,New'=0 5 filingsSe('Sd(filing}:lvl+l1,lvl'<filing:ivl41,1:filing) 
+d upontr* ffon § News), chi(0}="* k file 
& lvlelvl+1 
i lvl s DA(0)=0R,D0etA f ielvl:-1:1 s:Sa(0Mi-1)) Rt) 


30 FOSIFIFLD CLE: 
i lv) s DA(O}@OR £ ielslslvl s:Sd(DA(i}} OAC i-1)=OR(i) 
s:lvl DfeDA(O) k tA(Iv1), DA(O),Dl s Wielvi-l 


16 CALLS M/FCRM: YORK LMTCIONS (#707) 
M/FORM: WORK LIMPINTIONS (#707) 


: 
1, PRE-FORM COLE 
n filen, pptfile,New s:'Sd(nocemp) filen="pte( iform,99) 


+6:Sd(nooamp) filene*ptg(903, ifomm,99) s News), pptfile=1 
8 went i *Sd(DT) 8 %eSacl(SH) WT" d “MT 5 DIY k X,Y 


d sec” finfsa 
@ crink’fafon 
II. WES 
OATA ELEMENT DACA TYPE SOINIER GLOBAL REFERENCE OR INEUT VERIFICATICN 


.OL EXPLAIN EMP WORK LIMTIAT = WD PROCESSING 
M/PCRM FID # 1 
28 STORED: = $p("100(DA/1),1608,D4,0),"",1) 





TI. FOST-ScHHi COE 


i Sd( file), file s filingsGa(’S$d( filing) :lvl,lvbfiling:lvl,1:filing) 
+d shuffle’ fnéon d nxk0* fren 
boanertenerneenenee fe eeeeen ne enee 
S4 REPARES 
M/PORM FID § % 
28 STORED: rowhere 
29 PREFIELD COE: 


8:Sd(lvl) lvleQ i Sdictd(0))>9 $s shhfileel d filecw’ptrfilel k shhfile 
i Sdi file), file,New’=Q s filinpSe( ‘Sd filing):lvleL,lvl! <filing:lvl+l,1: filing) 
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4d upontr“finfrm s News, chi(0)}="" k file 
s lvl=lvi+l1 
i lvl s DA(O)}CA, DOA f ieivl:-1:1 s:$d(QA(i-1)) DA(i)DA(i-1) 
30 FOSIFIFLD CLE: 
i lvl 5s DA(O)@OA £ iml:l:lvl s:$d(OA(i)}) DACi-1)=OA(i) 
s:lvl D6eQA(0) k DA(1V1),2A(0),O1 s lvlelvl-1 
16 CALLS M/PCHM: REMARES (#605) 
M/FCRM: REMBRES (#606) 


Ty. PRE-PORM COE 





n filen, rptfile,New s:'Sd(nooamp) filene"ptc{ ifoon, 99) 
+8:5d(noomp) filene*ptg(903,ifom,99) s NawQ, ptfile=1 
s Un"*" i 'Sd(DT) § XeSad( SH), WIe"* d “WI s Dey k X,Y 
d sac’ fmf 
d crimdk” fnfoa 
II. WODOS 
aE OE a ae aT Ty ee, gto RS EERE eg eT Pe ee eee a ge ew 
DATA ELEMENT ONTA TYE FOINIER GLCPN, PEFERENCE OR INCUT VERIFICATION 
.01 REMARKS WOO PROCESSING 
M/FCRM FID # 1 


2B SICFED: 9$p(“ICC(DA(1) ,8,00,0),"",1) 





TI. RSTO OLE 


i SA(file), file s filingpse( ’Sd( filing) :1vl,lvbfiling:]v1,1:filing) 
+d shuffle’ ffi d nodeO* fron 





400.6 DOES COCTIOR SPECIALIZE ST OF COLES Y:YES 
N:NO 


M/PCEM FID # 65 


20 CONVERSION CODE: 8 ammGp( Sc"; ¥: YES;N:ND;",";" cm ":",2),"5",1) ,ommG(am, ":",1) 
28 STICFED: $p{“ICC{DA,400),""",7) 


400.7 SPECIALTY FREE TEXT K:SLAX)>301(SAX)<L) X 
M/PORM FID # 64 
28 STORED: $p(“10C( DA, 400),""",8) 
29 PREFTIELD CLE: 


I 'SD(cbi(65)) 8 skips"D" 
s:chi(65)'("Y" skipe"D” 
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i $d(cei(65)) sscbi (65)[“n"! (coi (65) [°N”) skip" 
44 FOST ID: 5 Neam K:SL(X)>30! (SL{X)<1) X s3’Sd(X) ame"" s:an{"*" an" 


400 ATTENDING PHYSICIAN FREE TEXT K:$1{X)}>30! (SL(X)<1) X 


400.1 DOCS ACORESS 


400.2 DOS Criy 


400.3 DOCS SINE 


400.4 DOSS ZIRE 


400.8 TAX ID 


400.9 DATE SIGNED 


M/FCRM FID # 59 


28 STORED: $p(“1oc(mA,400),""",1) 
44 POST ID: 5 eam K:SL(X)>30!(SL(X)<1) X s:’Sd(X) am"" ssam("°" ane"” 


FREE TEXT K:SL(X)>541 (SL(X)<L) X 
M/PCEM FID # 60 


28 STORED: $p(“ICC(DA, 400),"7"",2) 
44 POST ID: ss Mec K:SL{X)>451(SUX)<1) X s:/$d(X) am” s:am("-" ane"” 


FREE TEXT R:StAX)>201 (SL{X)<1) X 
M/FCEM FID # 61 


28 STORED: = 9p( “100 (TA, 400) ,""", 3) 
44 POST ID: 6 Meum K:$L(X)>20!(SL(X)<1) X s:/Sd(X) ame”" s:an("°* cote" 


FOINIER 1003’ 012(1003, 
M/FCEM FID # 62 


20 CONVERSIGN CODE: «6 amSs(cme™ 2", *($d( “D2 (1003, cm, 0) )#10) sam, 1: $x “DTZ (1003,cm,0),"°",1)) 
28 STORED: $4 “10C(TA, 400),"°", 4) 


FREE TEXT K:SL(X)>10!(SL{X)<5) X 
M/PORM FID # 63 


28 STORED: $p(“IcC(rA, 400),"*",5) 
44 FOBT ID: s Nec K:SU(X)>101(SL(X)<5) X 2 /Sd(X) am™ s:onf""" om" 


Fez TEXT R:@L{X)>101(SL{X)L) X 
MV/AGM FID # 66 


2B STORED: $p{ “TOC{DA, 400) ,*°", 9) 
44 RST DD: 3s s Mean K:SL(X)>101(SL{X)<1) X s3’Sd(X) ane” s:ant""" am™ 


cde «S$ WIE" D “WT S HY Keyl X 
NSO FID # 67 
20 CONVERSION OLE: 
8 Ym"{" s:4Se(an,4,5) AX Sol “IRN. FEB.MAR_APR.ARY JUN. JUL.AUG. SEP.CCT.NOV.DEC","." 


.+Se(am,4,5)) " ” s:4Se(cn,6,7) 2K Se(em,6,7) ", * 8 HK (1700+Se(an,1,3)) 
s:Sptem,".",2)'a" eK" at" Seca 000", 9,10)_":"_ Seam "000",11,12) = %eK_")" 
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s:Xe"( 1700)" %e"" s aneX 


2B STORED: 9p “ICC(DA, 400),"*",10) 


TTI. FOST-PORM CTE 


i Sd(file), file,New’=0 s:’Sd(lvl) lvl<0 
+6 filingsSe(’Sd( filing) :1vl,lvbfiling:lvl,1:filing) 
+d “finéon 


i filewl!(Sd(ERFLAG)) d “TSCFILE 





ban IAN 








+ 


CA-17 DUTY STATUS REPORT 

PART A--SUPERVISOR 
1. MEDICAL CARE FACILITY 

ADDRESS 

cIiTy TATE ZIP D 
2. OWCP FILE NUMBER 3. NAME 
4. DATE OF INJURY (MO. DAY, YEAR ) 
5. SOCIAL SECURITY NUMBER 
6 
7 

















. OCCUPATION 
BODY PART A 2 ol | EES cea ic ad De EN AUER 
DESCRIBE HOW INJURY OCCURRED ~~~ © 
*Press <Return> for NATURE OF INJURY/ILLNESS* 

8. Press <Return> for USUAL WORK ACTIVITY 
9. JOB REQUIRE DRIVING A VEHICLE? SPECIFY VEHICLE 
OPERATING. MACHINERY? “““SPECIFY MACHINERY 
10. THE EMPLOYEE WORKS HOURS PER DAY NUMBER OF DAYS PER WEEK 
ll. REPORTING OFFICE a 
ADDRESS | 
_ “CrTy STATE IP COD 
12. DUTY ; ~ 
ADDRESS a ; sa aaa 
CITY g a ee "SIP CODE 


ena et cmrennefemareetainalbtrafatendaereinertmaanecrrare mati orem eeyettaeadamantaee 














arte 








PART B--PHYSICIAN 
13A. HISTORY OF INJURY CORRES?OND TO ITEM 7? 


IF NOT, *Press <Return> for EXPLAIN DISCREPENCY* 
13B. *Press <Return> for DESCRIBE CLINICAL FINDING* 


13C. DUE TO INJURY *Press <Return> for DIAGNOSIS OF CONDITION* 
13D. pce DISABLING CONDITIONS *Press <Return> for DIAGNOSIS OF OTHER 
a4, MPLOYEE ABLE TO PERFORM REGULAR WORK? 

iF SO, FULL-TIME OR PART-TIME PART-TIME HOURS PER DAY. 


15. IF #14 WAS NO, Press <Return> for ALTERED WORK ACTIVITY 

16. *Press <Return> for MEDICAL WORK RESTRICTIONS* 

17. PERIOD OF TOTAL DISABILITY: FROM TO 
PARTIAL DISABILITY: FROM TO 

1e. EMPLOYEE ADVISED CAN RESUME WORK? DATE OF ADVI St A a aaa 





.19. DATE OF EXAMINATION. 


20. DATE OF NEXT APPOINTMENT, iF SCUESTED PEON oe ee ee , 
21. ATTENDING PHYSICIAN 
DOCS ADDRESS 





CITY “STATE a “ZIP CODE 
23. specTALT Sy Pranacaraae aoa a aris 
23. TAX ID NUMBER as DALE. SIUNED. oo. ar ne ee 








USUAL WORK ACTIVITY __ 





ACTIVITY/EXPOSURE 
CONTINUOUS/INTERMITTENT “HOURS PER DAY DBA __. DE GREES re 
DESCRIPTION OF ACTIVITY 
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__CA-17 CON'T 








ALTERED WORK ACTIVITY 





ACTIVITY/EXPOSURE 
CONTINUOUS/INTERMITTENT HOURS PER DAY DBA DEGREES F 
DESCRIBE ACTIVITY 


ny ne ss PSs ee easement stnase tits eseeeceiecAesAshNA 








*Word Processing Window will appear. 
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PVFCR: G17 (4689) 
I. PRE-FORM CE 
n filen, rptfile, filing s:'$d(nocamp) filen="ptc( i form, 99) 


+6:$d(noomp) filen=“ptq(903, iform,99) s New, rptfile=],idexiste2 k ident 
S Un" i 'SA(DT) s XxGed(SH), WO” d “SDT s Diwy k X,Y 


d sac’ finéon 
IT. WNOOS 
DATA ELEMENT DATA TYPE FOINIER GLOBAL PEFFRENCE OR PEUT VERIFICUTION 
1604 MEDICAL CARE FACILITY FREE TEx R:SL(X)>301 (SLX) X 


M/FORM FID # 39 


28 STORED: $p( “I0C(D,1601),"*",1) 
44 POET ID: ss Neem K:SL(X)>301(SL(X)<1) X 8:’Sd(X) ame" s:an{"*" cnet 


1604. 1MED CARE STREET ACCRESS FREE TEXT K:$L(X)>S41($L(X)<L) X 
M/FCRM FID # 36 


28 STURED: 9p “ICC( DA, 1601),"*",2) 
44 POST TD: $ Mem K:SL(X)>561(SUX)<L1) X s: "Sd(X) ate"" srom"*" cme” 


1604.2MED CARE CrTy FREE TEXT K$L(X)>201(9L(X)<1) X 
M/FORM FID # 35 


28 STORED: Sef “TCC (OA, 1601),"°*", 3) 
44 FOST ID: § Xecm K:SL(X)>201(SL(X)<1) X 6:/Sd(X) ane” s:an{*"" ce 


1604. MED CARE SIRE FOINIER 1003’ 012(1003, 
M/PCRM FID § 37 


20 COWERSION CE: 5 CmSe (cre: "*, * (Sc “Dr2(1003,cm,0) #10) zom, 1:$p{ “DTZ(1003,am,0),"*",1)) 
28 SICFED: Sp( “ICC{DA, 1601),"°", 4) 


1604. @ED CARE ZIP COLE FREE TEXT K:$L(X)>101 ($L(X)<5) X 
| M/FORM FID # 38 


28 STORED: $p(“ICC(MA,1601),"°",5) ar 
44 OST DD: s %on ReSL(X)>101(9(X)<5) X s2"Sd(X) ane”* s:an""* om 


137 CNCP FILE NUGER FREE TEXT K:SL(X)>131(SL(X)<L) X 
M/PCRM FID # 2 
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2 YE 





3 SN 


15 COCLEATICN 





28 SICRED: 9 $p( “ICC (mA, 120),""", 6) 
44 POST ID: 5 Mean K: SUX}>131(SL(X) 1) X 8:’Sd(X) om" s:an"*" am" 


FOINIER 1004’ = EMPLOY( 
M/FCRM FID # 62 


17 EXTERMAL CEFALLT: NAME 
18 INIFRNAL CEFALLT: NAEPIR 
20 COWERSION CODE: «5 aeGe(cme”":""," (Sd( “EMELOY(can, 0) #10) som, 1: Sp{ “EPPLOY(cm, 0) ,""", 1)) 
28 STORED: $v “I0C(TA,0),""", 3) 
32 POST FILING COLE: di setinck’ fmfon 
44 FOST ID: i $d(new) 6:’$d(“ICC("C",new,xl)) meqe"Claim not Logged”, ya24,ane"" 
S4 INEX: = “IOC("C") 
55 LOOP NIE: 
62730°SpX “I0C( Lids,0),"°",3) 
4°23°SX “ICC Lids, 0),"°",2) 


1 INOURY/TLLNESS DATE & TI ONE S WIe'ET" D “WT S NeY K:Y<L X I SO(X) K:SP(X,".",1) DT X 


M/FCEM FID # 4 


20 COWERSICN COLE: 

5 Xe"(" 5:45e(0n, 4,5) XK C Spl "JAN. FFB .MAR.APRLMAY.OUN. JUL ALG. SEP.OCT.NOV. eC” ,"." 
alae 5)) " "8: +Se(cm,6, 7) ¥eaK Se(am.6,7) ", ° 6 MK (1700+Se(am 1,3)) 
8:S(am,".".Z)'="" eK * at " Seam "000", 9, 16y_' m; 2" " $e(cn_"000", LI, 12) s %x_")" 

s5="(1300)" Ye"" § aneX 


28 SICFED: $p( “10C(0K,0),"7",2) 
32 POST FILING CE: +d setirck’ frfon 
S4 INEX: “ICC("D") 
55 LOORUP NCTE: 
4°23°Spf “ICC Lids 0) ,“°",2) 
62° 30°SX “TOC( Lids,0),"*", 3) 


FREE TEXT K:SL(X)>91 (SLAX)<9) 1 (X2SN) & 
M/ FORM FID #5 


2B SICRED: $p( “ICC (OA, 0),"7", 4) 
44 POST ID: s Meam K:SL(X)>9!(SLAX)<9) 1" (X2QN) X s3/Sd(X) ame"” s:anf"°" cne™* 


FOINIER 1001’ o7z(2001, 
M/FORM FID # 6 
20 CONVERSICN COE: = 5 cmGa(ame"":°", (Sd “DIZ( 1001 ,cam, 0) #10) scam, 1: So “DTZ (1001, crn, 0) ,""",2) ) 


28 SICRED: $p( “I0c(mA,3),"°",2) 
32 POST FILING COLE: di setinck* 


100 SCOY PRRT COLE POINTER 1018’ = 1N3(1018, 


M/AACEM FID #7 


a-214 








20 CONVERSION CE: 5 amGe(cme":"", ¢($d(“INI(1018,cm, 0) )#10) crn, 1:94 “IN (1018,cm,0),"°",2)) 
28 STORED: $0( “1cC(mH,100),"7",1) 


~ 102.1 NATURE OF INOURY EXPLANA 
M FORM FID ¢ 8 


28 STCRED: movere . 
29 PREFTELD CLLE: 
s:'Sd(lvl) lvle® i Sdichi(0))>9 s shinfileel d filecre’ptrfilel k shhfile 
1 Sd( file), fila,New = s HlingeSe( '$d( filing) :ivl+l, lvl’ <firing:lvl+l,1: filing) 
+d upontr “fmérm s News0,cbi(0)o"" k Gle 
5 ivlelvl+l 
i lvl s CA(O)=OR,DO8OK f felvl:—1:1 s:Sd(DA(i-1)) DA(i)OQA(i-1) 


56) FOSTFIELD COLE: 
i ivi s CA(O}OA £ ielslslvl s:Sd(DA(i)) DACi-1LA(i) 
silyl OfeCA(O) k DAC v1) ,0%(0),O1 s lwlelvl-1 


16 CALLS M/PCRM: NATURE OF INOURY/ILLNESS (#642) 


M/PORM: NATURE OF INQURY/ILLNESS (#642) 


i. PRP-fCRM OTE 


n filen, pptfile,New s:/Sd(nocomp) filam “ptc( i form, 99) 
+6:Sa(nocomp) filene’ptg( 903, ifoam,99) s New), ptfileel 
S Ue""" 4 'SG(DT) s eGad(SH), OTe" d “WOT 5 Dey k X,¥ 


d sec’ fantom 
d crindx” Snfoa 
IT. WINGS . 
FRE OF SORES ew CSSCSCSC~—SSSCSCS 
‘0 ELEM IT DXA TYPE POINTER GLOBAL REFERENCE OR INPUD VERIFICATION 


2k ATURE OF TNOURY 2XPLANA ‘ORO PROCESSING 
4 FCAM FID ¢ 1 


<8 STORE = Spt“ 10C( ON 1),101,00,0),"",1) 





1. POSTON CIE 


i Sdi file), file s filingeSe( ‘Sd filing):ivl, pia Wl ,1: filing) 
+d auf fle’ fatoe d nocaO* fatto 








1720 USUAL WOPR ACTIVITY FCINIER 
M/POR™ FID § 73 


23 SICPED: ropbere 








29 PREFIELD CIE: 
$:°Sd(lvl) IvleO i Sd(cbi(0))>9 s sdinfile=l d fileme’ptrfilel k shhfile 
i Sd( file), file,New'=O s filingpse('$d( filing) :lvl+l,lvl'<filing:lvl+l,1: filing) 
+d upontr’fmfon s News), cbi(0)="" k file 
s lvl=lvl+l 
i lvl s CACO MCA, DGAER f imlvl:-1:1 s:Sd(DA(i-1)) OAli)=OAfi~1) 
k DAO) Ss Dh" Dla" 


30 POSIFIELD CCIE: 
i lvl s CALO}EA f selsLslvl s:Sd(DK(i)) OAC i-1 @QA(i) 
8:lvl CeeCA(0) k DA(lv1),OK(0),21 s Ivlelvl-1 
16 CALLS M/FORM: USUAL WORK ACTIVITY (8691) 


M/PORM: USUAL WORK ACTIVITY (#691) 





I. PRE-CRM COE 
n filen, ptfile,New s:'Sd(rocomp) filene’ptc(ifonn, 99) 
+6:Sd(nocamp) filane’ptg( 903, ifoom, 99) s New), ptfilen! 
$ Um""" i Sd(DT) § MeGadk(SH), WOT="" d “WT 8 Oley k X,Y 
d sec” fimfo 
Tl. WINS 
. 
CATA ELEMENT CATA TYE FCINIER GLOBAL REFERENCE OR INEUT VERIFICNITON 
.Cl USUAL WORK ACTIVITY POINTER 1007) = rN 1007, 
M/PCRM FID ¢1 
20 CONVERSION CLE: 38 comGa(cane"™:"", § (Sd(“IND( 1007, can, 0) 810) :cam, 1:99 “IND(1007,cm,0),"°",2)) 
28 STORED: = Sp( “ICC(DA(1),1709,04,0),°°", 1) 
32 POST FILING COE: d setinck fotos 
54 INCEX: = “ICC(OM1),1709, "B*) 
SS LOCKUP NCE: «1 °60Sp¢ “IQC( ON 1),1709, Lids,0),"°",1) 


2 CONT/INIER SET OF COS C:CONTINULS 
T: INDRUTINT 


4 PCRM FID # 3 


20 CO}MERSICN COLE: 8 COA 9" ;C: CONTINUA; 1: INTERMITTENT; *,";" cn ":",2),";",1) armo(cm, *:",1) 
2B STORED: =9p( “IOC (DN 1),1709,00,0),"°", 3) 


3 HOURS PER CAY NUMFRIC FORA Rr oX es 1 XD10) 1 (KO) 1002.21". "IN.N) X 
M TORM FID 6 4 
oB TTORED: «= 9p “CCL ON 1), 1709, 0),77", 4) 

5 CDA MERIC PORPRT Kz 0X Kl (X5150) 1 (XO) 11X21". INN) X 


r 
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M/FCRM FID # 6 
28 SIFED: Spf “1OC(DA(1) ,1709,08,0),""".6) 
P<) ee, COLE: 


I ’$d(chd(1)) s skip-"D" 
& Sd(cti(1)) s:$p(cbi(1),do,1)[ "NOISE " skip="D" 


4 DEGREES F NUPERIC FCORYAT K:4X'aXf (30200) ! (X<O) 1 (X?.E1L". "IN.N) X 
_M/FORM FID #5 
28 STORED: $pf “I0C(DR(1),1709,08,0),"7",5) 
29 PREFIFLD CO: 
i 'Sd(chi(1)) s skip” 
i Sd(chi(1)) s:Sp(cbii(1) do, 1) "BRT" (Sp( chi (1) ,db,1)'="COLD") skip»"D" 
1 CESCRIPTIN OF ACTIVITY FRE Ter K:$2.(X)>50!(SLAX)<1) X 
M/PCRM FID ¢ 7 


28 STORED: §=$p4 “ICC(OR(1),1709,04,0),"°",2) 
44 POST ID: s ecm K:SL(X)>50!(SEAX)<1) X 8:°SdiX) am*" g:anl"°" cm" 





TI, ROST-4CRM COE 


i Sd( file), file s aac welt heaters pth zlvl, dvb filing: ivl,1: filing) 
+4 node0* fnérm 


ed 


1702 JOB REQUIRES ORIVING Set OP COLES Y:¥2S 
N:NO 


M/FCRM FID # 68 


20 COWSRSICN (COE: 6 ateGo( Soi": YES;NsNO;",";" cm "2",2),";",1) ,camOpycam,*:",1) 
28 STORED: §=Sp( 00K, 1700),,°*", 1) 


L702. LSPECTFY VEHICLE FREE TEXT K:SL{X)9201(SAX)<1) X 
M/PORM FID # 31 
23 SICRED: = Spt “TOC(OA,1700),"°",9) 
Pas) sd y COLE: 


I ’Dictt (68}) 6 skip="” 
1 3. chd (68)) ezchk (68) ("1 (chet (68) (°N") ship” 


44 POST ID: 6 Mecms X:S2(X)>201 (SAX) 1) X 9:°Sd(X) cee" granl"*" ame" 


1703 JCB REQ OPERATING MACHIN SEY OF CUES Y¥:¥88 
N:NO 


M/PCRM FID § 69 


A~217 





20 COWERSION COTE: 5 armed Spi" 7 ¥:YES;NeND;",";" am ":",2),"5",1) amGp(am,":",1) 
28 STORED: Spt “ICC(0A, 1700} , """, 2) 


1703. LSPECIFY MACHINERY FREE TEXT K:SL(X)>201(SEAX)<1) X 


M/FCEM FID # 13 


28 SICFED: $p( “TCC(DA, 1700) ,"*", 10) 

2 PREFIELD COE: 

T'S chi (69)) s skipe"D" 

i Sd( ci (69) ) $:cbi (69)["n"! (bi (69)[ "N") skip»"—" 


44 FOST ID: § Mean R:SL(X)>20! (SLX) <1) X s: "$d(X) am" s:ang"°" ane” 


1704 HRS PER DAY EMP WORES NUMERIC PORYAT KX" XK! (308)! (XL) 1(X2.£1", "2.N) Xx 


M/FCRM FID # 14 
28 STORED: §$9( “ICC(DN, 1700), "7", 3) 


1705 DAYS PER WEEK EMP WLRRS NUMERIC PCRYAT Rr+X'mX1 (905) $(XCL).(X2.22"."1N.N) X 


MACH FID #15 
28 STORED: = $p( “ICC(DA,1700),"7", 4) 


14 REPORTING GFICE FOUNIER 1063’ 1N0( 1083, 


14.0] 30 ACDRESS 


14.02 FO Clty 


14,93 FO SIE 


M/PCRM FID # 40 


20 COWERSICN arz: 5 Caan ( came", * ($(“IND(1063,cr8,0) 1010) seam, 1:94 “1NI('1063,cn,0),"7",1) ) 
2B SIRED: = $4 “ICC(DA,16),"°",2) 


FREE TEXT K:SU(X) 541 (SUX)}<L) X 
M/PORM FID 8 41 


2B STORED: Spl “ICC{DA,10),**",2) 
44 FOBT ID: © Mean K:SL(X)>701(SLAX)C1) X 8: /Sd(X) cme” s:an""" ont” 


FREE TEXT K:5U4X)>201 (SUX}KL) X 
MACRM FID # 2 


2 STORED: $04 “I0C(DA,10),"*", 3) 
44 POST ID: Mec R:SQ(X)>201(SLAKICL) X 82°Sd(X) cme 8:0 "*" gm" 


POINTER 1003’ 92z( 1003, 
M/PCEM FID @ 43 


20 COWERSION CHE: 8 arSe(ane"":"", * (Si “DIZ(1003,ca8,0) }810) scm, 1 : Spf “DEZ{1003,an,0),""",1)) 
<8 SICRED: A (0D, 10) ,"7", 4) 
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14.04 FO ZIP OYE FREE TEXT K:SL(X)>101 (SL(X)<5) X 
MFCEM FID # 44 


28 STORED: $(“ICC(DA,10),"°",5) 
44 FROST ID: s Weom K:SL(X)>10!(SL(X)<5) X s:’$d(X) an="” s:ani"*" ane" 


13 DUTY SIRTION FOINIER 1062’ 2N0(1062, 
M/FCEM FID # 45 


20 CONWWERSICN COLE: $s amds(am’":"",  (Sd(“IND(1062,cm, 0) )#10) sam, 1: Spf “IND(1062,am,0),""",i)) 
28 STORED: Sx “Ioc(mA,9),"°",1) 


13.4 DUTY STATION ACLrESS FREE TEXT K:$L(X)>541(SL{X)<L) X 
M/PCEM FID # 46 


28 STORED: $p(“ICC(0K,9), "7", 5) 
44 POST TD: $s Xecm K:$L(X)>70!(SL{X)<1) X s:/Sd(X) Gre" s:ani**" one"" 


13.5 DUTY SIRTIGN CITY FREE TEXT K:SL{X)>20! (SLX) <L) X 
M/FCRM FID # 47 


28 STORED: $( “ICC(TA,9),""", 6) 
44 POST ID: & ecm K:SL(X)>201(SLAX)<L) X 8: 18x) am" s:an("*" ane" 


13.6 OUTY SINTION SINIE POINIER 1003’ of2(1003, 
M/FCHM FID # 48 


20 COWERSICN CE: 5 ame (cm, “($d “DIZ (1003, cm, 0) )#10) som, 1:9p( “DIZ 1003,cn,0),"°",1)) 
2B STORED: 9p(“ICC(DA,9),""",7) 


13.7 QUTY SINTICN ZIP CLE FREE ‘TEXT K:SL(X)>101(SL(X)<5) X 
M/PCAM FID # 49 


28 STORED: Sp “TOC(DA,9),"°", 8) 
44 POST ID: s Mean K:S(X)>101(SL1X)<S) X #:/Sd(X) cane” g:cmf**" ce” 


CRIA ELEMENT OMA TYPE POINTER GLOBAL REFERENCE OR INSU? VERIFICATION 
1706 COES COC AGREE W/ EPP oT Set OF COE YsYES 
, NNO 
470M FID § 71 


20 CONVERSION CODE: 8 cam6p( 9p": YES ;N:ND;",";" cn ":",2),";",1) cap(am,":",1) 
28 STICRED: 9p “1CC(DA, 1700) ,""",5) 


AW-219 











1706. LEXPLAIN WHAT EMP ‘TOLD 0 
M/FCRM FID # 19 


28 STORED: nowhere 
29 PREFIELD COLE: 
I 'SXcbi(71)) 5 skip="D" 
i $d(cbi(71)) s:chi(71){"¥"! (doi (71L){“y") skip-"D" 
8:’Sd(lvl) lvl=O i Sd(cbi(0))>9 s shhfileel d filecre*perfilel k shhfile 
i $d( file), file,New’=0 s filingsSs( /Sd( filing) :lvl+l,lvl’<filing:lvl+1,1: ai 
+d upontr*finfon 6 News, chi(0)="" k file 
6 lvlelvl+1 
i lvl 5 DA(O)}OA,D0eQR £ ielvl:-1:1 s:Sd(DA(i-1)) OMi)=OALi-1) 


30 POSIFIPFLD CE: 
i lvl s DA(O)etA f iel:dslvl s:Sd(DA(i)) DA(i-1)eQA/i) 
s:lvl OhefA(O) k CA(]v1),DA(0),D1 s lvlelvl-1 
16 CALLS M/FORM: EXPLAIN DISCREFENCY (#692) 
M/PORM: EXPLAIN DLSCREFENCY (#692) 


Se aaa PEE I RET IE ESA RRP TEEPE CI SI A DOSES EE ETS, OND LI ELE ENNIO ES ES IS AOI RIE I: SUAD DOO TEE IAPS ERE ea 


Il. PRE-7CRM COLE 
n filen, pptfile,New s:’Sd(nocamp) filene*ptc( i form, 99) 
+8:Sd(noomp) filen=’ptg( 903, iform,99) 5 Newd, mptfile=! 
8 Un""" i 'Sa(DT) s MeGad( SH), WTe"" d “WT 6 Oley k X,Y 
d sec’ fmf 
@ crinck” finfom 
IY. WNOOS 
ene i ee 
CATA ELEMENT OXIA TYPE FOINIER GLOBAL REFERENCE CR INEUT VERIFICATION 
-Ol EXPLAIN WHAT EMP ‘TOLD YO WORD PROCESSING 
M/PCRM FID # 1 ; 


2B STORED: = $p( “ICC(DA(1),1701,08,0),"",1) 





III. FOST-FORM COLE 


i Sd(file), fle s pee "Sd( Filing) :lvl, iam 1: filing) 
+d shuffle’ fmérm d rock0* inf: 
a a 


1707 DESCRIBE CLINICAL FINOIN 
M/FORM FID # 20 


28 STICFED: mwhere 
29 PREFIFLD COLE: 


Aw220 











8:'$a(Ivl) lvleO i $d(cbi(0))>9 s shhfileel d fileone’ptrfilel k shhfile 

i $d( file), file,New’=0 s fi) inguée( '$d( filing) :lvl+1, lvl’ <filing:lvl+l,1:£iling) 
+d upmntr’ fimérm § New), chi(0)="" k file 

s lvlelvl+l 

i lvl s DA(O)=CR,DOSCA f iwlvl:-1:1 s:$d(DA(i-L)) DA(i)=OA(i-1) 


30 ECSIFTELD CLE: 
i lvl s CA(O)eOR £ ielsislvl s:Sd(DA(i)) OA(i-L)=DA(i) 
s:lvl OfetA(0) k DA(Iv1) ,DA(G),O1 8 lvl=lvi-1 
16 CALLS M/PORM: DESCRIBE CLINICAL FINDING (#693) 


M/PCEM: DESCRIBE CLINICAL FINDING (#693) 





I. PRE-PCRA COLE 
n filen, pptfile,New s:’$d(nooonp) filen»*ptc(ifoun, 99) 
+5:Sd(nocamp) filen="po3(903, iform,99) s News), rt files) 
S Us"*" i 'Sd(DT) s eGarl(SH),WIe"" d “WT s Diky k X,Y 
d sec’ finfom 
.d crindk* info 
Tr. WINS 
DACA ELEMENT COXA TYE POINTER GLOBAL REFERENCE OR INPUT VERIFICATION 
.Cl CESCRIRE CLINICAL FINDIN WORD PROCESSING 
M/FORM FID # 1 


28 STORED: 9p/ “ICC(DA(1),1702,04,0),"",1) 








TIT. FOST-FORM COLE 


i Sd( file), file s Caen '§d( filing) :lv1,lvb filing:1v1,1:filing) 
+d sruffle® fmérm d nodeO* finEon 





1706 CLAGNOSIS (INOURY) 
M/FCRM FID @ 21 


28 SICRED: rosherm 
29 PREFIFLD Oiz: 
6:'Sd(1v)) lvle) § Sabd (9) )>9 2 shhfileel d filecre* 


k sthfile 
i Sd(file’ ‘le,New’e) gs filingpéa(‘Sd{( filing):lvl+l ei ceiling ll+1,1: filing) 
4d upant.” fit 6 Nad, dd (O1e"" k file 
8 lvlalviel 


i lvl & "A(O}OR,DO8tA f ielvi:-1:3 $:$d(DNi-1)) ONL SOM i-1) 


3 POGIFIEL)) COE: 
i lvl 5s LAO“ £ ivlsislvl s:Sd(DAi)) DA il On) 


A-221 








6:lv) DPeQA(0) k OA(lvl),OK(C), Of s lvlelvl-1 
16 CALLS M/FORM: DIAGOSIS OF CONDITION (#€94) 


M/PORM: DIAGNOSIS OF CONDITION (#694) 





I. PRE-PORM COLE 
n filen, pptfile,New s:’Sd(nooomp) filene’pte( ifoon,99) 
+6:5d(nocatp) filen="ptg( 903, i form,99) 5 News), rotfile=l 
6 Un""" i 'Sc(DT) 8 YGacl(SH), S0Te"" d “WT s OMY k XY 
d sec*fnféoa 
d crindk” infra 


TI. WINS 


DAC OF CONDITION acca 
DRIA ELEMENT CRO TYPE POINTER GLOBAL REFERENCE CR NUD VERIFICATION 
-01 DIAGNOSIS (INOURY) WORD PROCESSING 
M/PCRM FID # 1 
2B STORED: = $p{ “ICC(DA(1),1703,08,0),"",1) 





TIT. POST-FCRM COLE 


i $d( file), file s CiLireptet “$e Eig) sv Wl dvb filinp Ivi,1:filing) 
4d shuffle” fmétm d noded 





L709 DLAGNOSIS (OTHER COND) 
M/FCRM FID # 22 


28 STICFED: nowhere 
29 PREFIFLD CLE: 
8:'Sd(lvl) IvleQ 4 Sd(chd(0))>9 § shhfileel d fileore’ptrfilel k sthfile 
i $d( file), file,New’=O $ filingsés( ’Sd( filing) :lvl+l,lvl’ <filing:lvl+1,1: filing) 
4d upcntr” infra 5 News, chi (0)0"" k file 
8 lvlelvl+l1 
i lvl 8 DA(O}<0A,D060A f jelvi:-1:1 s:$d(DA(i-1)) OA(1)=OAM(i-1) 


30 TOSIFIELD CLE: 
i lvl s DA(O)@OA f fel:1:lvl s:Sd(QA(i)) CAli-1)=0K(1) 
S:lvl OfeOQA(0) k CA(1v1),CA(0),O2 $ lvl=lvl-1 


16 CALLS M/PCRM: DIAGNOSIS OF OTHER (#695) 


M/PORM: DIAGNOA(S CF OTER (8695) 











I. PRE-FORM COLE 


n filen, rpttile,New s:’$d(noconp) filen=“ptc( i form, 99) 
+8:Sd(nocamp) filen’pog(903, ifomn,99) s New), rptfile=! 
S Us"*" i /Sd(DT) s XeGad(SH), Ie" d “$Or s Dey k X,Y 
d sec*fméon 
dq crinck*fmfon 
QD. woos 
FO ae ee rae een DIAGNSIS CF OIRER Wind 1 : 
OATA ELEMENT DATA TYE FOINIER GLORAL REFERENCE OR INFUT VERIFICATION 
.01 DIAGNOSIS (OER OND) WORD PROCESSING . 
. M/FCRM FID # 1 
28 STORED: S$e( “IOC(DA(1),1704,D4,0),"",1) 
TTI. ROS2-CRM COLE 


i Sd( file), file s filingés( ’$d( filing) :lv1, lvl filing:iv1,1:filing) 
“40 shuffle*fmfm d roceO*finfrm . 
TO GN EP FRRUNTORGYO STC OES Y:YES . . 
: N:ND : 
M/FCRM FID # 72 


20 CCNVEPSICN ODE: 58 CrmS SOU" FYE sNENO;", "7" cm_":",2),";",2),ammGplam,":",2) 
28 SICFED: 3A “CCEA, 1700) ,"*",6} 


1710. LFULL CR PART-TRe SET OF OES F:FULL TIME 
P PART TIME 
E:0UL Tie 
D:EFIT TIME 
M/PORM FID # 24 


20 CONVERSION OE: § aQp(9p(" FFU TO®;P:EART TIME; £:FULL TIME; 
D:EARY TEM", "3" ca “:",2),";",1) ,caSo(am,":",1) 
28 SICFED: Sot “ICQC(EA, 1700) ,"*",7) 
29 PREFIFLD Cre: 
I ‘Sd(cbi(72)) 2 
1 Sd(abi(72}) seb (72) (Nt (cd (72) ("Nn") sdp=")" 
1710. LEARI-TIME HRS PER CAY NUMFRIC FORMAT Ri +X?! (308) { (XL) 1 (X?.EL". INN) x 
M/FCEM FID ¢ 25 


28 STORED: $p{ “ICC(DA,1700),"*", 16) 


A-223 











29 PREFIELD COLE: 
I '$X(dbi(72)) s skip="D" 
i SA(Pd(72)) seed (72)("n"! (cbi(72)("°N") skip="D" 
I ‘SD(cbi(24)) s skip="D" 
i $A(cbi(24)) secbi (24)("E"! (coi (24)("F") skip~"D" 


1721 ALTERED WORK ACTIVITY FOINIER 


M/FCRM FID # 74 


28 STCFED: nowhere 
29 PREFTFLD CLE: 
8:'Sd(lvl) lvleO i Sd(cbi(0))>9 5 shhfile=l d filecre’ptrfilel k shhfile 


i $d( file), file,New'=0 s filingsGe(’$d( filing) :lvl+1, lvl’ <filing:lvl+1,1:filing) 
+d upcntr“fmfon s Newad),choi(0)=°" k file 
S$ lvlelvl+1 


i lvl § DCA(O)eQA, CODA f ielvl:-1:1 s:Sd(DA(i-1)) OA(i)@QA(i-1) 
k DA(O) Ss Oe" Dle''” 
30 FOSTFIELD CLE: 
i lvl s CA(O)A £ imdsl:lvl s:$d(DKi)) DACi-1)<QA(i) 
S:lvl DeeQA(0) k DA(1vl),DA(0),D1 s lvlelvi-1 
16 CALLS M/PORM: ALTERED WORK ACTIVITY (#696) 


M/PCRM: ALTERED WORK ACTIVITY (#696) 


a a ae ee re ter Rearere eeern merece een) 


CATA ELEMENT 


1. PRE-FORM COLE 


n filen, ptfile,New s:'Sd(nocamp) filene’ptc( i form, 99) 
+6:Sd(necamp) filene*ptg(903,iform,99) s New), rptfi len! 
S Us""" i 'Sd(OT) s XeGad(SH), OTe" d “WP s Diky k X,Y 

a sec” Snfon 


II. WINGS 





ALTERED LER ATTY Chron Le 
4k 


OFA TYPE FOINIER GLOBAL REFERENCE OR INPUT VERIFICATION 


-01 ALTERED WORK ACTIVITY FOINIER 1007’ = xN0(1007, 


2 CONT/INIER 


MFCR FID ¢ 1 


20 COWERSICN COE: 8 amSe(cane"":"", * (Sd “IND( 1007 cam, 0) ) #10) seam, 1: $p¢ “IN0(1007,n,0),"°",2)) 
2B STORED: $p(“I0C(DA(1),1710,08,0),""",1) 

32 FOST FILING (IKE: d setinck”fmeon 

54 INCEX: “*IOC(DA(1),1710,"B") 

£5 LOOKUP NOE: = 1°60°9p( “10C(DA(1),1710, Lids,0),"°",1) 


SE? OF COLES C:CONTIN.ILS 
1: INIERMITIENT 


M/FORM FID # 3 


A=224 








20 COWERSICN COLE: s ameSpt Sot" ;C: CONTINUCLS; I: INIERMITIENT;",";" arn ":",2),%3",1) ,ameSp(am,":" 
28 STORED: Sp( “10C(DA(1),1710,08,0),""",3) 
29 PREFIFLD OTE: i ‘Sd(chi(1)) s skip-"D" 
3 HOURS FER DAY (NUMERIC FORT. © Ks4X/=XK1 (5010) 1(C0)1(X2.E1"."IN.N) X 
M/FORM FID # 4 
28 SICRED: §$p( “IOC (DA(1),1719,08,0),"7", 4) 
5 OBA NUMERIC FORMAT K:4K’@X! (150) ! (XO) !(X?-EL"."IN.N) X 
M/FORM FID 4 6 
28 STORED: $p{“10C(DA(1),1710,0A,0),"*",6) 
29 PREFIELD CCLE: 
I "$dicbi(1)) s skip-'D" 
i $d(qhi(1)) s:$p(abi(1),do,1)/{ "NOISE" skip»"D" 
4 DEGREES F NUMERIC FORMAT K:+X/ eX! (30200) (<0) !(X?.EL"."IN.N) X 
M/FORM FID #5 
28 STCRED: Sp “ICC(DA(1),1710,08,0),"7",5) 
29 PREFIELD COLE: 
I "S0(chi(1)) s skip-"D" 
i Sd(qbi(1)) s:So(ctsi (1) db,1)’ ("COLD"6($P( chi (1),db,1)"["HEAT”) skip="b" 
1 CESORIRE ACTIVITY FREE ‘TEXT K:$T(X)>50! (SL(X)<L) X 
M/FORM FID # 7 


2B STORED: $p(“IOC(DA(1),1710,08,0),"*",2) 
44 FCST ID: = 8 Mecm K:SL(X)>50!(SLAX)<1) X 8:/Sd(X) ane" s:anl"*" cme" 





TTT. FOST-ORM CE 


i Sd( file) file s filine4s(/Sd( filing) :lvl,lvbfiling:ivl,1:filing) 
+4 nodeO* infra 





DAA ELEMENT CX TYE POINIFR GLOBAL REFERENCE OR INFUT VERIFICATION 
1712 DESCRIBE FURIFER RESIRIC 


_ M/FORM FID Go 27- 


233 SICHED: nowtere 
29 PREFIELD COLE: 


A-225 

















8:'Sd(1v1) lvl=O i $d(cbi(0))>9 s shhfile=l d filecre’ptrfilel k sthfile 

i $d(file),file,New’=O s filingpGe( ’Sd( filing) :lvl+1,lvl’<fLling:lvl+1,1: filing) 
+d upentr*finfrm 5 New0,chi(0)="" k file 

8 lvlelvl+l 

i lvl s DA(0)=0R,D0e0A f ielvl:-1:1 s:$d(DA(i-1)) DA(i)=OK(i-1) 


30 FOSIFIELD CLE: 
i lvl s DA(O)=OR f imisl:lvl s:Sd(OA(i)) DA(i-1)OA(i) 
S:lvl DAeQA(O) k OA(lv1! ,DA(O),D1 s lvlelvl-1 
16 CALLS M/C RM: MEDICAL WORK RESTRICTIONS (#697) 


M/FORM: MEDICAL WORK RESTRICTIONS (#697) 





1. PRE-FORM COE 


n £ilen, rocfile,New s:'S$d(nocomp) filene“ptc( ifomn, 99) 
+6:$d(noomp) filene"ptg{ 903, ifonn,99) 5 New, rptfile=) 
& Ue""" i 'Sd(DT) s YeGad(SH), WIe"" d “Wr s Dey k X,Y 

d sec” fméon 
a crirck fir€nu 


I. WINOS 





VEDIGAL WORK RESIROCTIONS Winkw TO 
DATA ELEMENT CATA TYPE POINTER GLOBAL REFERENCE CR INPUT VERIFICAITON 
.01 DESCRIBE FURIHER RESTRIC WORD PROCESSING 

M/FORM FID # 1 

2B STORED: $p{ “ICC(DA(1),1706,DA,0),"",1) 





III. POST-FORM COE 


i Sd( file), file s SlingsGe(’Sd( filing) :lvl,lvbfiling:lvl,1: filing) 
+0 shuffle* fmfoa d nodeO* info 


1713 TCTAL DLSABILITY FROM OXTE S WIe"E" D “WI S MY K:Ycl X 
M/PCRM FID # SO 
20 COWERSION CLE: 





s Xa"(" s:+Se(an, 4,5) 
YmX_ Spd "JAN, FEB.MAR-APR.MAY. JUN, JUL.AUG. S2P.CCT.NOV.DEC",".",+Se(cm,4,5)) " ° s:eSe(am,6,7) %xK Se(om,6,7) ", * 
Ss 


¥eX_(1700+Se(an, 1,3)) 
$:Sp(an,".",2)'="" XeX " at * Se(an_"000",9,10) _":" Se(aa_ "000", 11,12) 8 ¥eX_")" 
s8:4="(1700)" Xe"" Ss ane 
2B STORED: =9p( “10C(DA,1707),"°",1) 


1713.1 TODAL DISAAILITY TO ONTE S Wl"E" D “WO S Ney K:Ycl X 


A~226 











M/FCRM FID # 51 


20 CONWWEFSICN COLE 
Ss Xe"(" s: seeiainds 5) XK C Sp( "SAN. FEB.MAR.APR.MRY.JUN.JUL.AUG. SEP.OCT.NOV.DEC","." 
,rSe(an,4,5)) " " s: +Se(am,6, 7) %K Se(an,6,7) ", "5 XK ¢ (1700+Se(amn,1, 3)) 
s:Sp(an, " a > at" * Se(am "000", 9, 10) _*: we " ' Se(an 1 *000", nh, 12) Ss XX Es" )F 
s:¥e"(1700)" Xe" 5 cre 


7B STORED: 9=$p( “IGC(0K, 1707) ,""",2) 
44 FOST ID: 
i $d(chi(50)) s skip="D" 
s Xeem k:X<9p(dhi (50) ,db,2) X i ‘Sd(X) s am" s:anf"*" am” 


1714 PARTTAL DISABILITY FROM ONIE S We"E" D “WT S MY K:¥<l X 
M/FORM FID # 52 
20 CONVERSICN COLE: 
8 Xe"(" s:+Se(em,4,5) aX C Sp( "JAN. FES MAR.APR.MAY.OUN.OUL.ALG. S2P.OCT.NOV.Ce","."" 
pee 5))_" " s:4Se(cm,6,7) XK Se(an,6,7) ", " & XaK ¢ (1700+$e(an,1, 3)) 
8:Sp(am,".",2)'="" %ax_" at " Se(cm "000" 19,107. ":" Se(am n "000",11,12) s %mK_")" 
“$:Xm"(1700)" Xe"" s cmeX 
2B STORED: Sot “Ico (DA, 1707) ,""", 3) 
171. LPBRTIAL DISABILITY TO DATE S Wi-"E" D “MOT S Mey K:YCl X 
M/FORM FID # 53 
20 COWERSICGN COE: 
& e"(" §:+Se(cm,4,5) Mek So{ “JAN, FEB.MAR.APR. MAY. JUN. JUL-AUG. SEP.OCT.NOV.DE”,"." 
rSe(an,4,5)) " "Bs +$e(cit,6, 7) Ye Se(an,6,7) ", " & XK (1700+Se(an,1,3)) 
8:Sp(an,".",Z)/o"" %eK_" at " Se(an “000" 79,107," * Se(an*000",11,12) 5 %eK_")" 
8:¥="(1700)" es" § cnet 
28 SIREN: Sp “Tec (0A, 1707) ,""", 4) 
44 FCET ID: 
i '$d(dhi(52)) $ skipe"D" 
; Yeon k Xp dai (52) ,db,2) X i ‘Sd(X) s am"" s:anf"*" cme” 


1715 AOVISED EMP CAN RESUME W S2T OF CLES YS 
N:ND 


M/PCRM FID # 67 


20 COWERSICN CLE: 8 amd Sp(";¥:YES;N:NO;",";" am ":",2),"7",1) moo(am,": 
28 STORED: =9p( “T0C(mR,1700),"*", 11) 


1715. LORIE OF ADVICE CXIE S Wm" D “Wr S WY K:Yd X 
M/PCRM FID $ 31 


20 COWERSICN COLE: 
, 8 4e"(" s:+6e(c0, 4,5) FX Sol “JAN. FEB_MARLAPR MAYJUN. UL AUG. SEP OCT. NODE”, "." 


A-227 








Se(am,4,5)) " " s:4Se(can,6,7) Hak Se(am,6,7) ", " s XK (1700+Se(cm,1,3)) 
g:Sp(an,".",2)'="™ Yak " at " Seta ”000",9,107":" Se(am"000",11,12) § XeK_")" 
5:%="(1700)" Xe" § cteX 

28 STORED: =$p( “I0C(DA,1700),"°",12) 

29 PREFIELD CTE: 
I 'S0(chi(67)) 8 skip="D" 
4 $A(chi(67)) ssc (67) ["n"! (chi (67)("N") skip="D" 

1701 DAE OF BAM DATE S Wle"E" D “WT S WY K:Ycl X 
M/FORM FID # 32 


20 COWERSICN COE 
S Xa"(" peau: 5) YeK_9p( "SAN, FEB.MBRAPR.MAY UN. JULAUG. SEP .OCT.NOV DEL”, mM 
+Se(an,4,5)) " " s:+Se(am,6,7) XaK ¢ Se(an,6, 7)", " & eX t (1700+Se(cm, 1, 3)) 
a:Sp(an,". * 2) Hk at" ' Se(an n "000", 9, 10)": 2" Se(aa a "000", 11,12) & ¥eXx_")" 
8:Xee"(1700)" %e"" 5 ck 
28 STORED: $p¢ “IOC(DA,1700),"°",14) 
1716 NEXT EXAM DONTE DATE S Wl"E" D “WI S XV KYA X 
M/fCRM FID # 33 
20 COWERSICN COLE: 
Ss X="(" s:sSe(an, 4, 5) Yek_Sp{ "JAN. FEB.MARAPR. MAY. JUN.JUL AUG. SEP .OCT.NOV DE”, ” 
»+Se(2m,4,£)) * "ss +Se(an,6, 7) ¥eX Se(am,6,7) ", “ 8 MK (1700+Se(cm,1,3)) 
s:9p(an,".",2)'="" Yak" at * Se(an “000",9,10)_| wy ' Se(an “C00",11,12) 6 ¥X_")" 
8:Xe""(1700)" Xe"" s aneX 
28 STORED: $p(“ICC(DA, 1700) "7", 13) 
400 ATTENDING PHYSICIAN fREE Text K:SL{X)>301(SLX)<l) X 
M/FCRM FID # S4 


28 STORED: $p(“ICC(DA, 40),"**,1) 
44 POST ID: ss Meam K:SL(X)>301(SL(X)<1) X 5:/Sd(X) ane" ssom("*" on" 


400.1 COCS ADDRESS FREE TEXT K:SL{X)>S41(SL{X)<1) X 
MV/PCRM FID # 55 


28 STOFED: 9 9p( “10C(DA, 400) ,"*",2) 
44 POET ID: ss seam K:SL(X)>45!(SL(X) 1) X s:’°Sa(X} ome" ssan"*" ane” 


490.2 DOCS crry FREE TEXT K:$U(X)>201 (SL(X)<1) X 
M/EORM FID # % 


23 STORED: $9 “10C(OA, 400),""", 3) 
44 POST ID: g Yecm K:SL(X)>201(SL(X)<L) X s:°Sd(X) ame" s:anl"** one" 


a ara 








420.3 DOSS SINE FOENIER 1003’ DIz(1003, 


M/PORM FID # 57 


20 COWERSICN COKE: «5 omée(am*":"" +" ($a( “HEZ(1003,cm, 0) )#10) :om,1:9X EtZ(1003,an,0),"7",2)) 
28 STORED: =Sp( “IcC(mA,400),"°", 4) , 


400.4 DOCS TIPE Fre TEXT K:SL(X)>101(SL00<5) X 
. M FORM FID 458 


28 STORED: Sp¢ “Ioc( mA, 400),*°", 5) 
44 2CST ID: ss Norm K:SL(X)>101 (SAK) <5) X S:'Sd(X) ane"* g:omf"°% cme”" 


ah.) SPRCTALITY FREE TEXT K:SL(X)> Br TU{XIC1) X 
M, FORM FID ¢ 59 


28 STORED: = $p¢ “TOC(mA, 400),°7", 8) 
$4 POST ID: $ Kec K:SLiX/>3O'{SLIX)CL) XK s2/Sd(X) ome" gran 7°" om" 


“OO. TAK DD FREE TEXT K:SL(X)>1L08(SL(X)<1) X 
™, FORM FID 


#40 

Spt “1C0!1DA, 400),°"",9) 

& Worm K:SL(X)>101(SLA KCL) X 82 /S(X) cte"™ ssa 7°" ne” 
OXE 


sha 


STORED: 
POST TD: 


64°C, 4 OME SIQED 5S SOT™"E" D “WOT S MeY Ki YCl X 


M POFM FID #51 


20 COMEPGICN ‘Ine: 
S Ye" §:6Se( can, 4,5) AaK_ S04 “AN. EB. MAR_APR. MAY. UN. OULAUG. SEP.OCT.NOV. DBI", *.* 
, oot, 4,51) 7" §:+Se(cn,6,7) New Setam,6,7) "%, *% 8 Yak (1700+Se(cm,1,3)) 
s:Splam,".", 2's No" at" Sefcom “000",9,10) *:" Sean “000%, 11,12) & %K ")” 
&:Xe"(1 700)" ee" sam a rs ~ 


28 STORED: «= Spf “IC( OW, 400)", 10) 





ITT. ROST-FORM COE 


i 2d file), file, New) 6:'Sdijul) Ivled 
+8 filingeGe( ‘SK filing) :ivl,lvbfiling:lvl,1: filing) 
+d upontr infos 
i fileel!(SMERPLAG)) d “TOCFIL™ 


a AEA EEE I ET LTTE STS NTE EER ERR IS. EIST IES SEEM ROTI TLS EOL E ELS OE CL AI IEEE ALE ISLE DELI E LL ASD EEE LL 
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1} 
fs 

+ 

+ 
* 
ro 
. 
re 
al 


. 


sao 
7 6 


t+ 2 OO OCD 


tire 
oe 


Ce tell Seal el eel aie 


oi oe 


sitar R29 


tot 


ee TR ENTMENT DATES 


~a BD Ut de Lv 


4 WD 
oe 


“ADORESS 


Eee 





CA-20 ATTENDING PHYSICIAN’S REPORT 





2ECORD OF EXAMINATION 


EAT LENA 'S NAME (LAST, FIRST MIDDLE) 
DATE OF INSURY 

CNC? FILE NUMBER 

PRE-EXISTING INJURY OR DISEASE D-3 CODE 

*Press <Return> for DESCRIBE CONDITYON® 

*Press <Return> for DESCRIBE CLINICAL FINDING*® . 
*Press <Return> for DIAGNOSIS OF CONDITION*® Icn-9 CODE 
EMPLOYMENT CAUSED/AGGRAVATED CONDITION? 

PLEASE EXPLAIN ANSWER “Press <Return> for DOCTORS EXPLANATION? 
DID INJURY REQUIRE HOSPITALIZATION? 

DATE OF ADMISSION 10. DATE OF DISCHARGE 
ADDITIONAL HCSPITALISATION RECUIRED? 
AHAT TREATMENT DID YOU PROVIDE? 
*Press <Return> for OTHER TREATMENT PROViDED* 

DATE OF FIRST EXAM 

Press <Return> for TREATMENT DATES 

SATE DISCHARGED FROM TREATMENT Nec 

PERIOD OF TOTAL DISABILITY FROM YHROUGHS—~CSCS 
PERICD OF PARTIAL DISABILITY FROM THROUGH ; = 
DATE EMPLOYEE ABLE TO RESUME LIGHT WORK __ fe ee re 

TE ABLE TO RESUME REGULAR WORK 

ADVISED EMPLOYEE TO RETURN TO WCRK? wi. DAE CF A 
"Press <Return> for WORK LIMITATIONS*® 23. ANY PERMANENT t EFFECTS 
*Press <«Return> for REMARKS* 

NAME OF PHYSICIAN IF EMP NEED REFER TO 
ADDRESS ; 

orks is Janene 

SPECIALITY 

PEASON FOR REFERRAL 
SIGNATURE OF PHYSICIAN WANshHO OME SloNDcme gk ee 
NAME OF PHYSICIAN 








STATE wiP COD 














3ST Ale =tP CODE 
TAX YS NUMBER” eee ay ESTES 
DO YOU Saco ota neat 
IF YE5, INDICATE SPECIALITY 














DATE OF TREATMENT _ 
DATE OF TREATMENT __ 
DATE OF TREATMENT _ 





4 Processing Window will appeac. 


‘AAO 














MACH OF-20 (4708) ° 
cs REIT PRE DR EPI IT REDS RTT DSS ONT TIT EE EOL EC LITE SITIES TOLD ELLE ESL SE LO IEE TELLS. 
1. PRE-#CRM CLE 


n filen, rptfile, filing s:’$d(noonmp) filen="ptc(ifonn, 99) 
+5:$d(nooomp) filen»“ptg( 903, ifoon,99) s New, pptfilewi, idexiste2 k ident 
Ss Un" i 'Sd(DT) Ss XxSad( SH), Se" d “WI s Dey k X,Y 
d sec’ finfoa 


Il. WINGS 


18 INTERNAL DEFALLT: NAMEPIR 
20 CCAVERSICN COLE: «35 cmeGe(cme"":"", " (Sd( “EMPEOY(cm, 0) #10) sam, 1:9 “EMELOV(can, 0) ,"°",1)) 
28 STOPED: $4 “10C(ma,0),"°",3) 
22 POST FILING COLE: d setincx” infra 
44 SOST 1: i Sd(new) s:’Sd( “TOL, C* new,xL)) megqe"Claim noe logged”, yetd cme” 
$4 noex: “rar "c") 
55 LOOKUP NIE: 
52° 35°Sof “100( Lids, 0),"**, 3) 
2723°Sp4 “100 ( Lids,,0) ,"°",2) 
1 DOURY TLUESS ONE 4 TI ONE 5 Whe EI” D “WT S Mey K:Ycl X I SOX) K:SP(X,".", 108 X | 
M-FORM FID @ 2 


20 COWERSION CLE: 
Ss Xe"(" §:4Se(cm,4,5) eK Spt CAN, FEBMARLARR. MAY. OLN, JULAUG. SPP .CCT. NO. ORC”, 7." 
,+Se(am,4,5)) 7" 5:+Se(cm6,7) Xa Se(cn,6,7) ", % § %eK (1700+Se(cm,1,3)) 
8: 5Aam,".", 2%" He" at * Se(aa “000",9,107 "2" Se(am "000", 11,12) 6 wK_")" 
&:40"(1700)" te" § on 


23 STORED: 9 9pt“1c(mA,0),"°", 2) 
2 PCET FILG COLE: di setirck” fof 
SA DEX: “1c "D") 
55 LOCKUP NCKE: 
2°23° So “TOC Lids 0),°°",2) 
52° 25°HX “TOK Lids 0) °°", 3) 


137 CACP FILE NUMBER FROZE TEXY K:SLAX) LI (SLAXICL) X 


FORM FID @ 3 


2B FED: =F “TOC(MA, L00),°*", 6) 
44 PBT ID: 6 wm RUA) (ARC) XK 8:°Sd(X} cee" 6:anf"** om 











1606 PRES, PRICR CONDITICN SET OF COLES Y¥:YES 
N:ND 


M/FCEM FID # 53 


<0 CONVERSION COLE: 5 ame Sot" ¥: YES ;N: ern on bak dd 2),"7",1) amSo(an,":",1) 
28 SICFED: $pi “ICC(DK, 1600),"°", 3) 


“040 T0D-9 CODE FOR PRE-EXxXIST FREE TEXT K:$L(X)>6! (SL{X)<6) X 
M/FCRM FID # 32 


28 STORED: $4 “ICC(DA, 2006) ,"7",73 
4 RST ID: 3 8 Mean ck: 1SUX)>61( SLIX)<6) X 8:'Sd(x) om" s:0n("°* ce* 


1606. EXPLAIN INC/OIS/IMP 
™/FCRM FID # 5 


<8 STCRED: rmovhere 
29 PREFIPLD COLE: 
i *$d(chi (53)) 8 skip="0" 
4 Sdiciot(53)) seta (53) ("NE (cbd (S3)("r-") skip»"” 
$:'Sd(lv1) lvleO i Sd(chi(0))>9 s shhfileel d filemeperfilel k shhfile 


i Sd( file), file,Na=d) s filingea( 'Sd( filing) :lvlel,lvl’<filing:lvl+l,1: filing) 
+d upontr“inéra § NewsO,chi(0}="" k file 
S lvlelvi+l 


i lvl s ONO} OR, 0080A € felvl:~1:1 $:Sd(DAli-1)) DALLA i-1) 


30 POSTYTELD COE: 
i lvl s CA(O)MA £ iel:l:lvl s:$d(CA(i)) OACi-1L)<OAi) 
6:lvl CAeON0) k SCA iv1),.ONG6),O1 5 lvlelvi-l 
16 CALLS 6M RPA: CESCRIBE CONDITION (8702) 


M/PORM: DESCRIBE CONDITION (#702) 





1, PRE-AORM OTe 
n filen, optfile,New s:'Sdi(nocone) filane"pert iforn, 99) 
+6:Sd(nncamp) filane’ptg( 903, ifomm, 99) s Naw), ptfileel 
8 Ue" i SADT) 8 tGad( SH), Wie"" d “WT s Diy k XY 
d sec’ finfon 
d crinck” fmféoa 
UL. WOINUS 
———"TEVe GUN awl 
CATS FY EMENT CONIA TYE POINTER CLOBAL REFERENCE CR INPUT VERIFICATION 
.O1 EXPLAIN INJ/OLS/TMP WORD PROCESSING 


M/PORM FID @ 1 





28 STORED: =$p( “ICC(DA(1),1603,08,0),"",1) 





TIT. FOST-FORM COLE 


i Sd(file),file § filinosde( '$d(filing):lvl,lvb>filing:lvl,1:filing) 
+d *fméom d noded* 


shuffle nedeO” finérm 
1707 DESCRIBE CLINICAL FINDIN 
. M/FORM FID # 7 . | 

28 SICFED: rotere 

2 PREFIFLD CITE: 


s:/Sdilvl) IvleO i Sd(chi(0))>9 s shnfilel d filers” k shhfile 


ptrfilel 
1 Sd( file), file,New'a) s filingeds( 'Sd{ filing) :lvl+1, lvl’ <filing:lvl+1,1:filing) 
+d upentr*fefma 8 NewO,chi(0)="" k file 

§ lvlelvl+l 


i lvl s CACO} OR, DOOR £ felvl:—1:1 s:Sd(DA(i-1)) OACi OA( 1-1) 
3% FOSIFIELD Ce: 
i lvl s CA(O)@OR £ imlslslvl s:Sd(DAli)) DAli-1) Ai) 
s:lvl DeefA(O) k DA(1v)),0A(0),DL s lvlelvl-1 
16 CALLS M/FORM: DESCRIBE CLINICAL FINDING (#693) 


M/PCRM: OPSCRIBE CLINICAL FINDING (#693) 





1, PRE-PORM COLE 


n filen, rptfile,New s:‘Sd(nocamp) filen=“ptc( i form, 99) 

+8:Sd(nocomp) filene*ptg(903,ifoun,99) s New), ptfileel 
Un"*" 1 SADE) 8 MeGadi SH) ,Wte"" d “WP s OMY k X,Y 

di sec” fafa 

d crirck* infra 
1. WOOGS 
TESCIGEE CLINICAL FINDING ricky 1 
ORDA STEMENT 


CACA TYPE FOINIER GLOBAL REFERENCE OR INGUT VERIFICATION 


-01 DESCREBE CLINICAL PINOIN WORD PROCESSING 


M/POR FID #1 


20 STORED: =$p( “TOC(ON(1),1702,00,0),"*,1) 


oot 





en - 





» POOT-ACRM Cre 





i Sd( file), file s fi) inpSa('Sd( filing): lvl si a i: fining) 
44 chutfle*fiatom d rodaO” fntioe 





A=23) 




















1708 DIAGNOSIS (INIRY) 
M/PCRM FID # 8 


28 STCFED: rnowere 
29 FREFIFLD CE: 
s:'Sa(lvl) lvleO i Sd(cbi(0))>9 s shhfile=l d fileme*perfilel k sthfile 
i Sd( file), file,New’=0 s filings6e( 'Sd( filing) :ivi+l, lvl’ <filing:lvl+1,1:filing) 
+d upontr“fméoa s New), chi(0}="" k file 
§ lvlelvl+1 
i lvl s DA(O)=CA,00efA £ imlvl:-1:1 s: Sa(DNi-1)) DAL i aOR i~1) 


30 FOSIFIFLD CIE: 


i lvl 5 CA(O}OA £ iel:1:1vl s:Sd(DA(i)) OA(i-] tai) 
8:lv] OPeQA(0) k DA(1v1),DA(0),O1 s lvlelvl-1 


16 CALLS M/PORM: DOTAGOSIS OF CCNDITIN (#694) 
M/PCRM: OLAGOSIS OF CONDITION (#694) 
ALA TR EE MO IGOR NEM ETN I BRI IID BINION IE ISON ITN FEIT IEE BLE ENE PEELE BAIS EEO ES IEE NESTE ECE ELE NLT RS LEP I ATES TET ISS IO IEI A STM GOT SATIS WES EET IGE RT TEE ITY 
1. PRE-FORM COLE 
n filen, rptfile,New 5:'Sd(noaonp) filene’ptc( ifoan, 99) 
+6:Sd(noaamp) filene’ptg( 903, iforem,99) 5 New), ptfi lon) 
S Un""" 2 ‘Sd(OT) $ MeGzd( SH), We"" d “ACT 5 DieY k X,Y 
d sec’ finfon 
d coinck’ fméoe 
TZ. WINDS 
EAS OF ONMTEN Aw CCCSCSC™CSCSSSCSSSSS 
ORTA ELEMENT’ CRKOA TYPE POINTER GLOBAL REFERENCE CR INEUT VERIFICATION 
.Cl DLAGNOSIS (INOURY) WORD PROCESSING 
M/PCRM FID # 1 


28 STORED: §=$p¢ “ICC(DA(1),1703,08,0),"",2) 





TI. ROST-+CRM Ce 


i Sd( file), file @ filincgede( 'Sd( filing): lvl, Piha lv},1:£Lling) 
40 shutfle’ fifo d rode fio 


2040. 1ICD-9 COE FOR DIAGNOSIS Pree TexT K:SU(X)>61 (SAX) <6) X 








M/PCRM FID ¢ 2 


cA TIRED: 39S “TOC( A, 2006) ,""".8) 
44 FOBT ID: 8 Merwe K:SL(X)>61(S1X)<6) X $:'Sd(X) ame"" s:anl""" one" 


1607 COC BELIEVE INO WORK-FEL eT OF OES Y:¥ES 


A~234 








N:NO 
3 More FID + 54 


20 COWERSION CHE: 5 cme Sp": Ys VES;NEND;", "5" cam "2",2),"5",1) cman, "2",1) 
2B SICFED: $p( “I0C(DA,1600),""", 5) 


| -1607.1000 EXPLAIN-NOT WORK REL 


M/FCEM FID # 10 
23 STORED: moivre 
2 PREFIETD CIE: oe 
we’ SA(lvl) lvled i Sd(cbi(0))>9 s shifileel d fileme* k sthfile 
i Sdi fila), tile, News 8 filingée/ 'Sci( filing} :\vl+l, lvl! <filing:lvl+l,1:filing) 
+d upmitc*finfoe 8 News), chi(O0}="" k file 
& lvlelyl+1 
i lv. s DA(9)R DOTA f ielvl:-i:1 s:Sd(DA(i-1)) OP(i)=fA(i-1) 
30 FOSIFTELD COLE: 
i lvl s DA(OtN £ iel:lslvi s:Sd(DA(i)) FACi~-i)<fA(i) 
S:lvl OeOA(O) k DAClVl) 8/0) ,O1 s Ivlelvl~1 











16 CALLS M/PORM: SOCIYR’S EXPLAINATILN (4703) 


MAEM: DOCIOR’S EXPLAINAITOY (#703) 
. I, CRBs Ce 
n filen, rptfile.Ney s:*Sd(noomp) filen>“ptc( i form, 99) 

+8:Sd( mocap) filene"ptg(913,ifoun,°9) s Newel, cptri len] 
ste""" i 'Sd(DT) 5 XnGad(SH),OT="" 2 AGT 5 DIBY h XY 

d sec’ frfrn 

@ crirck’ finérm 

21. WINS 


ERS EXPLA REN Window 1 





CATA ELEMENT CROY. TYRE POINTER GLUBAL REFERENCE OR INT VERIFICATION 


-01 O00 EXPLAIN-NOD WORK FEL WO RCOSSING 
M/PCEM FID $1 


28 SICFED: =9pt “TCC{ON 1), 1606,08,0),"",1) 





TTI. POST-FCRM COLE 


i Sd( file), file s Et eae Il, lvb filing: lvl ,1: filing) 
+d shuffle’ finéna d noceO” info 
ARLES 


1608 RAQUIR® HOSPTIALICATIN Set OF COLES 





¥:¥S 


AW-235 














N:ND 
M/PORM FID # 55 


20 CONVERSION COLE: = s aneSp($p(";¥: YES;N:NO;",";"_am ":",2),";",1) ,amGp{am,”:",1) 
28 STORED: $p( “ICC(DK, 1600),"°", 4) 


2608.1 ACMISSION DATE OATE S Wle"—" D “MOT S HY K:¥cl X 
M/7CEM FID # 12 


20 CCNVERSICN COLE: 
s Ye"(" 6:4Se(am,4,5) XeX $p( "JAN. FEB.MAR.APR_MAY. JUN. JUL-AUG. SEP.CCT.NOW.DEL™,"," 
+Se(am,4,5)) ” " 6: sSelcn, 7) eK Sefcn,6,7) ", " s YK (1700+Se(cmn,1,3)) 
s:Sp(an,".",2)’=" YX" at" Se(cm "000",9,107 ":" Seem "000", 1i,12) © YaK.")" 
s:%="(1700)" %"" 5 amex 


28 STORED: 9p( “1CC(DA, 1500),"7",6) 
29 PREFIELD CLE: 
I '$d(chi(55)) § skip-"D" 
i Sd(cbi(55)) s:cba(55)( "NE (cbi(55)["n") skip="D” 


1608.2 DISCHARGE CATE ONE S Wle"E" D “WT S Mey K:¥d. X 
M/FORM FID # 13 


20 COWERSIGN CLE 


S Xe"(" §: sSeicn, 4, 5) 4eaK_Sp{ “GAN. FEB.MAR_APR.MAY. JUN. JUL.AUG. SEP OCT. NOV.DRC”,"," 
* Solan, 4, 5))_" " s:Se(amn,6,7) XK ¢ Se(an,6, 7)", " & XK (1700+Se(am,1,3)) 


s:So(an,".",2)’="" Ye" at" Se(an "9,107 *:* Seam ™000" /11,12) & K_")" 
s2%e"(1700)" %e"" 5 cmeK 


28 STORED: pall TRO we) 
29 PREFIELD COLE 
1 'S0(cbi(55)) s skip="D" 
i $d( coi (55)) ssabi( 55) ("N" (abi (55)["n") skips” 


1609 AQOITTONAL HOSPTTALIZATT Sey OF CES Y: YES 
N:NOD 
MACH FID # 56 


20 COWERSICN COE: = 8 cS $0"; ¥: YES;NNO;",";" ca *:",2),"7",1) ,amOplam,": 
28 STORED: Sp “10C( DA, 1600),*"", 8) 
29 PREFIELD COE: ; 

4 *Sd(chi(55)) & skip="0"* 

4 Sd(chi(S5)) seb (55)("n"! (cbt (55) ("N") skipe"O* 


1612 OTHER ‘TREXIMENT PROVITED 
M/FORM FID # 15 


28 STORED: nowhere 


A-236 








29 PREFIFID CIE: 
8:’$d(1v1) Ivl=O i Sd(chi(0))>9 s shhfileel d fileone*ptrfilel k sthfile 
i Sd( file), file,New'=0 s filingeGe('S$d( filing) :lvl+1,1vl’<filing:lvl+1,1: a 
+d upcntr“finfn ¢ New),chi(0}="" k file 
S lvlelvl+1 
i lvl s OA(0)<0A,D080A f iwlvl:-1:1 s: salenti-1)) DA(i )eCA(i-1) 


cs) FOSIFIELD Cre: 
“i lvl 5 DA(O}MOA f deLsdslvl s:$d(OK(i)) DA(i-1)<DAi) 
S:lvl DPeQA(0) k DCACIV1) ,cA(0),O1 5 lvl=lvi-l1 
16 CALLS M/FORM: OIKER TREMIMENT PROVILED (#704) 


M/FORM: CIHER ‘IFERIMFND PROVILED (#704) 





I. PRE-PORM OLE 
n €ilen, rptfile,New s:/Sd(nocemp) filen="ptr( i foun, 99) 
+6:$d(nocomp) ELlene*ptg( 903, ifonn,99) s News), rptfilewl 
8 Ue" i 'Sd(DT) 8 %Gad(SH),W"" d “WT s Dey k X,Y 
da sec*finérm 
d crinck*finém 
TT. WINGS 
DATA ELEMENT CAA TYE POINTER GLOBAL REFERENCE CR INGUT VERIFICATICN 
Ol OTER TRERIMENT PROVIED «= WEPD PROCESSING 
M/PCRM FID #1 


28 STORED: 9 So( “ICC(DA(1),1605,20,0),"",1) 





TI. ROST-CRM COLE 


i Sd( file), file $ epee "Sd( filing) :1vl, hee lvl,1:filing) 
+d shuffle fntoa d node0” finfma 





lol4 CAGE OF LST EXAM  ~ONE S WIE" D “WI S MY KY X 
M/FCRM FID # 16 


20 COWERSION CII®: 
8 ¥e"(" 8:+Se(ca, 4,5) ol | Sp( "ON. FEB LMARLAPR.PAY.OLN. OUL.AUG. S2P.OCT..NOV. DB”, 
~,t8e(crn,4,5)) " * 8:4Se(cm,6,7) eK Se(cm,6,7) ", " 6 MK (1700+Se(om,1,3)) 
5:25am, ",",Z)/a® >" at” ' Se{aa 000", 9,10) me ' Se{ca 000", 11, 12) s %X_")" 
5 2 "(1700)" Xe" § aK 


28 STORER: Spl “roc( oa, 1600),°°", 1) 
1615 (REREND OPES cAIE 


A~237 











M/FORM FID # 17 


28 SILFED: nowtere 
29 PREFIELD COLE: 
8:'Sd(lvl) lvl=O i Sd(chi(0))>9 s shhfileel d fileone’ptrfilel k sthfile 
1 Sd( file), file,New=) 5 filinpSe( 'Sd( filing) :lvl+l,lvl'<filing:lvi+1,1: filing) 
<d upontr’ fifo 8 News ,chi(0)="" k file 
§ lvlelvl+1 
i lvl s DA(O}=CA,DOMDA f ielvl:—-1:1 s:Sd(DA{i-1)) DA(LOA(i-1) 


30 FOSIFTELD CLE: 
i lvl $s CA(O}9OA f ielsisivl s:$d(DA(i)) OA(i-1)=0AK(i) 
S:lvl OfeQA(0) k DA(lvl),DR(0),O1 s lvlelvl-1 
16 CALLS M/PCAM: TREXDIMENT DATES (#706) 


M/PORM: TREXIMEND DATES (#706) 





I. PRE-FORM COLE 


n filen, rppefile,New 6:'Sd(nocomp) fileneptc( iform, 99) 
+6:9¢(nocar>) filen="ptg(903,iform,99) s New, rptfilee=] 
S Un"*" i 'SA(DT) § XeGad( Si), WOMme"" d “WT + Oley k X,Y 

d sec” fnfon 
@ crindk “finch 


Il, WINDS 
SERENE CRS a 
DAA ELEMENT CRIA TYPE POINTER GLOBAL REFERENCE CR INPUT VERIFICATION 
.01 TRERIMENT ORTES ORIE S WE" D “WI S MY KY X 
M/FORM FID # 1 


20 CONVERSION COLE: 
8 Ym"(" §:+Se(cm,4,5) 4eK_Sp{ "JAN. FEB.MAR.APR. MAY. JUN. JULAUG. SEP.OCT.NOV. DED, "." 
*Se(cm,4,5)) " * s:+Se(an,6,7) MK Se(an,6,7) ", " 5 HK (1700+Se(am,1,3)) 
8:S(am,".",2)"="" eK" at“ Se(cm_“000",9,107_":" Sefan "000", 11,12) s MaX_")" 
8:%e"(1700)" Xe"" § anX 


28 STORED: $p( “I0C(DA( 1), 1607,00,0),"°",1) 





TIT. FOST-PGRM COLE 


i Sd(file),file s filingGe('Sd( filing) :lvl, lvbfiling:lvl,1: filing) 
44 rode” fména 





1616 ONTE OLSCHARCED FIOM TRE CAOE, S WM"E" D “WI S Xe KY X 
M/ACEM FID # 18 


A-238 








20 CCNVERSION COLE: 
S %e"(" s:+Se(an,4,5) Yak Sp( “JAN. FEB.MAR_APR.MAY.JUN.JUL.AUG. SEP.CCT.NOV.DEC”," 
+tSefan,4,5)) "" s: +Se(cn,6, “) ¥eXK Se(am,6,7) ", * s 45K (1700+Se(am,1,3)) 
s:$p(an,".".2)’=™ Ye" at “ ' Se(an_“000",9,107_": mye ' Se(an_“000", 11, 12) s K_")" 
8: "(1700)" %="" 5 aX 


2B STORED: $p(“10C(DA, 1600) ,""",12) 


eS ape Se gee 


DATA ELEMENT DRA TYPE POINIER GLOBAL REFERENCE OR INPUT VERIFICATION 
"1713 TOIAL DISABILITY FROM DAE S WIRE" D “WP S WY K:Ycl X 
M/ACEM FID # 33 


20 CONVERSION CLE: 

8 Xe"(" 5:4Se(cm,4,5) eX 9p “JAN. FEB.MAR.APR.MAY.JUN.JULAUG. SEP.OCT. NOV. DEIC”,".” 
pony 5)) " * s:46e(cm,6, 7) WX Se(amn,6,7) ", " s MK (1700+Se(an,1,3)) 
s:Sp(an, " ” ,aya"™ eK " at" * Se(am “000",9,1 oy *: =, n ' Se(am "000", il ,12) BX Be ig 

5:¥="(1700)" "sank 


28 SICFED: $p(“10c(DA,1707),""",1) 
1713. 17OIAL DISABILITY TO DATE S We"E" D “MOY S Me K:¥<l X 
M/FCRM FID # 34 


20 CCAWWERSICN CLE: 

& Yea"(" §: +Se(cm, 4, 5) 260K_Sp{ "JAN. FEB.MAR.APR. MAY. JUN. OUL ALG. SEP COT. NOV. CE”, ”." 
*sSe(am,4, 5)) " "8: +Se(cm,6, 27) *K ¢ Se(an,6,7 )", " 8 WX (1700+Se(am,1,3)) 
8:Sp(am,".",Z)'="" Yok" at ” * Se{can "000", 9,10) ' mn * Se(an "000", 11,12) © 4eK_")” 

8:%"(1700)" 4="" § cm 


23 STCRED: $p(“Z0C(DA,1707),"°",2) 
44 FCST ID: 
i '$d(coi(33)) 5 skip="D” 
§ Mec k2XCp( abd (33) ,db,2) X i ’Sd(X) s am"? s:an{"" one"” 
1714 PARITAL DISABILITY FROM CATE S Wle"2" D “WT S HY Kel X 
M/PCRM FID $ 36 


20 CONVERSION COR: , 
8 %e="(” 5:+Se(am,4,5) YK _So( “JAN. FEB. MAR.APR.MAY JUN. JUL.AUG. SEP.OCT.NOV.DEC", Pies 
alee’. 5)) " "8: +5e(cm,6, 7) WK Se(cn,6,7) ", " 8 MK (1700+$e(cm,1,3)) 
s:$p(an,".",Z)'a"" XK" at " Secon “000",9,10)_": me ' Se(ca "000", 11,12) 8 %K")" 
$:%="(1700)" Xe" 5 anK 
28 SIREN: Yp(“1oc{nw, 1707), "*", 3) 
1714.1 BARTIAL DISABILITY TO Ee S Wie"E" D “Wr S H¥ K:¥<1 X 


M/OCRM FID # 35 


A-239 © 











CONVERSION COLE: 
s X"(" EY S) XeK_Sp(“UAN. FEB. MAR.ADRMAY.OUN. OLL.ALG. S8P OCT. NOV.OE”," 
,+$e(am,4,5)) “ " s:+Se(am,6,7) Yak _Se(am,6, 7)", " SX ¢ (1 700+§e(cm,1, 3)) 
s:So(an,".",2)/="" XeX " at " ' Se(am 2 “000", 9 10)": mm ' Se(an a *000",11, 12) 5 XeaKx_")" 
$:%="(1700)" xe" s anX 


28 STORED: $p( “I0C(DK,1707),"°", 4) 
44 OST D: 
i ’Sd(chi(36)) s skip="D" 
: Nemo k:X<Sp( cbt (36) ,do,2) X i ’Sd(X) s om" s:an""" am"" 


1617 DATE RESUME LIGHT WORK OAIE S SDIe"E" D “ROT S Mey KY) X 
M/FCRM FID # 21 


20 CONVERSION COLE: 

& Xe"(" 8:4Se(cm,4,5) XeX_Sp( "JAN. FEB.MAR.APR.MAY.JUN.JUL.AUG. SEP.OCT.NOV.0EC",”." 
cee t 5)) " " s:+Se(cm,6, 17) YeK Se(amn,6,7) ", * XK ( (1700+Se(am,1, 3)) 
8:Sp(am am,".",2)'="" XX" at" ' Se(an "000", 9,107 ":" Se(ca 2 *000",11,12)  %K_")" 
s2Xe"(1700)" Xeo"" 5 cmeX 


28 STORED: $p( “1CC(DA, 1600),""", 13) 


618 OATE RESUME RAG WORK CRCE S WIe"E" D “WT S HY K:Yd X 
. M/FCEM FID # 22 
20 


CONVERSION 
S X"(" ae 5) YK _Sp( “TAN. FEB.MAR.APR.MAY. JUN. JUL.AUG. SEP.OCT. NOV. DEC”, "." 
,+Se(an,4,5)) " "5s: +Se(cm,6, 7) XX ( Se(am, 6, 7)", * & XK (1700+Se(an,1,3)) 
8:9o(am,".",2)'=" YK" at” Se(an 8 000", 9, 10)_": me ' Se(ca 000" 11,12) 5 X=X_")" 
s:¥m"(1700)" Xe" 5 cmX 

2B STORED: $p(~10C(DA, 1600) ,"°", 14) 


715 ADVISED EMP CAN RESUME W SET OF CES Y:YES 
NiO 


M/PORM FID # 57 


20 CONVERSION O-DE; 8 am6p(9p(";¥: YES;N:ND;",";" am_":",2),";",1) amGp(an,*:",1) 
28 STORED: $p{ “IOC(DA,1700),"°", 11; 


15.1OMIE OF ADVICE UAE S WIe"E" D “WT S HY KY X 
M/FCRM FID # 24 
20 CONVERSICN Come: 
& Xe"(" 5: +Se(cm,4,5) Yak Sp( "OPN, FEBLMAR.APR.MAY.JUN.JUL.AUG. SEP.OCT.NOV.DEL",”." 
rtSetaned, 5)) " " g:eSe(cma,6,7) NeX Se(an,6,7) ", " s HK (1700sSe(cm,1,3)) 
s:9(cm,".",2)’="" Yak" at “ Seam "000",9,10)_": Fi ' Se(am 000", 11,12) 5 %aK.")" 
s:Xe"(1700)" %e"" 5 am 


28 STORED: 9p(“1CC(DA, 1700), "7", 12) 


A-240 








29 PREFIELD CCIE: 
I 'SXchi(57)) s skip-"D" 
i $0(cbi(57)) secbi(57)["n" (bi (57)(°N") skip="D" 


1619 EXPLAIN EMP VORK LIMTTAT 
M/FORM FID # 25 


28 SICFED: nowere 
29 PREFIELD COLE: 
8:'Sd(Ivl) lvl=O 1 S$d(cbi(0))>9 6 shhfile=l d filecre’ptrfilel k shhfile 
i Sd( file), file,Naw’ad) g filingeda('Sd( filing) :lvl+l,lvl’<filing:lvl+1,1: filing) 
+d upcntr“fmfom s News),chi(0)="" k file 
s lvi=lvl+l1 
i lvl s DA(O)=s08,DORODA £ ielvl:-1:1 5:Sd(DA(i-1)) DAli)sOA(i-1) 


30 FOSIFIFLD CLE: 


i lvl s CA(0)=0A £ iel:l:lvl s:Sd(DA(i)) DA(i-1)=ORK(i) 
S:lvl CheQA(0) k DA(1v1),DA(0),D1 s lvlelvl-1 


16 CALLS M/PORM: WORK LIMTIATICNS (#707) 
M/FORM: WORK LIMCTATTONS (#707) 


; F 


1, PRE-PCRM COLE: 


n filen, rptfile,New s:/Sd(nocomp) filen="ptc( iform,99) 
+6:Sd(nocanp) filen="ptg(903,ifomn,99) s New), pptfile=l. 
5 Us""" i ‘SA(DP) © MeGad( SH), WOT" d “WT s Diky k X,Y 
a sec’ fimérm 
G crindk” fméor 
TI. WINGS 
Se eee sa. CCCCC:C~<;<S; SCS 
CATA ELEMENT OTA TYPE POINIER GLOBAL REFERENCE CR INEU? VERIFICATION 
.O1 EXPLAIN EMP WORK LIMYIAT WORD PROCESSING 
MV/FCRM FID #1 


28 STORED: Sp “ICC(DA(1),1608,D4,0),"",1) 








ITT. FOSTHOR! COLE 


i $d( file), file s Serge biapreliecoiaaag in lvl, lvbfiling:]vl,1:filing) 
ftom d nodeO"fmém 


2017 ANY PERMPOENT EFFECIS ST OF COLES ¥:YES 
Nin 





M/FCRM FID # 58 


Aw-241 








20 CONVERSION COE: $5 ameSp( Sp("¥: YES;N:ND;",";" am ":".2),"5",1) ,amp{an,":",1) 
28 SICRED: 9p( “ICC(DA, 2006),"7",5) 


Sd REMARKS 


M/FORM FID # 27 


28 STORED: rower 
29 PREFIELD COLE: 
i ‘$d(cen (58)) 8 skip»"D" 
i Sd(chi(58)) ssc (58) ("n"! (cod (58) ("N") skip»"D” 
8:'Sd(lvl) lvl=O i Sdichi(0))>9 s shnfileel d filecne’perfilel k shhfile 
i Sd(file), file,New’=0 5 filingsSe( 'Sd( filing) :lvl+l,lvl’ <filing: lvl+1,1:fiiing) 
+d upontr’ fmfon 5 New), chi(0)="" k file 
§ lvlelvl+l 
i lvl s OA(0)=0R,D0eQR f ielvl:-1:1 s:3d(DA(i-1)) OAli Af i-1) 


30 POSIFIEXD CLE: 
i lvl s CA(O)mOK f ielslslvl s:Sd(DA(i)) DACi-1)<CAi) 
8:)-l DeQA(0) k DA(1v1),0A(0),O1 s lvlelvi-1 
16 CALLS M/FORM: REMARKS (#605) 


M/ACEM: PEMAFPS (#606) 





1, PPe-fCRM COE 
n filen, rptfile,New 5:'Sd(nocorp) filen»*pect ifomm,99) 
4+5:Sd(nocamp) filen="ptg(903,i form 99) s Newd, ptfiles! 
Ss Ue" i 'SG(DT) & MSad(SH),00T od “MOT 5s DIM k X,Y 
d sec” fmfon 
d crinck” ffon 
IT. WINDS 
Soe te ee ee ee eo oe ee 
CAIDA ELEMENT CAA TYPe FOINIER GLORAL RESERENCE OR INPUT VERIFICATION 
.01 REMARKS WORD PROCESSING 
M/FCEM FID #1 


2B STORED: 9 Sp( “ICC{OA(1),8,04,0),"",1) 





TTI. POSTUCRM COE 


i Sd( file), file s filisrpe( 'Sd(filing):lvl,lvb filingzivl,1: filing) 
4d shuffle* fn€on d noded” fmfon 


EGA ATH SRE LEER NNT PI IO PETS TTF DE STI ETO ETE ELITE LE LEE DE IREDELL TEDL TLE DIOR IL DLT EDIE LEIA 


401 REFERRAL PHYSICIAN FREE ‘TEXT K:SLAX)> 301 (SUX) X 
M/FORM FID # 37 








2B STORED: SOCCIcC(m, 401),"°",1) . 
44 POST ID: 5 Mme K:S(X)>30!(SLIX)<L) X s:°SQ{X) ame"" s:an(""" cm** 


wCl.2 RP ACORESS FREE TEXT ¥:SLiX)>54!(SU(X} A) X 
M FORM FID ¢ 38 


28 STORED: 994 “ICC{OK, $01} ,°7",2) 
44 POST ID: 5 Meom K:SL(X)>54!/SLixX)<1) X s:/Sd(X) ame"" s:anf"*” am"* 


alll BP Oty FREE TEXT K:SL(X)>ZO1(SL(X) <1) X 
M-PORM FID ¢ 39 


28 STORED: = $p( “10C(mR, 01) ,"°", 3} 
44 POST ID: § Mean K:SL(X)>201(SU(X)<)) X s:/Sa(X} ane” ssamf"*°" cm" 


WL.2 PP SIME FOOTER 1003’ Dre 1003, 


‘4 


MTCRM PIO 


20 CONVERSION COKE: 35 crmte(came"2""," (Sd( “DYZ(1003,cam,0) }#10) scm, 1 Sex “DIZ (1003,amn,0),"°",1)) 
28 STORED: 9 9p “ICC(DA, 01), °°", 4) 
371.4 5P IPO FREES TEXT K:SL(K)>101(SEAX)<5) X 


M FORM FTO # 


13 STORED: Soc “100A 01,"7",5) 
<4 POST De) 5 Mowe K:SLiK) 9101 (SL1X)«S) X 8:/Sd(X) ane” ssa?” one" 


2° OP UPEMALTY FREE TEXT K:SU{X) > G(AAKIL) X 
M FCRM FID # 2 


2B OTTPED: = Sex “TOC (DA, 401), °°", 8} 
44 POST DD: 5 Pec K:SLiX) SOY AUX) X s3/S(X) anwe”" g:0nf""" one”* 


20° PEAGCN POR TETERRAL ET OF OES o: CO SULTATION 
T: TENDED T 
C: CONEULTNTION 
t: TREXOMENT 


POM FID ¢ 
20 COWERSICN COTE: = 8 ome6ip( nd" ;C: CONSULINTION; T: TREATMENT; C: CONSULINTICN; 
t oTHERIMENT;*, "3" cn ":°,2),"3",1) cream, *:",1) 
2B STORED: = 9x “ICCTA, 2006) ,"°", 6) 
“3.9 CORTE STONED OZ S XMS" D CWT S Mey KiYcl X 
4 FORA PTD &§ OSL 


20 ONVEREIGN TIE: 


A-i4 i 








S Xe"(" §:+Se(am,4,5) wk .Sp( “GAN. FEB .MARAPR.MAY AN. LAG .SEP.OCT NOV-DEC", aah 
,re(an,4,5)) * * 8: oe 7) Yee Se(cm,6,7) ", * S ak (1700+Se(an,1,3)) 
s:Span.". s 20" =" eX” * Setan"000",9, 107": :" Se(am™000", 11,12) Ss %K")" 
8:Xme"( 1700)" ee" Ss pia 
28 STORED: «Soc IC(Ow, 800577", 10) 
4OC ATTENDING PHYSICIAN FFEF. TEXT K:SLiX)> 301, Mik) <1) X 
4 9CRM FID # 3 


2B STORED: «Spi “100A, 400) 77,1 
34 POST ID: 5 Mec KSLA X)> 3011 SLXCL} X $2°Sd(X) came" s:agf"°* ane” 


#2. TOOS ACORESS FREE TEXT Ki SUiX Sd! (SLX) C1) X 
™ Form TID ¢ 44 


28 STORED: $= Spt “I'M, 0),""", 2) 
‘Md POST ID: & Deca FSU XI SME (SLX)? K 6: /Sd(X) ame” gan" cne"” 


40.2 OS ON YSSE TEXT K:SLX) DOU SLX) XK 
M FORA rip ¢ 45 


SB OTTRFD: «Spt “107. A, 200,77". 3) 
wo POST DD: Ss Mem HK: Qi XO! (SUX) X $:’SA(X) ane"” s:ay§""" ane”* 


20.3 0005 SIRE FOOTER 1003’ oT, 
“4 FORM FID @ % 


XO TRVERSICN COE: 8 cae came "7", (Sea “T1003, 0) 1820) srw, 2: Sp “DTZ( 1003,.cm,0),"7".2)) 
BOSD: TCA, WO),7°8 4) 


W425 CIPCIE Prey TEXT Ks UAX)> LOL (SL(K)<5) X 
M PORM FID @ 47 


28 STORED: «Spt “TOC 0A, 900) ,°°", 5) 
44 FOBT ID: 5 Norm RDA K)>LOL DAS) K 629K) cae” son? * are" 


1 8 TAX ID Feel Exe K:AAK)108(DiXial) X 
“ Tuat4 FID @§ 48 


2B OTTORED: «= “Sept TOC OA, W00),""*,9) 
44 PONT WD: 5 oem KML RAIL) K 83S X) ame" sia 8°" one" 


#2.) UES DOCTOR WRCALGE Fr ¥ Ces 185 
pes @) 


MIM AID @49 





20 COWERSICN COLE: 8 amSp($p(";¥:YES;N:ND;",";"_ an ":",2),";",1) ,amGp(an,":",1) 
28 STORED: = 9p( “ICC(DA, 400),""",7) 





400.7 SPSCZALITY FRE TEXT K:SL(X)>30!(SL(X)<1) X 
M/PORM FID # 50 
2B STORED: 9p “ICC( DA, 400),"77, 8) 
29 2REFTELD CULE: 
I "Sd(ama, (49)) § skipe"D” 
s:Cba (49){ in"! (chai (49) (°N") skip="* 


44 POST ID: 5 Neem R:SL(X)>30!(SUX)<CL) X $2/Sd(X) am"" s:an{"*" ane" 





TTI. POSIUCCRM OLE 


i Sd{ file), file,Newed s:’Sd(lvl) Ivl=0 
+6 Eilingsés( 'Sd( lig) :lvl,lvb filing: 1vl,1: filing) 
+d upentr” fméon 
i fileel!(Sda(EPFLAG)) d “TSCFILE 
eT SEAS RE TE EEE SS SIA LE A I I EE AS ET IE EEE ALE AE TNE IEE I ETI ASS LOIS ORE LEPINE DEES LET TOE EEE ENED LIED LEELA LED DOLE 


AW 285 














CA-20A ATTENDING PHYSICIAN’S SUPPLEMENTAL REPORT 





NAME OF INJURED EMPLOYEE 
OWCP FILE NUMBER _ 
HCME MAILING ADORESS 


lar FF 
o 8 6 








Cray mae _ SIATE one CuO 
OVERSEAS 

SOCIAL SECURITY NUMBER 

DATE AND HOUR OF INJURY 
DATE WAGES LOST FROM THROUGH 

DATE OF MOST RECENT EXAMINATION 

INJURED IN LINE OF DUTY? 

IS EMPLOYEE TOTALLY DISABLED FOR WORK? 

"Press <Return> for PRESENT IMPAIRMENT*® 

*Press ¢<Peturn> for STATE DIAGNOSIS* 

“Press <Return> for TREATMENT AND FREQUENCY* 

*Press <Retura> for PERMANENT EFFECTS* 

“Press <Return> for CONCURRENT DISABILITY* 

DISABILITY CONTINUE FOR 90 OR LONGER? 
IF NO, EXPECTED DATE RETURN WORK 
ACVISED EMPLOYEE CAN RESUME WORK? DATE OF ADVIcE 

WHEN ANDO WHAT CAN PARTIALLY DO? 

*Press <Returnm> for DATES AND RESTRICTIONS* 

REFERRAL PHYSICIAN 
ACDRESS 

ep aous 4 STATE zip CODE 

*Press <ReturM> LoL PROUNOSIS* 

ATTENDING PHYSICIAN 
ADDRESS 

Crty he te ar ee PARE Se Oe ean Fe Ree OD 
2h. SeecAlLi:........ 23. DAT NEo at ee 











4 ON UT a 


| a dl oad onl Soe ie 22 © 2 
Ui de Ws PIR Oe 
ea ees el Se 





~a ON 
oe 


tb 


he 
wD 





wow 
Uy 


tro 





“word Processing Window will appear. 








MARE OFA (4711) 





1. PRE-FORM COLE 


n filen. rptfile, filing s:’Sd(nocamp) filene"ptc(ifomm,99) 
+6:5d(nocamp) filene’ptg( 903, i fomm,99) s New, ptfileel, ideciste2 k ident 
Ss Ue""" i /Sd(DT) s NGak( Qi) ,WOMm"" d “Wr s Diky k X,Y 
d sec” finfon 


TI. WOOOS 


SR ET Sage Poet ae ee eee oe oe age eae ee es os ore, 


ORTA ELEMENT CATA TYPE POINIER GLOBAL REFERENCE CR INPUT VERIFICATION 
2 NE POINTER 1004’ EMPLOY( 
M FORM FID # 40 


17 EXTERNAL CEFALLT: NVE 
18 INTERNAL CEFAULT: NAMEPIR 


20 CONWERSICN CORE: «= ceGe(cnm"":"", (Sd EMPLOY( can, 0) ) #10) scm, 1:$p¢ “EMPLOY(am,0),""",1)) 
28 STORED: $< “I0C(ma,0),"°",3) 
32 POST FILING COLE: di setinck”finfom 


44 POST ID: i Sd(new) s:/Sd(“ICC("C" new, xL)) mage"'Claim not Loggad™, ya24 cine" 
SA INCEX: *IQC("c} 
55 LOOP MOE: 
40° 35°Sp( “ICC( Lids,0),"*", 3) 
9°23°Spt “ICC Lids,0),"°", 2) 
137 COCR FILE NUMBER FREE TEXT K:SL(X)>131(SLAX)cL) X 
M/FORM FID # 2 


2B STORED: $p( “ICCD, 130),"°",,6) 
44 POST ID: ss Hecea Ks VAX) LI (SLiX} CL! KX 5: Sa(X) am" s:an"*" cne** 


7 SURBET ACORESS FREZ. TEXT K: SLX) 2641 (SAX) CL) X 


MyPCRM FID ¢ 3 


28 SICRED: §9p(“IOC/7A,1),"7",1) 
44 POST ID: 8 Macea X:SU(X)>641(SU(X) CL) X g:’Sd(X) aas”” g:anf"*" am" 


8 ay FREE TEXT Ks SUA(X)>231 (SAX) <1)" (XP.AP) X 
MTCRM FID # 4 


28 STORED: 9S “ror(oa,1),*°*,2) 
44 POST ID: s Mocem K:QLdX)>231 (LAK) <1) 1° (XP AP) X 8: °Sd(X) coe" s:anl"** one" 


9 GINTE POINTER 1003’ 0fz(1003, 
M/FCRM FID 85 


Aw~247 








20 CONVERSICN COLE: )s 5 amGe(are"™:"", ' (Sdi( “DIZ 1003,com, 0) #10) scm, 1 Spx “OZ ( 1003, an, 0),"°",.1)) 
28 STOFED: 9$p( “ICC(TA,1),""",3) 


10.5 ZIP CLE FREE TEXT RK: SL(X)>101 (SL(X)<5) X 
M/FORM FID # 6 


28 STORED: 9 9p( “ICC (TA, 1),"°", 6) 
44 FCST ID: 5s Xecm K: 5 X)>1G! (SLAX)<S) X s:3'Sd(X) an"* s:an{"°* ome” 


9.5 OVERSEAS ADCFESS FREE TEXT K:SL(X)>64! (SU(X)c1) X 
M/PCHM FD ¢ 7 


28 STORED: $o( “IOC (oA, 1),"°", 4) 
44 POST ID: 5 Meum K:SL(X)>64!(SU(X)<1) X s:'Sd(X) ane" s:anf"°" ane”” 


3 SN FFFE ‘TEXT K:SL(X)>91 (SLX) <9) 1" GSN) KX 
M/ FORM FID # 8 


28 STORED: Spl “ICC(CK,0),77", 4) 
44 POST ID: 8 Neem K:SL(X)>91 (921K) <9) 1" (X29N) X 63°Sd(X) om 6:anf**" ane*” 


1 NUR CLUESS OME & TI ONE S Whe"ET” D “WI S HY Kye) X I SOX) K:SP(X,".",1)08 X 
M, FORM FID #9 


20 CONVERSION COE: 


8 Xe"(™ 5:4Se(cm 4,5) Spt “SAN. FEB MAR ABR. MAY. JUN. JUL.AUG. SEP .OCT.NO’.DEIC", ”." 
,*9e(cm,4,5)) " " #:+Se(cm,6,7) 4X Se(an,6,7) ", " 8 HK ¢( 1700+Se(cra,1, 3)) 
s:Sotan,".",2)'="" Yak" at * | Se(om "000", 9,107 ":* Seas y “O07, 11,12) & ¥aK_")" 
$i¥e"(1700)" %e"" § onxX 


28 STORED: Spf “ICC(DA,9),"°",2) 


9° 237K “7X Lidw 0) ,°7",2 
40°35" Spt “TCC Lids, 0) ,"7",3) 


701 CHIE WAGES LOST FROM OE S WTe"E" D “WT S HY vel X 

M/CCRM FID # 4 

20 COWERSICN COLE: 
 Ye"(" 9:4Se(cn, 4,5) XX SOUT AN, FEB MNCAPRIAY.UN. LLACG. SEP. OCT NOV, CE”, "." 
»+5e(am,4,5)) * * s:4Se(cm,6,7) MX Se(am,6,7) *, * 6 Xa (1700+Selom,1,3)) 
s:3an,*,",2)’= eg a Nie #3 Secu ™000", 11,12) $ 4X") 
$:¥e"(1700)" ee" g 

cB OSTORPD: 39S “100 (Da, 700),"°", 7) 


701.5 OATES WAGES LOST THRU OME 5 Whe" D “WT S WY KY X 


Anca 








M/PCRM FID # 11 


20 CONESSION (TIE: 

8 e"(" s:+Se(am,4,5) aX Sp{ "GAN. FUP MPRAPRIAY UN. LLAG. SP CCT.NOV. DEC", "." 
"aSe(and, Sy Ss +5e(cri,6, 7) Wek Secam,6,7) ", * S MX (1700+Se(cm,1,2)) 
s:9Xan,".",2)'="" XK" at " Se(an "000*,9,10 rm ” Se(an "000", 21,12) 5 4K_")" 
$:%<"(1700)" ¥="" 5 aK 

v2} STCEED: Sot “TACO, 700), "7°", 9) 
& RST D: 
i "Sd, cbi(42)) 3 skip="D" 
- Yeom kk :XCSp(abi (41) ,do,2) X 1 *Sd(X) 5 ane=** s:an{"°* om** 


2003 OATE CF POST RECENT EXAM ORE S We"E" D “WT S YoY KY X 
/APCRM PID # 12 


20 CO.WERSICN COE: 


Ss Ma"(" s:s5e(cn,4,5) Xe Sp "JAN. FEB.MARLAPR.IAY. AN, OULHUG. SEP.OCT.NOV.DEC","." 
+$e(a,4,5)) " " 8: +Se(cx,6, 7) YK Se(ar,6,7) ", " @ SK §1700+Se(am,1,3)) 
s:so(am,".", 2) %0n eX" at" Secs “000" a, 10)": me ' Sejan™ 900", LL, 32) & tt ep hy 
site"(1700)" 4e®" 5 ce 


1B STORED: Spl “ICC(A, 2006) "7,11 


307 TOUPED IN LINE OF CUI SPT CF COLES Y:YES 
NiND 


Ny FORM FID # 13 
2) CONVERSION COE: s atdo(9o(";¥: YES; sN:NO;” os" cu "3",2),"3",1) ,cae6e’ ‘m,":",1) 
28 STORED: Spi “IOC(DA, XO),"°",8) 
. 2004 FMP TOTALLY OLSWEZD POR SET CF COKES Y:S 
N:ND 
MACE FID # 42 


20 COWERSICN OLE: 8 cméip( 9p(" :¥: YES :N20;",";" cm ":",2),"3",1) camOpam,":",1) 
28 STORED: 9p “ICC(DA, 2006) ,"°",2) 


2005 CESCRI“@ ASSENT RAI 
M/PORM FID # 15 


23 SICRED: nowhere 
29 PREFIPID CIE: ; 
s:/Sd(1vl) lvleO i Sdidhi(0)}>9 6 shhfile=l d filecrw*ptrfilel k sthfile 


i Sd( file), file,New’=) s filingeGe( Sd{ filing) :lvlel,ivl’<filing:lviel,1: filing) 
+d upcrier’ fans 3 Need), chi (0)="* k file 
& ivieivl+l 


i ivl 6 aa ea f telvi:-1:2 ¢:Sc(DA(i-1)) OM 1 OM i-1) 
30 POOIFIELD CoE: 


A~249 














i lvl 5 DA(O}=OA f i|ml:islvl s:$d(DA(i)) DACi-1)<0A(i) 
s:lvl DfeOA(0) k OA(1v1),OK(0),DL 3 lvlelvi-1 


16 CALLS M/FORM: PRESENT IMPATIENT (#712) 
M/FORM: PRESENT IMEAIRMENT (#712) 
I. PRS-fCRM COLE 





n filen, rpptfile,New s:'Sdinocamp) fileneptc(i fom, 99) 
+8:Sd(nocamp) filane*ptg(903,iforn,99) 5s New), mptfileal 
8 Ue"*" i 'Sd(DT) Ss MeGad(SH),WTe"" d “OT s Diby k X,Y 


d sec” frfoa 
@ crindx” futon 
TI. WINKS 
PRESENT DERIREN Windwlo0ltttt”t”t”t”*é‘CNNNCOCONC(‘CSNNNNNNNNNT 
DATA ELEMENT CAT TYP POINTER GLOBAL REFERENTE OR INGUT VERIFICATION 
.01 CESCRIBE PRESENT IMPAIR WORD PROCESS 


MFCR FID #1 
28 STCRED: $p{ “ICC (DA 1) ,2007,08,0),"",1) 





TIT. FOST-FORM COLE 


i Sd( file), file s filinge( ‘Si filing) :lvl,lvbfiling:lvl,1:filing) 
+d shuffle’ fmtoa d nodeO” fmf 





2006 OA OLAGNOSIS 
M/FCRM FID # 16 


<8 SICFED: ro-bere 


29 PREFIELD COLE: 
8:'Sd(lvl) lvleQ i Sd(chi(0))>9 s shhfileel d filene’ptrfilel k stihfile 


i Sd( file), file,New'=0 s fiiingude( ‘Sd( filing) :ivlel, lvl’ <filing:lvl+L,1: filing) 
od upcntr” Snfrm 6 Newel), ct (0)o"" k file 


8 lvlelvlel 
i Ivl s DOA0)=QA,D0eCA f ielvl:-1:1 s:Sd(DA(i-1)) ON(i QA i-1) 


30 POSTFIFLD CIE: 
i ivi s CALOOA f ielsl:lvl 6:Sd(QM(i)) ON i-L)Oxi) 
silvl UwOA(O) k OA lvi),OM0),O1 s lvlelvl-1 
16 CALLS M/PCRM: SINIE OLAGNOSIS (8713) 
M/PORM: STROKE DIAGNOSIS (#713) 


1, PRE-fCRM CLE 





Ae-e 50 











n filen, pptfile,New s:/$d(noamp) filene’pte( i form,99) 
+6:$d(rooomp) filen=“ptg{ 903, oe) S New), ptfile=} 
S Un"*" i /Sd(DT) s ¥eGad( GH) We" d “WT 5 Dey k X,Y 


d sec" infon 
d crinckx” Snérm 
IZ. WINDS 
SIRE PANGS Ktdwliss)lltt”t*é*éi‘(NNNNNNOOOOOO 
CROR ELEVENT DAOA TYPE FOINIER GLOBAL REFERENCE OR INEUD VERIFICATION 
01 204 pEGosts WORD FYOCESSING 
M/FOM FID # 1 


2B STORED: 9 Sp(“ICC(DA(1) ,2008,0,0),"",1) 


—neminemretiemton 





TH. ROST-CRM Coe 


i Sd( file) file = filingse( ‘Sd ELLing) svi, lb filing:lvl,1:fiLing) 
4d shuffle” fména d nodeO” fméon 





2007 TRENIMENT FRECLENCY OF I 
M/FORM FID # 17 


23 SICRED: nowhere 
<9 PREFIEZLD CCE: 
6:/Sd(lvl) lvl i $d(cbai (0) )>9 8 ahfile=l d filecne*ptrfilel k shhfile 
i Sd file), file,New'a s filingGe( ’Sd( filing) :lvl+l, lvl! <filing:lvl+l,1:€iling) 
+d upontr” fafon s Newed),chi(0)="" k file 
8 lvielvl+l 
ilvl s CA(O}=OA,DOmOQA f ielvi:-1:1 s:Sd(DA(i-1)) OA(iOA(i-1) 


30 FOSIFTFLD COE: 
i lvl 5 CALOMA £ iel:l:lvl s:Sd(DA(i)) DA(i-1)=A i) 
6:lvl OheOQA(O) k PA(1V1),DX0),O1 s lvlelvi-1 
16 CALLS M/PCRM: TRERIMPNT AND FREQLENCY (#714) 


M/FORM: TREAIMENT AND FREQUENCY (#714) 





I, PRE-FORM COE 


n filen, rptfile,New 6:'Sd(nocomp) filen="ptrt i fona, 99) 
+0:Sd(nocamp) fi Lene*pog( 903, ifone, 99) s Nad), ptfileel 
Ss Unt" { /Sd(DT) © Ataci(SH), De" d “WT 2 OY k XY 

d sec” infra 
@ crindk® fafrm 


TT. WNOOS 





A-251 








TREXIMENT AND FREQUENCY Window 1 
CATA ELEMENT OXTA TYPE PCONIER GLCGAL REFERENCE CR INSUT VERIFICATION 
.O1 TREXIMENT/FRECLENCY OF I WORD PROCESSING 
M/FCEM FID # 1 
28 STORED: $p( “ICC(DA(1),2009,DA,0),"",1) 


TIT. FOST-FCRM COLE 


i Sd(file), file s filinge( ’Sd( filing): lvl, lvbfiling:lvl,1: filing) 
+d shuffle” fmfon d nodeO* fnfon 





ae ee ee eee ee ay ea a OAM IE Se So eee ere, eee yew ee eee 
DACA ELSMENT DATA TYPE FOINIER GLOBAL REFERENCE OR D¥UP VERIFICATION 
1613 PERMANENT EFFECTS 
M FCRM FID # 18 


28 STCFED: novere 
29 PREFIELD COLE: . 
6:'Sd(lvi) lvl=O i S*(chi(0))>9 s shhfileel d filecne’ptrfilel k shhnfile 
i Sd( file), file,New'=) s filingde( 'Sd( filing): lvlel, lvl’ <filing:lvlel,1: filing) 
+d upantr” ffm § News), chi (O)="" k file 
S$ lvlelvl+l 
i lvl 5 DA(O)=0R,DOBCR f ielvl:-1:1 s:Sa(DA(i-1)) OACi)eQA(i-1) 


30 FOSTFIELD CLE: 
i lvl s DCA(O)<ON £ iel:l:lvl s:Sd(LA(i)) OAli-L)OR{i) 
s:lvl OhetF{0) k ON Ivl),2A(0),O1 s lvlelvl-1 


16 CALLS M/PORM: PERMPNENT FFFECIS (#705) 
FORM: PERRPRENT EFFPCIS (4705) 


RAE SERA STI CML EE ES AE YL TS LT IEC PPE EST A CVE AEE TIE I SEATS OIE ETERS AE REN SELES SEE TPO LORE IOS ERED EE 


1. FRE-POR4 CIE 


n filen, pptfile,New s:'$d(nocamp) filen=“pte( ifora,99) 
+9:$d(nocamp) filene’phg(903, ifoon,99) s Newd), rptfilesl 
8 Un""" £ 'SG(OT) © %Gad( SH), Wie" d “Wr s UY k X,Y 
d ser: Snéoa 
d crinck” Snéoa 


IT. WINDS 
AARNE PRBS Ac 


A=252 














-O1 PERMENEND EFFECTS WORD PROCESSING 


M/FORM FID # 1 
28 STORED: $p( “IGC(DA(1),1606,0A,0),"",1) 





Til. ROSP-FOM CE 


i Sdifile), file s filingsés('$d( filing) :1v1,lvb filing:1v1,1:filing) 
+d shuffle fmémn d node0” Smfrm 





2209 SUPR SUAIEMENT AT RECLR 
M/FCRM FID # 19 


28 STORED: nowhere 
& FREFIELO CLE: 
8:'Sd(lvl) lvl=O i Sdf(dbi(0))>9 s shhfileel d filecre*ptrfilel k shhfile 
i Sd( file), file,New’=sQ 5 filinceSs('Sd( filing) :lvl+l,lvl' <filing:iviel,1:filing) 
+0 upontr” fin€rm ss Newel) choi (0)e"" k file 
§ lvielvl+l 


ilvls DA(0)=CA,DO=0A £ delvl:-1:1 s:Sd(DAi-1)) DACA )=fA(i-1) 


3% POSIFIFLD CLE: 
i lvl s OA(C}=OQA £ ielrlslvl s:Sd(DA(i)) DACi~1 eOAi) 
S:lvl DreOQA(0) k DA(Iv1),0R(9),01 s lvleivi-1 
16 CALLS M/PCRM: CONCLRENT DISABILITY (#715) 


M/FORM: CONCLRENT OLSABILITY (#715) 





1. PRE-FCRM COE 


n filen, pptfiis,New 8:'Sd(noomnp) filenepte( i form, 99) 
+6:Sd(nocamp) filane"ptg/903,i fom, 99) s New, ptfileel 
& Uet"" 1 *Sd(DT) 8 Sad( SH), Wie" d “Wr s Oley k X.Y 

@ sec” info 
d crindk” fafon 


UW. WINDYS 





CATA ELEMENT CROA TYPE, FOINIER GLOBAL FEFEFENCTE CR INSUT VERIFICKTICN 
.01 SUPR STACYMENT AT HECLR | WO PROLESSONG 

*PCRA PID 41 

28 STORED: §=Sp( “TOCCOA 1) ,211,00,0),"",1) 











III. ROST-FORM COLE 


i <d( file), file s eee '$d( filing) :1vl,lvb filing:1vl,1:filing) 
+d shuffle’ finfom d nodeO*firérm 
‘snc A NS Ef SDT PE SC TS a A ET PAE AS ATPL 


2010 WILL DISABIL GO PAST 90 SET OF QUES ss Y: YES. 
N:N) 


M/PCRM FID # @ 


20 COWERSION COKE: 8 camp( 900": YES;N:ND;", "3" cm "":",2),"3",1) mote, ":",1) 
28 SIRED: $p( “10C(PA,2006),""", 3) 


2010. EXPECTED ONIE RETURN WOR 19 348 4 S Wh" D “WI S MY K:YCl X 
M/ FORM FID # 21 


20 CONWERSION COLE: 


S Ye"(" s:+Se(cm, 4,5) Nek Spt “JAN. FEB. MAR.APR.MAY. JUN. JUL AUG. SEP. OCT.NOV.DEC”,"." 
1*92(cm, 4,5) * * s:sSe(cmn,6,7) Yk Se(cm,6,7) ", " s Xe (1700+Se(cm.1.3)) 
s:Sp(an,”.",Z)'="" Hak" at * Se(cn “000",9, 107": " Se(cm "000", 11,12) ® xaK_")” 
$:X="(1790)" Xe" s cmeX 

78 STORED: Sp(“10C( OA, 2006),""", 4) 

29 PREFTELD CLE: 
I *SD(cbi(43)) s skipe"D" 
i Sci (43) ) sabi 43) ("YS (co (43) ["y") skip»'D" 


44 POST ID: 
i 'Sd(chi(43)) § skips" 
s Ymem k:XCp( abi (43),db,2) X i “Sd(X) ame" s:an("-" am" 


1715 ADVLSED EMP CAN RESUME W ST oF COOES Y:YES 
N:NO 


M/PCRA FID § 44 


20 CCNVERSICN COKE: = cmGp( Spf"): YES;N:ND;",*;" cm ":",2),"3",1) amOpian,":",1) 
28 STLFED: Sp “10C(DK,1700),""", 1) 


1715. LDRTE OF ADVICE OE S WR" D “WT S YY K:Ycl X 
MFCRM FID ¢ 23 
20 CONVERSICN CEE: 
8 Xa"(" §:4Se(cm,4,5) Yak 9p( "IAN. FEB.MAR_APR.MAY. IN. JULAG. 9? .OCT.NOY.DEC",".” 
s ealead. 5)) * * s:sSe(cn,6,7) HX Se(an6,7) ", 8 Yak (1700sSe(ar,1,3)) 


63 9Xcm, "7, 2) fe" -" at" ' $e(an” “000",9,20) . :" Se(an "000", 11,12) $s X=K_")" 
S:m"(1700)" Xe" § creX 


28 STORED: 9p( “100/00, 1700),"*", 12) 


<9 PREFTFLD Ce: 
IT 'W(chi(44)) s skipe"0" 


a ats 








i $d(chi(44)) sscbi( 44)("N"1(cbd (44)("n") skip="D* 
20L1. WHENEAT CAN EMP PARTIA 
M/FCEM FID # 24 
23 STORED: rowbere 
29 PREFIELD COLE: 
*Sd(1vl) lvl=O i $d( chai (0) )>9 & sthfile=l d filere perfilel k sthfile 


i Sd file), file,haw'=0 s ("$a Ekin Lule Le)" <fiding:]v1eL1:filing) 


+ upontr “fafim s News), chi(0)e"" k file 


§ lvl=ivl+l 
i lvl s DA(O)@OA, DOA £ felvl:-1:1 s:$d(OK(i-1)) DACi OAL 1-1) 


30 POSTFIELD OLE: 
i lvl s DA(O)=OR ¢ iel:l:lv) s:Sd(DA(i)) OA(i-L Afi) 


s:lvl OhetA(0) k DPA(Ivl),OA(0),D1 s lvi=lvl-1 
16 CALLS M/FCRM: ORXTES AND RESTRICTIOSS (#716) 


M/FCRM: CATES AND RESTRICTIONS (#716) 
; ; 
1. PRE-fORM COE , 


Nn filen, opcfile,New s:/Sd(nooonp) filene"ptc( i foo, 99) 
+8:Sd(nocarm) filene’ptg(903,ifoon,99) s New), ptfile=) 
Se" i Sd(DT) s XGacl( SH), Te" d “Wr s DRY k X,Y 
d sec” finfrm 

@ crinck’ frfon 


TI, WINDS 


PALES AND PESIRICHONS Window SCS 


«Ol WHENHRT CAN EMP PARTIA WORD PRCCESSING 
M/ACEM FLD #1 


' 28 STORED: 9p( “IOC{CA(1),2011,00,0),"",1) 


i Sd( fils), file s ea, $A( filing) :lvL, lvbfiling:lv1,1: ling) 
+d shuffle fatom d nodev” fnfon 





QOL REFERRAL PEESICIAN FREE TERT = K:SL(X)>301(SUAXIC1) X 


M/PCRM FID # 35 


28 SIFED: 3 “T0C(TA, 01),"°", 1) 
44 POST MD: ss Mecm K:SL(X)>3OL(SUAX)<1) 2% 8:°Sd(X) ame Gran *** ce 


A~255 

















401.1 RP ACCRESS 


401.2 RP CITY 


401.3 RP SINIE 


401.4 RP ZIPCOLE 


2013 .2CA PROGNOSIS 





FREE TEXT K:SL(X)>S4!1(SUL(X)<1) X 
M/FORM FID # 3% 


28 STORED: $p( “I0C(CA, 401),"°",2) 
44 POST ID: 5 Meom K:SL(X)>45! (SL(X)<1) X s:’Sd(X) ane"”" s:an("*" ane 


FREE TEXT K:St.(X)>20!(SL(X)<1) X 
M/FCRM FID # 37 


2B Stcrep: = $o( “ICC( EH, 401) ,"°", 3) 
44 FORT ID: 5 Neon K:SL(X)>201(SL(X)<2) X 8: /Sd(X) an" s:an("*" an” 


FOINIER 1003’ 12(1003, 
M/FCRM FID # 38 


20 COWERSICN COLE: «5 cneSe(cme"”:"™, ’ (Sd( “DTZ ( 1003, an, 0) ) #10) som, 1:99 “DTZ 1003,an,0),""",1)) 
2B STORED: p( “ICC (DA, 401),""", 4) 


FREE TEXT K:SL(X)>10! (SL(X)<5) X 
M/FORM FID # 39 


28 STORED: $p( “ICC(mH, 401),"7",5) 
44 POST ID: 6 Moom K:SU(X)>10!(SL(X)<5) X s:°Sd(X) am” s:an""" am" 


M/FORM FID # 26 


28 STORED: rodere 
29 PREFIELD COLE: 
B:/Sd(lvl) lvleQ i Sd(cti(0))>9 6 shnfileel d filecre’ptrfilel k shhfile 


i Sd( file), file,New’= 6 filingede( ‘Sd( filing) :lvlel,lvl' <filing:lvi+l,1: filing) 
+d upontr” Seta 6 News), cht (0)o"" k file 
8 lvleivl+] 


i lvl s DA(O)@CA,00MCA f ielvi:-1:1 s:Sd(DA(i-1)) OA(i)<OA(i-1) 
30 FOSTFIELD COLE: 
i lvl s CAO0}=OA f iel:1:lvl s:Sd(OMi)) OX i-l) Ali) 
&:lvl OfeQA(0) k OA(1v1),OA(0).O1 s lvleivl-1 
16 CALLS M/FORM: PROCNOSIS (#717) 
M/PCEM: PROCOSIS (#717) 
1, PRE-FORM OTE 


n filen, ppefile,New %-'Sd(nocmmp) filen=ptc( i foo, 99) 
+6:9d(nocemp) fi_Lane’ptgi 903, ifoon,99) & New), rptfileel 
5 Ue" i 'Sa(DT) § Gai(5H),Wie"" d “WT s Oley k X,Y 

d sec” fin€on 





@ crinck* firéon 
TI. WINDS 
Se ee ok ee a ee eee eT ee CS WE et eae ee 
DATA ELEMENT DATA TYPE POINTER GLOBAL REFERENCE OR INU? VERIFICATION 
.01 20A PROGNOSIS WD PROOESSIG 
M/FORM FID # 1 
28 STORED: $p( “I0C(DA(1) ,2000,DA,0),"",1) 








TIT. POST-FOR COLE 
i Sd(file), file s filings§6( ‘Sd( filing) :lvl,lvbfiling:lvl,1: filing) 
+d shuffle’ fmfim d nodes" imfon = 
M/FCRM FID # 28 


28 STORED: $p(“1C(DA, 400) ,""",1) | 
44 POST ID: § Mecm R:SL(X)>30!(SL(X)<L) X s2/Sd(X) ame’ s:cm{"*" cme! 


390.1 DOCS ACORESS FREE TEXT K:SL(X)>54! (SL(X)<1) X 
M/FCEM FID # 29 


28 SYORED: $p( “1CC(DA, 400),"*",2) 
44 POST ID: § Xecm K:SL(X)>451(SL(X)CL) X 82/$d(X) ame gram "*" ane" 


400.2 DOCS CITy FREE Text K:$L(X)>20! (SL(X)<2) X 
M/FORM FID # 30 


28 STORED: Sp(“I0C(0A,400),"°",3) 
44 FOST ID: 8 Mec K:SL(X)>201(SL{X)<1) X s3°Sd(X) ame" ssan**" on™ 


400.3 DOCS SINE POINIER 1003’ ofz(1003, 
M/FCEM FID ¢# 31 


20 OQWERSICN CHE: «8 amGe (cme, "($d “DIZ 1003, cam, 0) )#10) am, 1:9p¢ “Drz(1003,cam,0),""",1)) 
2B SICFED: =9( “I0C( DA, 400),"°", 4) 


400.4 DOCS cP FFEE TEXT K:SL{X)>101(SL(X)<5) X 
M/FCEM FID # 32 


2B STORED: =9p( “10C( DA, 400),"°",,5) 
44 POST ID? s eam K:SL(X)>101(SUAX)<S) X 8:/Sd(X) am"* ssom(""" cme mm 


A=257 








400.7 SPECIALITY 


400.9 DONTE SIGNED 








FREE TExT &:$L(X)>30! (SL(X)<1) X 
M/FCRM FID # 34 


28 STORED: Spi “I0C(DA, 400),"7",8) 
44 POST ID: 5 Xecm K:$L(X)>30!1(SL(X)<1) X s:/Sd(X) ane"" s:an{**" ane" 


OAIE S Wle"E" D “Mr S MY Ks YC X 
MACRM FID # 33 
20 CONVERSION COLE: 
S Xe"(" 5:4Se(am, 4,5) YeX_Sp( "JAN. FEB.MAR.APR.MAY. JUN. JUL AUG. SEP .CCT.NOV.DEC™,"." 
+Se(an,4,5)) " " 5:+Se(an,6,7) XX Se(am,6,7) ", * s XaX (1700+Se(an,1,3)) 
s:So(am,".",Z) "=" Yak _" at " Se(am_“000",9,10) ":" Se(ca "000", 11,12) S XaK_")" 
8:X="(1700)" %e"" & cmeX 


28 STORED: $p( “I0C(DA, 400),"*",10) 
III. FOST-F0RM COE 


i $d( file), file,New’=0 s:’Sd(lvl) lvleO 
+6 filingsSs( ‘$d filing):1vl,lvbfiling:1v1,1: filing) 
+d * fimo 


upontr 
i filee1!(Sd(ERFLAG)) d “TSCFILE 


A-258 











PYECRM: TICKIZR (#727) 


Se pe FR RASS Tt NEE NE SOE EE DLS OILED EER TITTLE LE TEL NTE OLE DEOL SELON SDE TENTED LES EOE, 


I. PRE-FORM COE 


n filen, pptfile,New, filing,DA s:’$d(nooanp) filen="ptc(ifom, 99) 
+6:Sd(nocomp) filen="ptg(903,ifomn,99) s Naw), rptfile=l 
S Us"*" i *Sd(DY) s XGad(SH),We"" d “$T s Diey k A¥ 
d sec” inf 


1. WINDS 
————— SS” Eh Pee. UC Ee 
150 TICKLER FILE 
M/FCEM FID # 2 


28 SICFED: rowere 
29 PREFIELD COLE: 
§:'$d(lvl) lvleO i $d(cbi(0))>9 s shhnfile=l d filecre’ptrfilel k shhfile 
i Sd( file), file,New'=0 § filing-6a(’$d( filing): Ivl+l, lvl’ <filing:lvl+1,1:filing) 
+d upontr*finéra @ News, ch (0)e"" k file : 
§ lvlelvl+l 
i lvl s DA(O)«OR, DOA £ ielvl:1:1 s:$d(DA(i-1)) DA( i)esQA{ i-1) 
k TA(O) S O"" Die" 


30 FOSTFIFLD CTE: 
i lvl s DA(O)=0A £ iel:1slvl s:Sd(DA(i)) OAC i-1)=tA(i) 
s:lvl DAeQA(0) k CA(]v1),ON0),D1 s lvlelvl-1 
16 CALLS M/FCEM: TICKLER FILE (#728) 
M/ACHM: TICKLER FILE (9728) 
Apne RD a EIEN YOST EE SISA I ITE SS PEI GRETNA NE ESOC OME SOB EAI DE PES TAI DEI ITE IEE MELEE ICE TELE EE RDO LEEDS LNT EN TES OED NS LER 
1. PRE-FCEM COE 
n filen, rptfile,New s:'Sd(nocarp) filen="pte( i foun, 99) 
+8:$d(noocamp) filene*ptg(903,ifoon,99) s New), rptfileel 
S Us" f 'Sd(DT) s MeSari( SH), Wie"" d “Wr s Diey k X,Y 
d sec” fatnn 
d ering’ fiat 
t. Wings 
ee FIRE FE Window SSC—C—SS—“<~;~; 3RYhCS;7<; ST 
CROA ELEMENT ORTA TYE FOINIER GLOBAL REFERENCE OR INFUT VERIFICATICN 
-Q1 TICKLER FILE NUMERIC K24X' Kl (20999999) { (XeL) ! (X22. "IN.N) X 


M/POR FID # 1 


A-259 








28 STCFED: =$p(*10C(DA(1),150,D4,0),"7",1) 
1 DME TO DO rae S Wie"s" D “WI SY K:Yd X 
M/PCRM FID # 2 
20 COWERSION CEE: 
8 Ye" (" 8:+Se(cm,4,5) HX Spl "JAN. FEB.PARAPRMAY.AN. UL AUG. SEP.CCT.NOV. DEI", "." 
»+Se(am,4,5)) " " #: +Se(ca,6, 7) ¥eK Se(an,6,7) ", " 8 WK (1700+Se(on,1,2)) 
8:Sp(cn,".",2) "=" Wa” at" Se(cm “000",9, 107": Fa ' $e(cma 000", 11,12) 6 .")" 
8:%"(1700)" He" s cmrK 
28 STORED: $p( “ICC(DK(1),150,D8,0),"°",2) 
2 TESEQSIFLE TO 10 FREE TEXT = K:SL(X)>31(SL(X)<1) X 
M/FCRM FID # 3 


28 SICFED: 9p( “TOC(OA(1),150,04,0),"°",3) 
44 FOST ID: 6 Mec K:SL(X)>31(SAX)<1) X 8:'’Sd(X) ane™* gronf"*" ane 


3 ACTICN TO TAKE FREE TEXT K:$L(X)>601(SL{X)<1) X 
M/FCEM FID # 4 


2B STORED: 994 “100 (DA(1),150,m4,0) ,"°", 4) 
44 PORT ID: ss Meo K:SL(X)>601(SLAK)<1) X 6:°Sd(X) cne™ sian "*" ane" 





TTX. FOST-4CR4 COLE 
{ Sd( file), file s flinpSe( ‘$d(filing):1vl,lvb> filing: lvl, 1:filing) 
4d nodeO* fréra 


PRES LR EE TE EE REL I AE TLE ISTE SETI TE ORE ELT SA ET ORCI EE I.E ITE STE TE IE ALE TLE PIG LOSI AIA UAE LI SAE NA ID 
2 NVf POINIER 1004’ = EMPLOY{ 
M/PCEM FID # 1 


20 COWERSICN COLE: «8 oma(cm”*:"" 1! (SA “EMPLOY( cm, 0) 810) sera, 1: Spt “EMPLOY(amn,0), nom 1)) 
2B STORED: $p( “Icc(ra,0),"**, 3) 

32 POST FILING COLE: i setirck” fefoe 

S54 INCEX: §“I00("C") 

55 LOORUP NOE: «= 1°20°Sp “TOC Lids,0),"°", 3) 








TO. FOST-FORM CCL 


i Sd( fle), file, New’=0 8:’Sd(lvl) lvled 
+6 fLlingGe( 'Sd( filing): lvl, lvb filing: ivi,1:filing) 
+d upontr’* fnfoa 


ELLER TIO RE TSE EOD I LIE I TEE EG TNT ELIE OR TIIOE ED PEST IPT EEE TE ASE IE IE TE SEPT EET TIS TS TAIRA ITE IT TET 


A-260 








M/PORM: TICKLER (#727) 





I. PRE-FOEM COE 


n filen, rptfile,New, filing,DA s:'Sd(rucamp) filene"ptc(ifonn, 99) 
+8:$d(nocarp) filene=*ptg{903,ifomn,99) s New0, pptfile=l 
Ss Ue""" i ’Sd(DT) s XeGad(SH),W"" d “Wr s Diky k X,Y 
a sec” finfon 


T. WIDOS 


eae ee ee ae ee Pe ney fe 
CATA ELEMENT OXTA TYPE POINTER GLOPAL T@FERENCE CR INEUT VERIFICATION 
150 TICKER FILE 
M/PCRM FID # 2 


28 STORED: nowhere 
29 PREFTIELD COLE: 
§:'Sd(lvl) IvleO i Sd(chd(9))>9 s shhfile=l d filecne’ptrfilel k sthfile 


i Sd( file), file,New=0 s filinpSe( 'Sd( filing) :lvl+1,lvl’<filing:lvl+1,1: filing) 
cin tala aa 8 Need, chi(0}e" k file 
8 lvlelvl+l ; 


i Ivl $ DALO)@CA, DOCK £ ielvl:—1:1 s:Sd(DA(i-1)) DA(i OR i-1) 
k LALO) Ss Che"* Ole" 
30 FCSTIFIPLD CCIE: 
i lvl s DA(O}@OA f iwislslvl s:Sd(oMi)) DAi-1)@OR(i) 
S:lvl DeCQA(0) k OA(lv1),DA(0),O1 8s lvlelvl-1 
16 CALLS M/RCEM: ‘TICKER FILE (4728) 


M/PCRM: TICKER FILE (#728) 








I. SRE-FCRM COE 


n filen, rpttile,New 6:/Sd(mocomp) filane’ptct i form, 99) 
+8:5d(nocomp) filene’ptg( 903, iform,99) $ New, rptfile-] 
$ Ue" § 'SA(DT) 8 MeGarl( HH), Wm" d “WT s Diet k X,Y 

G sac’ fata 
d ceindk’ fafra 


TT. WOOO 


: 


CPR ELEMENT ‘ CROA TYPE FOINIER GLOBAL REFERENCE CR INFUT VERIFICATION 
31 TICKLER PILE NUMERIC K4X? Rl (25999999) (MCL) (XP. EL". INN) X 
myers FID ¢.1 


A~261 

















28 STORED: $= $p( “Toc(DA(1),150,08,0),""",1) 
1 [ATE T 1 DONTE ~ WIe!"S" D “Wr S MY Kd X 
M/FCRM FID # 2 


20 CONWERSICN COLE: 

S %e"(" s:4Se(om, 4,5) YeK_Sp( "CAN. FEB. MAR.APR.MAY.JUN.JUL.AUG. SEP.OCT.NOV.DEC","." 
,rSe(an,4,5)) " " s:+Se(an,6,7) XX Se(an,6,7) ", * 8 HK (1700+Se(cn,1,3)) 
s:Sp(cm,".",2)'="" Na" at " Se(an "000",9,107_*:" Se(am_“000",11,12) & XaK_")" 
g:¥e"(1700)" Xe" s anmX 

28 STCRED: 9 $p( “ICC (DAi1),150,OK,0),""", 2) 

2 RESSC\SIBLE TO 2 FREE TEXT K:$L(X)>3!(SL(X)<1) X 
M/FCEM FID # 3 


28 STORED: $p( “1CC(DA(1),150,T4,0),"*",3) 
44 FOST ID: § Yeam K:SL(X)>3!(SL(X)<1) X $2/Sd(X) cme" s:an("*" ane" 


3 ACTICN TO TAKE FREE TEXT K:SL(X)>60! (SL(X)<1) X 
M/FCEM FID # 4 


28 STORED: =$p( “ICC (DA(1),150,08,0),"°", 4) 
44 FROST ID: s Mean K:S2(X)>601(SL(X)<1) X 6:’Sd(X) aw” s:a0n{"°" ane” 





TIT. FOST-PCRM COLE 


i Sd( file), file 5 filingsée( '$d( filing) :1vl, lvbfiling:lvl,1: filing) 
+d rode” fmemm 





go 
E 


FOINIER 1004’ = EMPLOY( 
M/FCRM FID # 1 


20 CONVERSION COKE: = amneSe(ame"":"", " (Sd( “EMPLOY(cm, 0) )#10) som, 1 :Sp( “EMPLOW(an,0),"°",1)) 
28 STORED: $p( “ICC(EH,0),""", 3) 

32 POST FILING CLE: di setinck*fméo 

54 INDEX: “ICC("C") 

$5 LOOK NEF: 1°20°SpX “ICC (Lids, 0),"°", 3) 


ITI. FOST-AORM CE 
i Sd( file), file, Mew ad) $:/Sd(ivl) lvlsd 


+6 filingeGe( 'Sd( filing) :lvl, lvb filing: lvl,1:filing) 
+d upontr” Snfcn 











APPENDIX B 


FASCIMILE OF CLAIM FORMS 








CA~6 


CA-7 


CA-8 

Ch-16 
CA-17 
CA-20 


CA~20A 








APPENDIX B 
FASCIMILE OF CLAIM FORMS 


M/FORM 

NAME OF FORM ID # 
Federal Employee’s Notice of Traumatic Injury and Claim 613 
for Continuation of Pay/Compensation 
Notice of Occupational Disease and Claim for Compensation 644 
Notice of Employee’s Recurrence of Disability and Claim 651 
for Pay/Compensation 
Report of Termination of Disability and cr Payment 657 
Claim for Compensation by Widow, and/or Thildren 072 
Claim for Compensation by Parents, Brothers, Sisters, 688 
Grandparents, or Grandchildren 
Official Superior’s Report of Employee’s Death 658 
Claim for Compensation on Account of Traumatic Injury 671 
or Occupational Disease 
Claim for Continuing Compensation on Account of Disability 662 
Authorization for Examination and/or Treatment 687 
Duty Status Report " 689 
Attending Physician’s Report 708 
Attending Physician's Supplemental Report 711 


B~-2 











ee er ee ee ee 
Employee: Please camilete all bows 1 - 15 below. Do mot complete shaded areas. 
Witness: Complete bottom section 16. 


Employing Agency: (Supervisor or Compensation Specialist): Complete shaded bows a, b, adc. 


Tl Nere of employee (Last, First, Middle) SS, Social Seairity Nipber ; =<, t 

3. Date of birth 4. Sex 5. Hore teleptore 6. Grade as of injury 
Level Step 

7. Exployee’s hare mailing adress 8. Deperdents 


9. Place were injury ocourred (e.g. 2nd floor, Main Post Office Bldg., 12th & Pine) 
10. Date injury ccourred ‘Ture 1. Date of this notice 12. Employee's coapation 


13. Cause of injury (Describe what happened and why) 


14, Nature of inrjury (identify both the injury an! the part of body, e.g., fracture of left leq) 

a. Cooupation Ode b. Type code Cc. Snurce ode d. CHC Use-tOl Code 
15.1 certify, under penalty of law, that the injury described above was sustained in performance of duty as an emlcy 
of the United States Goverment and that it was not caused by my willful mscormixt, intent to injure myself or 
anceher person, ror by ny intoxication. I hereby claim medical treatrent. if neaded, ard the following, as 

checked below, «hile disanled for work: 

Signature of amloyee or person acting cm his/her behalf 

Ary persm wo knowingly makes any false statement, misrepresertaticon, cormealmant of fact, oc any other act of 
fraud to cbtain conpansation as provided by the FECA or who knowingly accests compensaticn to which that person is 
rot entitled, is subject co felony criminal proseagion ard say, under appropriate provisions, be punished by 

a fine or impcisonrent, oc both. 

Have your supervisor complete the receipt attached to this foum arc] ream it to you for your records. 


Erd of Employee Report 
16. Statement of witness (Describe whet you saw, heard, oc know about this injury) 


heme of witness Signature of witness Onte sinned 
ACCFESS (Inclice City, State, Zip ox) 





Ciel PEVISICN OMIE: 2% 
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Cy-i Federal Employee’s Notice of Traumatic ee of Pav.Corpensation 
‘ficial Supervisor’s Report: Please complete infoomation requested below: 





17, Agency name ard actiress of reporting office CACP Agency Code 


18. Brplovee’s duty statim 


19, Reqular work hours (Fran - To) <0. Regular work schedule 
21. Date of Injury 22. Date notice received 23. Date stoppad work 
24. Date pay storped . 25. Date 45 day cericd began 26. Date returned to work 


27. Was employee injured in performance of aty? 


2B. Was intury caused by emplovee’s willful mscruict, intccicatin, or intent to injure self or arother? 
29. es injury caused by third party? | 

30. ‘tme and actress of third party 

31. Neme and actress of chysician first pronding mextical care 


<. First date medical care received 
33. Do mectical reports show emloyee is disabled for work? 
34. Does your knowledge of the facts atot this intury agree with statements “f the employee aor witness? 
35. Does the employing agency amtroert continaticn of pry? ‘3. Pay rate when employee stopped work 
3". A supervisor who knowingly certifies to any false statement, misrepresentaticn, conomlment of fact, etc., in 
resoect to this claim may also be subject to appropmate flowy crimnal croseastim. 
T certify that the infeoomticn given anove and that furnished by the enpic,se cm the reverse of this form is true 
to che best of sy knowledge with the following exeptio: 
tame cf supervisor 
Signature of supervisor Drite 
Supervisor’s Title Otfice Fore 


38. Piling instnrtions 


CA-| REVISION ONIE: 3% 











ee A Ue UST UcreneT =v Mosse is id ak Utes ead 
Smployee: Please complete all bows 1 - 23 below. Do aot amplete shecixi areas. 
Employing Agency (Spervisor or Compensatim Specialist): Complete shaded hoes a, b, andi c. 


3. Date of birth 4. Sex S. Hore telephore (, Grade as of date of last exposure 
Level Step 

7. Employee’s hare railirg actress 8. Dependents 

9. Emiloyee’s coaratio a. Ccapatin Coxe 

10. Location (ackiress) where you worked when disease or illness omourred i. Date Ist aare 

12. Date you first realized the disease or illness was causad or aggravated by your employment 


pony 


any 


KW 


. Exglain the relaticnship to your employment, ard why you came to this realizatim 


. "Rture of disease cr illness a. SP Use-NOI Code 


b. Tce onde c. Souree ace 


rf this claim was not filed with the emloying agency within 30 cys after date shown above in item #12, 
explain the reascn for the delay 


il the statement requested in item 1 of the attached instrictians is mct admitted with this foo, eqlain 
:eascn for delay. 


tf the madical reports requested in item 2 of attached instructions are nct sutmitted with this fora, 
explain reason for delay. 


T certify, under penalty of Law, that the dioese or iliress cescribed above was the reault of my 
employment with the United States Government, ard that. it was not caused ry oy willful misorrict, 
intent to injure myself oc another person, nor by my ineadaaticn. i hereby claim mectical treatrenc, 
if needed, amd other benefits provided by the Federal Bployee’s Compensation Act 


Signature of employee or person acting cm his/her behalf Date 


Have your supervisor complete the receipt attached to this foon and return it to you for vour records. 
Any persan who knowingly makes any faloe staterent, misrepresentaticn, carealmyt of fact, or ay 
other act of fraud to cotained compensation as provided by the FECA or win inewingly accepts oxpanse- 
tion to wich that person is not entitled, is subject to felony criminal crosecuticn and may, under 
appropriate provisions, be pnided by a fine oc imorisormant, or both. 








Cy-2 REVISION DFTE: 3.96 


a5 








. 
AT te ee a Ad a CA lt a Ahi eds 


Official Supervisor's Report of Ocapaticwl Disease: Please comlete informarion reqested belay: CHCP 


Agency Ode 

iJ. sgency nate, ad adress of reporting office — CSA Site Cie 
20. Anployee’s duty staticn 22. Reqular work schedule 

23. Neme and attress of physician first providing medical care 24. First date medical care received 


ia 


aes 


z 


Y 


. Date emlovee first ceported camitum to aperiscr 


. Oo medical reports show employee is disabled for work? 


27. Gate and hour employee stopped work 


t 


. Date and hour employee’s pay stopped 29. Late employee was last expceed to 


corditions alleged to have caused 
cLsease or illness 


. Date returned to work 


If employee has retumed to work and work assignment has changed, describe new duties 


. ‘es injury caused by third carty7 33. Sere arrd actiress of third party 


A supervisor woo Imowirgly certifies to any false statement, misrepresemtation, aroaalrent cf fact, 
etc., in cespect to this claim may also be sunect to appropriate felony crimanal orosecuticn. 


I cert. fy that the infoomatig maven above and that Surnashed by the emiicye2 cn the reverse side of this 
foron :S Lous to the dest of my knowledge with the follanng sceptian: 


ame cf Supervisor 
S:veture cf aperisx inte 


Supmicor’s Title (tfice phone 


oY. ENLACNERIE: Se SCSCSCSCSCSOSSSSSS 
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C&+2A Notice Qf Employee’s Recurrence Of Disability And Claim For Pay/Oompensaticn 
IMECRIANT: Before carpleting this form please read carefully the instructions. 


. HE RED EMPLOYEE : : id 
(if known) 
4. HOME MATLING ADDRESS 5. HOME TELEPHONE 
6. NAME AND ACDRESS CF EMPLOYING ESTRELISHWENT . 7. NAME AND ADDRESS CF EMPLOYING ESTABLISHMENT 
at tine of original injury at time of recurrence, if other than 6. 
8. DATE AND HOLR 9. DATE AND HIR 10. DATE AND HOR stopped LL. DATE AND HOUR pay stoppad 
of original injury of reaurrence work following recurrence following recurrence 
12. BAY RATE IN EFFECT CN: -. Base Pay Subsistence . Quarters Other Pay 


a. Date of Recurrence (S$ per) 


b. Date Stopped Work Following 


Recurrence (5 per) 


13. Show work week at time pay stopped, 14. CATE AND HOUR retumnad to work, 
if other than Monday thru Friday following recurrence 


15. At time of recurrence did official suyperice authe-ize matical treatrent ? 
16. DATE employee first received medical 
17. NAME AND ACERESS of physician treating emloyee following recurrence treatrent. 


18. After returning to work following the original injury, was the employee handiceppsd or ld il 
limited in perfooming his/her usal duties? 


19. Describe the circumstances af the cecurrenoe of disability as reported by the ag T£ the condition 
gradually worsened over a pericd of time, describe the progress of the comiition fron the time employee retumed 
to work up to the date of reaurreree. 


A supervisor who knowingly certifies to any false staterent, misrepresentation, conmalment. of fact, etc., 
in respect to this claim may also be subject to appropriate felony criminal presecuticn. 


20. Signature of official superior 21. Title 22. Official aperior’s 23. Date 
(at. time of recourreme) work phone nunber 


—“GraA RVISIN DAE: 07 =O 
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Ch-ZA Notice OF Bnployee’s Recurrence Of Disability And Claim Yor Payorpensation 





24. SS ee ee Oa ee ore ore ete eae Do not inchle pericd 
. of sick or amal lene. Thr: 


25. Show gross dollar arnt of regular pay which employee received during this pericd of reanterce. 


26. If pay changed during the periad emloyee 27. Tf pay rate changed during the period employee was reoniving 


omtinuaticn of was receiving omtinatio of pay, io this pay, give new rate. 
recurrence, stow date of change. Base Subsistence Qarters Other (Specify) 
2B. cag Aes hail cae See ear oigriok ued ricd shown in item 29(b) or 29(c). 


a, Dates & Hours Worked ~=b.. Pay Rate <. hital beak fared a a. Noe ack i bactcciad: ‘6; Nee (odteuice Beloe 


29. I certify that the recurrence claimed m cate in item 9 was dix to the injury sham in item 8 and I hereby 
claim medical treatment, if needed, and the following as checked below, while disabled for work. 


a. Sick arclor arial lene 
Fron 


b. Continuation of regular pay not to exeed 45 days, which will include days taken during the original injury 
and prior rsourrence(s), and carensation for wage loss if disability for work omtinues beyordd 45 cays. (If my 
claim is denied, I uderstarc] that the continuation of my regular pay stall be charosd to sick oc anual leave, 
oc be deemed an overpayment within the meaning of 5 USC 5584). 

Fram: 


c. eee een oer ree 
Thru: 











WET OGENENA WA ADs Wa ee A Oda a SEY ON CUE 


. Nee oyee (Last, first, e : Security r : cai ae 
(if krown) 


4. Department or Agency 5. Bureaus or Agency 
6. Name and Acthess of Reporting Office 


7. Date and Hour of Injury 8. Date and Hour Stopped Work = =—s-« 9. Date ard Hour Pay Stopped )s=s 10. Date and Hour 


Retumed to “ork 
11. Bployee’s Work Week Cn Return To Duty If Other ‘Than Monday Thrash Friday 
12. Present Pay Rate If Different Fron That Received At Time Employee Stopped tork 
a. Base Pay b. Subsistence c. Quarters a. Other (Specify) 
13. Inclusive Dates Enoloyee Received Pay for Any Part of ‘The Periad of Absence Beceuwe cf: 
a. Arrmual Leave b. Sick Leave c. Other (Specify) 
Through: Thrash: Thrash: 


14. Has Srployee’s Work Assignment Been Changed Because of Disability Resulting Fron ‘this Injury? 


15. Tf Interrupted, Show Dates Deductions For Haalth Benefits and/or Coticnal Insurance Were Resumed 
Health Benefit Opticnal Insurance 


Yr 


non 


. If Health Berefits Qotion Has Changed Since Disability Began, Show New Ccde Number and Date of Change . 
Nurber Date 


ran 
~d 


. Remarks: 


18. eee ee ee ee 
Do not include pericd of sick or arial lene 


From: Thrazn: 


19. Show The Gross Dollar Amount Of Regular Pay Which ‘the Brployee Received During ‘the Periad of Disability. 
Co rot include pay received for sick or aml lee. 


20. If Pay Rate Changed During The Periad mrployee Was Receiving Continuation of Pay, Show ‘The Date of Chane. 


al. Tf Pay Rate Crenged Baring ‘he Pericd @xployee tas Receiving Ootinuetion cf Pay, Give New Rate 
a. Base Poy b. Subsistemce sc. Quarters d. Other (Specify) 


22. Signature of Supervisor 23. Title and Office Pore Naber 24. Date 
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Ur ULAU DOL “UUTDENSALLU Dy WOU, KOUNeL, alLyok Uudien WR W. Lenrvins 
Expires: 03-31-89 


. Name : . bete of Bi . bate of Injury 4. Date of Deal : r 
6. Name and actiress of employing agency 7. Nature of injury which caused death 
8. Nave and aciress (Inclute Zip Cote) 9. Your Date of Birth 10. Tate of Marriage to Prployee 
LL. Were you living with the 12. Were you ever married to aye 13. *Bs employee ever married to 

employee at time of death? other than the employee? aycre other than yourself? 


14. List all employee’s children from this marriage who may be entitled to comersation (See attached informatio 
sheet for definiticn of children): 


Name Relationship Date of Birth Actress 


15. I£ a legal quardian has been acoointed for any child named above, give name of child, name and actress of 
the quardian. 
Child QGardian Quardian’s Addr=ss 


16. List other relatives who were fully or partially dependent cn employee: 
Name Felaticnship Date of Bicth Adress 

17. If employee was ever in the Anmed Forces of the United State,give: Service runber: 
Branch of service: 
Pecicd of service: 


18. If amlicaticn has been made for Veteran's Aminitration (VA) benefits because of emloyee’s daath, give: 
VA Claim nunter: Address of VA office where claim is filed: 


19. If application has been made for U.S. Civil Service Annuity becuse of emloyee’s death give: 
CSF Claim Number: Date Annuity began: Prrount paid per month $ 


20. If a claim has been mede against a third party because of employee’s death. give: Amant of reawvery: 
Name and ackiress of third party. 


21. Total burial expense 2. Prout of burial expense paid or payable by \A. 
23. Name and ackiress of party (other than \A) whose funds were used to pay burial eqense and atont paid: 

1 hereby certify that each ard every statement mede above is tne to the best of my inowlecke. 
24, Signature of person filing claim 2S. Actiress (Incl Zip axe) 26. Date 
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Ge5 Claim for Compensation by Widow, Widwer, sa des he arcoaa 
Attending Physician's Report 


1. Nene of deceased employee (Last first mile) 
3. What history af injury or employment related dissase was given to you? 


4. hestreated for disease, give diagnosis. 

5. If death was no instantaneous, describe the treatment you provided. 
6. Show date on which treatment was given: 

7. What was the direct cause of death? 

8. Seas Dae cage aad east if any? 


9. In your opinion, was the death of the employee de to the injury as reported in item 3 abe? 
Give the medical reasons for your quinicn, unless causal telationship is cbviass. 


“10. Was a biopsy or an autopsy performed? 
if yes, give rane ard actress of phywician antl arrwee for a txpy of the revert to be. witeletad. 


LL. Name ard adtiress(please type ~ include zip cade) 


12. Signature. 13. Date signed 
; ———— MVGINIAE: 16 °° °° 
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Ch-53 Claim for Compensation by Parents, Brothers, Sisters, Grandparents, or Grancchildren QS Nb. 1215-0155 


Eqgires: 03-31-89 
Sa aaa I TI A Raa SR a ES OT IY 
1. Nave of deceased employee 2. Date of Birth 3. Date of Injury 
4. Date of Daath ' 5. Social Security Nunter 
6. Name and actiress of emloying agency 7. Nature of injury which caused death 
8. Name of dependent (Last, first middle) 9. Deperdent’s actirese 
10. Dependent's birth date | LL. Dependents Qooupation 
12. Osperciant’s Social 13. Dependent 's relaticnship 14. Extent of deperciency cn 
Security Nurber to employee enloyee 
15. Total arount employee 16. Did smployee live with =—_17.. Total amt eplovee 18. If no fined 
contributed to depercent’s dependent during the 12 paid dependent in scmey or arourt was paid 
suport during 2 mnths worths inmectiately prior service for room ard board wet is the 
immediatly prior to death? to death? in acktitim to the amt fair value of 
ston in 15. of such? 
if "yes", amplete 17 « 18 $ per $ per 
9. Tf dependent was employed during 12 mmth pericd prior to 20. Show deperdent’s incom fron all sourves other 
emloyee’s death, give: than employment during 12 month pericd prior 
mcr bah ara 
Type of work perfoomad: 
Pericd of anlowent: lated 
Monthly pay rate: Peram other than employee 
Nee ard actress of emlover: Other 
Total 
1. Birth Date 22. Cooryatio 23. Mmthly pay rate 24. Total income form all source 
: for 12 mnths prior to 
employee's death 
$ $ 
<5. List all property owned by deperdent and husband or wife (amit clothing, fimniture, ee 
Oeescripticn Date Acquired 
26. Tf employee was ever in the Acmed Forces 27. I£ an application has been made for Veteran’s Admin- 
of the United States, give: istration (VA) banefits because of employee’s death, give: 
Service nunber: NA Claim runber: 


Branch of service: Actiress of VA office where claim is filed: 
Pericd of service: 
28. If an application has been made for U.S. Civil 2. If a claim hes been mecie acpinst a third party 
Service Annuity beceme of employee’s death, give: because of employee’s death, give: 
CSF Claim Nunber: wramt of reowery: $ 
Date Ammuity beqan: Nave and actiress of third party: 
Amount. paid per month: $ 


30. Total burial eqense 31. Aron of burial eqerse 32. Mave and ackhess of party (other than \A) 
paid oc preble by VA whose funds were used to pay burial 


$ $ $ 
33. Signature of persm filing claim 4. Actress 35. Date 


eee ee NR Sie. 


Bel? 











Attencting Physician’s Report 
. Nare ! ,tirst, e ' 2. Date 


3. Wet history of injury or erployrent related disease was given to you? 4. If trested for disease, give diagmsis. 


5. If death was not instantaneous, describe the treatment you provided. 6. Sow date m which treatment was given. 


7. vrat was the direct cause of death? 


8. Wet were the omtributory causes af death, if any? 


9. In your opinion, was the death cf the employee die to the injury as reported in Item 3 above? 


“10. ¥as a biopsy or an autopey performed? (Arrange for a copy of the mort to be saimitted.) 


Ll. Name ard ackiress 


12. Signature 13. Date Signed (Mp., cay, year) 

















» 


YT. Nene of Deceased Enployee (Last, first midile) 2. bate of Birth 3. ox T. Social Seaurity to. 


24. 


epartment oc Agency 6. CAP Agency Code 7, CBA Site Code 
8. Neve and Ackiress of Repocting Office 9. Neme arc Office chime thiker of eeptaviee’s odticial Superior 
10. Date and Hour of Injury 11. Date and Hour of Death ' 12. Date and Hour Employee's Pay Stopped 
13. Describe how insjury occurred 14. Was employee in perfoomnce of duty when injury coourred? 
15. Location where injury coamred 16. Location where death ocourred 


. Dovediiate cause of death (Attach mectical acd actopsy report if available) 


. Employee's pay rate as af a. Base Pay b. Subsistence ¢. Quarters d. Other 
A. Date of injury $ per $ per $ per $ per 
B. Date pay stopped $ per $ per $ per $ per 


. Did the employee work in position held at time cf injury for a full eleven soniths immectiately prioc to the injury? 
. If arwwer to 19 is no, would position heave afforded employrent for eleven srths exept for the injury? 


. Did employee receive leave pay for any part of pericd from time 2. a. Oxgpatio ade 

Pey stopped to date cf death? (Give inclusive dates) b. Type code sc. Source coe 

@. CACP ume-NOI coded. 

. Did employee receive ontinaticon of pay (COP) during period prior to death? 

a. Pay rate weed for OOP $ per 

b. Inclusive dates of fran 

If employee was enrolled in Health 25. Show date thiuigh which HS 2%. If enployee received medical care 
Benefit Plan for self ard family, Ceductions were last mee ;Xior to death, give name acd 

stOw HES Code Number: (Mo., Cay, y=) actress of attarciing physicisn 
. If injury wes ceased by third party, 28. Give rave and actress cf attomey representing survivors 
give name and actress of third party. if legal actin is instituted against the third party. 


. Dow aront of third party reoowery, if any. 


. If employee was a merter of the Acme Forces of the 31. Hes claim for axvivoc’s benefits been filed with the 


United States, show: Office of Rersomel Management? 
Serial No. (if know) 


» Name and actress of employee's spouse oc next of kin (Show relationship, if other than spouse) 
. Signature of Official Superior 4. Title 35. Date (Mp. day, year) 
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G7 Claim for Compensation Cn Acocunt of Traumatic Injury or Oonupational Disease 


. Nae oyee - ODP File Nuno 
3. Social Seourity Number 4. Period of wage loss for which compensation is claimed Hours 
Fram thru schedule 


5. Is this a claim for a werd? 


6. Has any pay been received for pericd 7. If yes, aront © From Thru 
shown in item 4? 


8. Was claim made against 3rd party? 9. Neme and achiress of 3rd party cr insurance carrier 
10. Has the claim been settled? Give amount recovered. 


Li. Have you ever applied for or received berefits from the Veterans Administration based cm disability 
incurred while serving in the Anmed forces of the United States? Tf yes, furnish +> 
a. Claim number b. Actress of VA office were claim is filed c. Nature of disability and mnthly payrent. 


12. Have you applied for or received any amity umer the U.S. Civil Service Retirement Act or any other 
Federal Retirement or Disability Law? ; If yes, furnish > 
a. Claim noter b. Date annuity began sc. Amount of monthly payment. 


13. List your dependents 
var Date of Birth Relationship Living with you? Mailing Address, if different from your om 
14. Supgort information for above dependents 15. Were support cements ordered by a court? 
Are you making support peyrents for If so, attach oopy of court order. 
@ dependent shown above? 
16. If yes, support payrents are race to: 17. Arount Per 


18. I hereby make claim for compensation because cf the injury sustained by me while in the perfcrmence of my 
duty for the United States, said injury mt beirg de to willful misconduct om ny part or to my intention to 
bring about the injury or death of myself or another, or to my intadcaticn. I have been disabled because of 
cnis injury and have not refused or failed to perform any work I was able to co during the periad for which 

compensation is claimed, and every staterent above is tre to the best of my krowledge amd belief. 


Any perscn who knowingly makes any false statement, misrepresentation, concealment of fact, or any other 
act of fraud, to dbtain compensation under the Federal Brployee’s Compensaticn Act, or who knowingly 
accepts compensatia to which that persm is not entitled is subject to felony criminal prosecuticn and my, 
under aporcporiate criminal provisians, be punished by a fine or imprisonment, or both. 

Employee’s Signature Date 


19. Employee’s home mailing ackiress 








MET a A EO IIL july Ok Ue Wises 


. Fay Rate As OF: a. Base Pay) —é—“‘(‘éi’éé#O<+#@#CWS OSwistece——~—~CC. QRmnrters——“‘i;é‘sS Ree (SY 
$ per $ per $ per $ per 
Date of Injury 
Date Employee 
Stopped Work 
21. If emloyee received acktitional pay, idericify type and stow anont 
Premum Pay (per) Night Pay (per) 
Suviay Pay (per) Other (identify' 
22. Show work schedule for week pay stopped 23. Did employee work in position for L1 mmths prior to injury? 
24. If not, would position have afforded enployrent 3. Total lencth of faceral civilian service 
for 11 months but for the injury? Yrs. Mos. 
26. Was the employee enrolled in a Health Benefits 27. Was the amloyee enrolled in an Qoticral Life 
Program cn the date pay stopped? Insurance Program cn the date pay stopped? 
If yes, give coe. If yes, «ss emloyee enrolled in Qtim A, B, or C? 
Ending date of the pay pericd inwhich =m day yr 
HBS/QL] Deductions were last made? If Qoticn B, show rumber of multiples 
Se ee ter er nee eee eee 
Sick Leave (motay/yr) From: 


Arnal Leave (mycay Ar) 
Other Leave (mm/day/yr) 


29. If employee received continuation cf pay (COP), give cates. 
Thm: 


Fram: 
30. Date all pay stopped (raiayAyr hr cf day) 31. Pericd for which compensation is claimed (mtay/yr) 
From: Thru: 
32. Date returned to work (matey hr of day) 33. Work schedule when returnad to work 
34. Dic the work assignment. chance because cf disability 35. Pay rate on retum to work 
resulting from the injury? $ - pee 


¥%. A sxetvisce who knowingly cectifies to fe aliet wanerine Giay cual arene 


Agency reme & actress Cffice phone nunber 


37. Tf CACP needs specific pay infoormtion the persan who should be omtacted is 
Prone Nunter. 
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T. NE OF INGFED EPIOMEE (Last, iret midile) 2. OX? FILE NIGER, IF RON 


3. HOME MAILING ACORESS (Inchice ZIP cox) 4. SOCIAL SAORTTY Neer 
DUE AND HOLR OF INARY (MD. day, year) 


5. ; 
6. PERICD COMPENSATION IS CLAIMED AS RESULT OF BAY LOSS (Mb. day, year). IF BAY LOSS WAS INIERMOTIENT ATIACH 
SEPARATE SHEET SHOWING OKTES AND HOLRS OF PRY LOSS. FRM: THRO: 


7. HAVE YOU RECEIVED ANY LEAVE BAY DURING THE PERICD SOMN IN ITEM 6? 


8. DO YOU WISH TO REPLFORS LEAVE? 


SICK LEAVE FROM ; THROLEH: 
ANAL LEAVE FROM TOG: 
OTHER LEAVE TOR: 


OTHER LEAVE SPECIFIED: 


9. Re Fee a a BIG De aoa ane ATIPCH A SEPARATE PET IF NEFTED. 
a. SALARIED EMPLOWENT. 


DATES & HOURS FAY PAIE TOTAL AMOLNT TYE WORK NAME & ADCRESS 
WRED (Per. hour, day oc week) EARNED PERFCRYED CF EMPLOYER 
b. COMMISSION AND SELF-EMPLOMMENT. SHOW ALL ACTIVITIES, WHEIZER OR NOT INCOM RESULTED FCM YOLR EFFCRUS. 
UATES & HOLES "NAME AND ACDRESS SLF-EPPLOLED TYPE OF ACTIVITY INCOME DERIVED (ATIRCH 
WORKED OF BUSINESS COMMISSION PERFORED EXPLANATION IF NEEDED) 
19. IF YOU HAVE APULIED PCR EMPLOYMENT WITH THE U.S. TRAINING AND EMPLOAMENT SERVICE GIVE THE PCLLCWING: 
PELLSTRATION ND. CAGE OF REGISTRATION CRFICE ACCRESS 


LU. Tf YOU WERE CNLY PARTIALLY DISABLED AND DID NOT WORK, SIMKIE REASON FOR NOT WORKING. 


12. IF, SINCE FILING YOR INITIAL CLAIM FOR COMPENSATICN, YOU HAVE APPLIED POR OR RECEIVED VA BENEFITS BASED CN 
MILITARY SERVICE FOR THE UNTIED STATES, GIVE THE FOLLOWING: 


CLAIM NOD. NATURE OF DOLSABILITY AND MONTHLY PAYMENT NAME AND ACKFESS OF CFFICE 
WENe CLAIM IS FILED 


13. IF, SINCE FILING YOR INITIAL CLAM FOR COMPENSATION, YOU HAVE APPLIED FOR OR RECEIVED AN ANNUITY UNCER THE 
CIVIL SERVICE RETIREMENT ACT OR OTHER FEDERAL RETIREMENT OR DLSABILITY LAW, GIVE THE FOLLOWING: 
CLAIM NO. AMOUNT OF PONTHLY PAYENT NAME AD ACDRESS OF CFFICE 
WHERE CLAIM IS FILED 


14. SIGNRIUPE OF EMPLOYEE OR PERSON ACTING CN EMPLOVEE’S BEHALF. Any pera wo 
knowingly vakes any false stacerent, misrepresentaticn, conmaalment of fact oc any other act of frarl to 
Space ee ee aACOAtS conpensaticn to which that per- 

SM i8 not entitled is mixject to felony criminal prosecution and my, under appropriate crimiral provisions, 
be punished by a fine o¢ inpriscrmer, or both. 


15. OMTE (mo. ,cey, year) 
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. HAS EMPLOYEE RECEIVED ANY PAY FOR WORK, LEAVE, 19. IF ANGHER TO TIEM 18 IS YES, SHOW: 
SUBSISTENCE, QUARTERS OR OIHER REMNERATION 


FROM YOUR AGENCY OLRING THE PERICD GOWN IN ITEM 6 MONT: $ 
CN THE REVERSE SIDE? TYE OF PAYSNT: 
FERIOCD: FROM THO 


20. LF THERE HAS BEEN ANY CHANCE IN EMPLOYER’S HEALTH BENEFIT ENROLLMENT ANDAR CPTICNAL INSURANCE SINCE 
PREVICLS CLAIM FOR COMPENSATICN WAS SLBMITIED, PLEASE EXPLAIN. (i.e. change af plan oc apcin; if 
acditional deductions have been made by the agency, show arount ard pericd.} 


21. REMARKS 


22. SIGNATURE OF OPFICIAL SUPERICR 23. TIME 24. CACE(mo. ,dey year) 





Cr-8 REVISION ONIE: 10/06 
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The Sollcwing request for information is authorized by law (5 USC 810] et.aeq.). Benefits and/or mecical services 
expenses mey not be subject to suspension umder this program unless this report is completed ard filed as requested. 
Infoumation collected will oe handled in compliance with the Freeckm of Infoomticn Act, the Privacy Act of 1974 and 
OB Cir.No.A-16. 


Neme 285 ty or can to rvice: 


to 
. 


Employee’s Nave (Last, first, midile) 3. Date of Inj wy (M. ,cey,yr.) 4. Oagpstim 


an 


Descripricn of Injury or Disease: 


6. You are authorized to provide matical care for the employee for a period of up to 
fs ts wees is ie Gacy ote ite A ne de tion indicated 
A. Your signature in item 35 of Part B certifies yar agremart thet all fees for 
the meocimm allowie fee established by GCP and that payrent by CAC? will be 

for said services. 


days from the date shown in 
eka! 2, in itan B. 
etall nt oceed 
as payment in full 


ag 
ie 


i 


B. Omnittions: 


7. Tf a Digesee oc Lilness is Involved, OXP Agormal for Ll * ing 8. Signmsture of Axthovizing Official: 
Authorization was Cotained from: (Type Nee and Title of UP 
Official) 


9. Name and Title of Authorizing Official: (Type oc orint clearly) 


10. Local Employing Agency Telephone Nunber: Li. Date(Mb. day, year) 
12. Send one copy of your report: (FLL in remainder of actress) 13. Name ard Actiress of Erployee’s Place of 
Brployment : 
U.S. DEPRRIMENT OF LABOR Department. oc Agency 
Proloywrent Stardards Administration Bureau or Office 
Office of Worker’s Compensation Programs Local Address 
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Nee ae 





Pelo Aurrorizatim For BPemnatio Axor Treatrent 


fo 





ts 


5 Nae ,Urst, 


. What History of Injury or Disease Did Employee Give You? 
. Is There any History or Evidence of Conaurrent of Pre-edsting Impry, Dissase, oc Physical Inpaioment? 


(Z£ yes, plaase describe) 


. Wet Are Your Firrtirgs? (Inclirle results of ¥ rays, latoratory tests, etc.) 
. What Is Your Diagosis? 


. Do Yu Believe the Grrtitio Port wes Caused or Aggravated by the Bmployment Activity Described? 


(Please eplain your anmer if there is dott.) 


. Did Injury Require talizaticn? Zi. Is Aktiticnal Hoamitalization Req red? 


Date of discharge (Mp. ,day.year) 


. Surgery (LE any, describe type) 23. Date Surgery Performed (Mb. Gay, year) 

. What (Other) Type of Treatment Did You Provide? 2S. what Peoranent Effects, If Any, Do you 
articipate? 

. Dite af Airst Bendraticon (Mb. day, year) 27. Date(s) of Towatrent (Mb. ,cey, year) 


. .&oe of Discharge Pros Treatment (Mo. ,dey, year) 
. Period cf Disability (Mb. get aseld (if terninsticn date uncon, # 20.) 


Is Poploywee Able to neare indicate. Light work Date: 
Total Disability (From To) Feguiar Work Date: 
Partial Risshility ("rom Tb) 


. Lf Exployee is Able to Resume Wock, Has He/She Been Advinsd? If Yes, Mumish Mate Advised 
. If Exployee is Able to Reame Oily Light Work, Iscticate The Extent of Physical Limitations 


ard The Tyoe of Work Tat Co-ld Peasormbly be Perfonred with These Limitations. 


. Caneral Rerarks arr! Recorerdiations for Puoure Care, If Inticated. If You Ree Me 


a Referral to Another Physician or to a Medical Facility, Provide Nee ant Actress. 


. Oo You Soecialize? (If yes, state epecialty) 
. SIGQATURE OF PHYSICIAN. I certify thet all steterents in response to the questions asked in part B af this form 


are true complete and correct to the best of my mowecke. Arther,I urersterd tt any false or misleacting 
statement or any misrepresentatim oc conmsalment of miterial fact which is knowingly made my sibject 
me to feleny criminal proseasticn. 


Address (No. ,Street,City,State,ZIP Code). 3s. Tax Identification Nutter 38. Date of Report 


Cho ie olON DALE: 10/Bo 








G-17 Duty Status Report CPB No. 1215-0103 Eines: 9-30-88 


request tion 1s fol 5 ee ee 
paid or nay Fates et eee ee Uae report ia 
Corilited at Evlad ee cacestell Information collected will be herriled and stored in cmpliance with the Freeckm 


- af Information Act, the Privacy Act or 1974 and the OB GirA-105. 
Instructions for Ompleting art Subsitting this fore 


Sxervisor: Omplete Pact A ad refer the form to the atterxting physician for completicn of Part B. | 
Attending Physician: Complete Part B. To prevent interruption of the employee’s pay, the completed form should 
be returned to the emloying agency (as shown in Item 12) withing to days following eainatio aor treatment. -t 
A copy of the foum should also be sent to the down in Item 11). | 





. Nee ty TV1CeS: é c 

3. Bmployee’s Neue: 

4. Date af $ 

Social Security No: 
6. Qoagsticn: 


7. Deseribe How the Inrjury Cccurred arr] State Parts of the Body Affected. 


8. Specify the Usual Work Requirements of the Employee. Check Whether Exployee Performs These Tasks of is Eqoead 
Continxusly or Iteodthently, and Give Number of Hours per day. 


Activity Identify or Describe Type Eqceure: Hr/Day Degrees GBA 


9. Does the Jcb Require Driving a Vehicle? Qperating Machinery? 
10. The Exployee forks: Hours Per Day Cay Per Week 
Ll, Send a Qopy of “his Report ‘b: U.S. Department of Labor 
Exployrent Starards Administration 
; Office of Workers’ Conpensaticn Programs 
a2. Srl theca ct co (Nm es of loin Ae 











. Does jury Given to to that tam 


13>. Descripticn of Clinical Findings 


13c. Diagnosis of Condition De to Injury 


13d. Diagnosis of Other Disabling Contitions 


14. 


15. 


16. 


17. 


BR 


to 


Is Employee Able to Perform His/Her Regular work? Full-Time or Pact~Tire? if Part-Time, hours per day: 


Complete the following i: the answer to Item 14 is "No" 
Activity if mt, caomlete Item 15 below Identify oc Describe Tyre Eqosure Hrs, ‘Day Degrees GA 


Describe Any Other function of This Brployee’s Regular Work Which is Medically Restricted Sy The Injury. 


Period of Disability 18. If Brployee is Able to Resure Work, Has He/She Been Advi saci? 
Total Disability (FreamTo) If yes, Give Date of Advice. 

. Date of Derinaticn 20. Date of Next Appointment, If Scheciled 

. Typed oc Printedd Name ard Actress of Physician 22. Specialty 23. Tax Identification Nunber 
. Physician's Sigmture 25. Date 
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TY. Patient's name 2. bate of injury 3. G&P Nie Niter 


4. Is there any history or eviderne of concurrent or pre-existing injury oc disease or physical 1m9 are 
inpainrent? ( If yes, please deschribe.) ; 


5. What are your firctings? (Inclute remults of X-Rays, laboratory reports, etc.) 
6. What is your diagnsis? IC-9 Code 


7. Do you believe the condition found was caused or aggravated by the emplowent activity described? 


8. Did injury require hospitalizatian? 9. Date of admissio 10. Date of discharge 


If no, @ to item #12 
ll. Additional Hosmitalization required? If Yes, describe in Item 24. 
12. what treatment did you provide? 


13. Date of first ecamiratio 14. Date(s) of treatrent 1S. Date of discharge 


from treater. 
16. Pericd of total disability 17. Pericd of Partial Disability 18. Date employee able to 
Fran . thu Fron thru reaure light work. 
19. Date employee is able to reaune regular week. : 
20. Has employee been advised that he ‘the can 21. If yes, cn what date was he/she aclvised? 


return to work?, 


22. If employee is able to resume oily light work, ircticnte the extent of physical limitations ard the type of 
work that could reasonably be performed with these limitations. (Continue item #24 if necessary.) 


23. Are any penrenent effects expected as a result of this injury? If, yes describe in item #24. 
<4. Remarks, 


2s. if you have referred the employee to arcther physicim provide the following Specialty 
26. What was tne reas for this referral? 


27. 1 certify that the statements in resocrnee to the qestions asked above are tre, amplete amd correct to the best 
of my knowledge. Further, I understand thet any false or misleacting statement or any misrepresentaticn or conceal- 
ment of material fact which is knowingly mece may sibject me to felony criminal proseastin. 


Sigmture of Physician Date 
28. Nare ard actiress af Physician 29. Tax ID Muatbet 
3. Do you specialize? OL TE yes, indicate specialty 


Cho REVISION DRE: 108 " 


B-23 











FOR INSIRUCTIONS SBE FEVERSE SITE 


TT NAWE GF INGURED EPSLOVEE “Sy Gir FILE NMER, ROW © 
3. HOME MAILING ACERESS (Inclice ZIP axe) 4. SOCIAL SECURITY NUPEER 
5. OATE AND HIR OF OLY 6. PERICD COMPENSAITON IS CLAIMED AS RESULT OF BAY LOSS 
FRM: THO: 
7. DATE OF MOST RECENT 8. IS EMPLOYEE’S PRESENT CONDITION §. IS EMPLOYEE TOTALLY DISABLED 
EX@MINATICN (Mo. ,day, year) DLE TO THE INOURY FOR PHICH FOR USURL WORK? 


COMPENSATION 1S CLAIMED? 
10. DESCRIBE NATURE OF PRESENT IMBAIRMENT 1. STATE OIAGCSIS 


12. WHAT TREADENT IS EMPLOYEE RECEIVING AND HOW OFTEN IS IT GIVEN? 
13. WHAT PERMANENT EFFECTS, IF ANY, ARE ANTICIBRIED? 


14. DESCRIBE ANY CONCURRENT OLSABILITY EMPLOYEE HAS WHICH IS NOT RELAXIED TO THIS INOLRY 


15. WILL OLSAAILITY YOR REGLLAR WORK CONTIN FER 16. IF EPLOWE IS ABLE TO RESUME RECLLAR WORK, HAS 
90 DAYS CR LONER? He CR OSE BREN AVISED? 
IF NO, APPROXIMATELY WHAT CAVE WILL EMPLOMEE BE oF YES, SOW ONTE ESLOWE WAS INPCHED 


PELE TO REIURN TO WOR? 


17. EMPLOYEE IS CNLY PARTIALLY DLSABLED, SHOW DATE 18. IF EMPLOYEE HAS BEEN REFERRED TO ANOTER 
HE OR SHE WAS ABLE TO PERFORM SOME WORK AND PHYSICIAN PCR CONSULTATICN OR TREATMENT, GIVE 
DESCRIBE SPECIFIC WORK RESTRICTIONS. (i.e. limitations in FENSICIAN’S NAWE & ACCESS. 


stooping,bending, lifting,etc.) 
19. RECOMMENDATIONS AND PROCESS 


20. ACORESS (Include ZIP ade) 21. IF YOU SPECIALIZE, INDICE SPECIALTY 


<2. SIGNATURE OF PHYSICIAN. I certify that the statements cm the 23. OME CF REFCRT (Mb. chy, year) 
reverse apply to this report and are mec a part hereof. 
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APPENDIX C 


LIST FILE ATTRIBUTES 
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APPENDIX C 





LUST FILE ATIRIBUIES 
FILE NPEER FILE NVE 
2002 FORS 
1004.2 INOURY COMP & CLAIM (EMPLOYEE) 
1005 INOURY COMPENSATION & CLAINS 
1007 ACTIVITY FILE 


1017 NATURE OF INOURY (NOI) 


1018 BQOY BRET 

1025 ACCIDENT FILE 

1026 CALSE OF INOURY 
1027 20 eCE OF INUEY 
1029 CLAIM TYPE 

1057 OHA INOURY COLE 
1061 ADXDICATION SINILS 
2062 OACP AGENCY COLE 
1063 ONCP REFCRIING CFFICE 
1068 AGENT OF ACCIDENT 


1093 FAY STPOLS 








DAZA DICTIONARY #1002 — FORSS FILE OSHASS/ACHDIS SYSIEM STORED IN “FORS( 





OXIA. NYE GLOBAL DESCRIPTION 
ELPENT LOCATION ; 








‘The fooms pacda@ge was created to print CA fom facsimiles. Five routines are nn in cayjucti with this file: Tor, 
T3Fl, TAS, and, TCT. 


*ICENTIFIED’ BY TITLE OF FORM 
"FOINIED TO’ BY THE ‘NEXT FORM’ FIELD OF THE ’NEXT FORM’ SUB-FIELD 
CF THE ’FRORMS’ FILE 
"POINIED TO’ BY TE Sopa FIELD OF THE ‘INOLRY COMP AND CLAIMS’ SB-FIELD 
GP THE 'EMPLOWEE’ 
"POINIED ‘TO’ BY TE *CLAIN ORY NE® FIELD OF THE ‘INOURY COMP AND CLAIMS! SLB-FIFID 
OF THE 'EMPLOMEE’ FILE 
*POINIED TO’ BY THE ‘CLAIM FORM LAST RECEIVED’ FIELD OF THE “ICC FILZ’ FILE 
"POINIED TO’ BY THE ‘CLAIM PCRM NEXT’ FIELD OF THE ‘ICC FILE’ FILE 
CFOSS-FEFERENCED BY: NAME OF FORM(B), SHORT NAME(C), ‘TTILE CF FORM(D) 
CRENIED AUG 27,1987 (NHRC) 


1002,.01 NAME OF FORM 0;1 FREE TEXT ANGER MET BE 1-6 CRRACIERS IN LANGH 
(Required) Input transfom: 
K:SL{X)>6! (SL(X)<L)!" (X°7LP.£) X 
CROSS-REFEFENCE: 10028 


1)= S “FORS( "8", SE(X, 1,30) /DA}="" 
2)@ K “FORS("B", 5E(X,1, 30) ,DA) 


1002,1 TITLE OF FORM Q;2 FREE TEX? «= ANGYER MBT BF 1~100 CHARACTERS IN LENGTH 


Input transfom: 

KX] "1 (SA(X}ed5) X I Q(X) K:SL(X)>1001 (SL(X)<1) X 
LAST EDITED: OCI 18, 1987 

CRCES-FEFEFENCE: 1002°D 

L)e S “FORS("D" SE(X,1,30) ,DA)="" 

2) K “FORS("D”,SE(X,1,30) A) 


1002,2 FEVISICN 0;3 | FREE TEx «ANSWER MUST BE 1-6 CHARACTERS IN LENG 
Ingut transform: K:91{X)>61(SU{X)<1) X 

1002,3 HEALER 1;0 1002.01 Multiple | 

1002.01,.02 HEADER 0;1 FREE TEXT ANGER MOST BE 1-122 CHARACTERS IN LENG 


Inge tranefoom: K:SL(X)>1321(SL(X)<L) X 
LAST EXITED: SEP 29, 1987 


1002,3.5 HEADER PAGE #2 530 1002.07 Multiple. 

1002.07,.01 | HEADER PAGE #2 0;1 FREE TEX? ANSHER MOST BE 1-132 GHARACIERS IN LENGHH 
(Multiply asked) Input transform: K:$L(X)>1321(SL{X)<1) X 
LAST EDITED: SEP 29, 1987 

1002,4 INSTRUCTIONS 2;0 1002.02 WORD-FROCESSING 


1002,4.5  secrIN 6;0 1002.08 Multiple "ICENITFIEYY BY SECTION NVE 











CATA DICTIONARY ~-FCHYS FILE #1002 STORED IN “FORSS 


DATA NAME GLOBAL CESCRIPTIGN 
ELEMENT LOCATION 





1002.08, .01 SECTICN POSTTION 0;1 NYEER TYPE A WILE NUMGER BRIVEEN 0 AND 99 
Input transfoum: K:+K'=X! (3099) 1(X<O) !(X2.E1"."1N.N) X 
LAST EDTIED: SEP 14, 1987 
CRCSS-REFERENCE: 1002.06°B 
l)= § “SRS(TA(1),6,"B", SE(X,1, 30) ,DA)=""" 
2)= K “FORS(DA(1) 6, "B",SE(X,1, 30) ,OA) 


1002.08,1 SECTION NAME 0;2 FREE TEXT ANGER MBT BE 1-60 CARACIFRS IN LEH 


Inat trensfoon: 

Kex{ """"1(SA(X)edS) X I SO(X) K:SL(X)>60! (SL(X)<1) X 
LAST EDITED: SEP 14, 1987 

CFCSS-FEFEFENCE: 1002.06°C 

1)= S “FORS(DA(1) ,6,"C",S2(X,1,60) ,OA)="" 

2)= x “FORMS (DA(1) ,6,"C",S2(X,1,60) ,LA) 


1002,5 DATA ELEMENTS CR ITEMS 


3;0 1002.03 Multiple ‘IDENTIFIED’ BY SHORT NAE 
"TDENTIFIED’ BY MORE THAN CE Fer 


1002.03,.01 NUMEER CN FCRM Q0;1 FREE TEX? ANSWER MST BE 1-4 GAAACIES IN LENG 
(Required) (Multiply asked) 
Input transform: K:SL(X)>41(SU{X)<1) X 
CROSS-FEFEFEMCE: 1002.03°B 
l}o S “FORS(DA(1) ,3,"B",S2(X,1,30) ,DA)="" 
2)= K “FORS (DAK 1) ,3,"B",SE(X,1, 30) ,DA) 


1002.03,1 SORT NYE 0;2 FREE TEXT ANSWER MBIT BE 1-30 CHARACIERS IN LENGHH 
Inpt transfoon: 
K:X{ Seen aoe T SUX) K:SL(X)>30!1(SLAX)<L) X 
CECES-FEFERENCE:: 1 
1)= S “RGRS("C*, SE(X,1,30) D1) ,DA}="" 
2)e K “RORS("C",SE(X,1, 30) ,DA(1),.O8) 


1002.03,2 CQLESTICN TEXT 1;0 1002.04 Multiple 


1002.04, .01 QUESTICN TEXT QO;1 FREE TEXT ANGER MOST BE 1-132 CRACIERS IN LENGIH 


(Miltiply) Input transform: K:SL{X)>132!(SU{X)<L) X 
LAST EDITED: SEP 29, 1987 


1002.04,1 PRONT COLUMN 0;2 NUMBER TYPE A WELLE NUMBER BEIWEPN 1 AND 160 
Input transform: K:4stow (90152) 1(XcL) 1 (XP... "1N.N) X 
LAST EDTIED: SEP 17, 1367 


1002.04,2 PRINT RW 0;3 N™MER TYPE A WHOLE NUMBER SETHEEN 1 ND 6 
Gout transform: K:4X'=K! (X66) 1(X¢L)!(X2.E1"."1N.N) X 
LAST EDITED: SP 17, 1987 





AYA NAME GLOBAL CESCRIPTICN 

ELEMENT LOCATICN 
ara rane 
1002.03,3 SECTION CN FORM 0;3 FREE ‘TEXT XXXX—OW’T BE ALTERED EXCEPT BY PROGRAMMER 


ANGER MBT BE 1-60 CHARACIERS IN LENG 

Input transfoom: K:x{""""1(SA(K}=45) X 

I SOX) K:SL{X): 50! (SL{X)<1) X 

I 94 “ROR*S(DA(1),6,7C",X)) Wf, "NOP CEFINED!” K X 
LAST EDTIED: SEP 14, 1987 

CROSS-FEFFFENE: 1002.03°C 

1)e S “FORMB(DA(1),3,"C",SE(X,1,60) ,DA}o"” 

2)= K “FORMS (0A(1) 3, "C" ,S2(X,1,60) ,DA) 


1002.03,4 FILE CROSS REFERENCE 2;0 1002.05 Multiple 





1002.05, .01 FILE CROSS REFERENCE 0;1 NUMER ‘TYPE A NUMGER BETWEEN .(L AND 99999.999 
(Multiply asked) § Input transform: 
K:4X"eX1(3099999.999) f (X<.01) 1 (X2.21".°4N.N) X 
LAST EXPIED: OCT 30, 1967 
. CROSS-FEFERENCE: 1002.03°2B 
1)m S “FORMS(DA(2) ,3, "AB", SE(X,1,30) ,DA(1) ,DA)="" 
2)= K “RORG(DA(2) ,3, "AB" ,SE(X,1, 30) +TA(1) DA) 


1002.05, .05 SB?TEID 0;4 = NUMBER XOG—-CAN’'T BE ALTERED EXCEPT BY PROGRAMMER 
ENIER A S.B-FILE NUMBER OF WORKING FILE 


Inpsc transfor: 
K4X' ml (259999999999. 99) 1(X<0) ! (X?.EL"."GNN) X 
I SO(X) Ks’ SOC TANX)) X I SO(X) 
K¥m"" 8 (X! (S2( “FORWS (00,0) ,U,4)) X 
NEW 1,8,E S BeGP( “FORMS(DA, 0) ,U, 4) , BB+. 999999999 
I Bre" PF Jel:1 S BO TO(B)) O:BE 
W !,B,715,SP( 1(B,0),U,1) , 
LAST OPTED: SEP 18, 1967 
CROSS-REFERENCE: 1002.05°AC MMPS 
lye I X’="™" I Dl “TD(X,0,"UE")) S Ub TX, 0, UE") 
T SOC *CO(UP,, "SB", X)) 
S S&6O( “OO(LP, "SB", X,"*)) 
pSPSP(SP{ TOXUP, 9,0) 0,4) ,"3",1) 
SoU’KRS(00,3,01,2,02 '0),U, 5) 
2)= S SOURS (D0, 3,01,2,02,0),U,5)="* 


1002.05,1 PRINT COLUMN 0;2 NUMBER ‘TYE A WECLE NUPEER BEINEEN 1 AND 150 
Input tranefiogm: K:4K/9XK! (30152) 1 (XL) 1(X2.EL"."IN.N) X 
LAST EXTIED: SEP 17, 1987 


1002.05,2 PRINT ROW 0;3 NUMBER ‘TYPE A WHOLE NUM@ER BETWEEN 1 AND 66 
Input transform: K:+K’=K! (2066) !(X<1) !(X2.£1”."1N.N) x 
LAST EDITED: SEP 17, 1987 


1002.05, 3 SB-FIEIDNDE 0;5 FREE TEXT ANSHER MBT BE 1-10 CRARCIERS IN LANG 
Input transfone K:SL(X)>101(SL(X)<1) X 
WRITE AUIKORITY: * LAST EDITED: SEP 18, 1987 


102.95, 4 POINTER FILE FIEID 0;6 =? ; 1) ROR NE FIED ; '2" FOR SEIN FID 
LAST EDITED: OCT 13, 1987 


1002.03,5 MRE TPN GE FEF 034 SET; ‘Y FR YES ; 'N’ POR ND 
LAST EDITED: JAN Zi, 1968 


r 


C4 




















ORTA NAVE GLOBAL CESCRIPTICN 
ELEMENT LOCATION 
1002.03,6 ER NLPEER 0;5 NMEER ‘TYE A WILE NBER BEIWEN 1 AND 9 (Required) 


Input transform: K:+X' eK! (909) 1(X¢1)1(X?.21"."IN.N) X 
LAST EDITED: CCT 2, 1987 


1002,6 NOTES/GENERAL INFCHAATICN 4;0 1002.06 WORD-PROCESSING 


1002,7 NCHIMS/CGHRES FILE 0;4 FOINIER TO FILE FILE (#1) (Required) 
LAST EDTIED: SEP 17, 1987 


1002,8 NEO NUMER 035 NIGER TYPE A O0LE NUMBER BETWEEN 500 AND 999999 


Input transfoum: 
K:+X' =X! (35999999) 1 (X<500) 1 (X?.EL"."1N.N) X 
LAST EDITED: SP 23, 1987 


1002.9 NEXT PCRY 7;0 1002.09FOINIER + Multiple 


1002.09,.01 NEXT FORM O;2 POINTER 1D FOR'S FILE (#1002) (Multiply agked) 
LAST EDITED: SEP 29, 1967 
CFCSS-FEFEFENCE: 1002.09°B 
1)= s “FORG(CA(1),7, "8B", SE(X,1, 30) ,A)a"" 
2)= K “FORNS(0A(1),7,"B",SE(X,1,30) ,DA) 


PILES FOINIED 10 FIELDS 
FILE (#1) NOHIMS/OSHARGS FILE (#7) 
FORS (#1002) NEXT FORM:NEXT FCRM (#.01) 


INPUT TEMELAIE(S) : 
COL, FOW NV 2,1967 USER #0 

INEUIS BY FORM, NUMBER CN FORM, TEXT, TEXT COL, TEXT ROW, CAOSS FEF, ChOSS REF COL, CROSS Fer RW 
CON’S REFS CcT 30,1987 USER #0 

INEUIS BY FCRM, NUMBER CN FORM, ChOSS FEF, GOSS REF AB-PIELD(NCDE), CROSS REF POINIER, MORE THAN CHE FEF, 
FOINIERS NW 3,1987 USER 40 


PRONT ‘TEMPLATE(S) ; 
CAPTICQNED 


USER #0 
CROSS REF CCT 28,1987 USER #0 FOR’S LIST 
m OcT 30,1987 USER #0 FOR'S/EMELOVEE REFERENCES 
LIST FORS NOV 10,1967 USER #0 FORS List 








ORTA DOICTTCNARY #1004.2 — INOURY COMP AND CLADS SB-FTILE CGHERS‘ACHIMS SISTEM SICFED IN “PYETOY( 


OXTA NE GLOBAL DESCRIPTION 
ELEPENT LOCATIN 





"ICENTIFIED’ BY INOURY/TLINESS DATE & TIME 
CROSS-REFERENCED BY: CLAIM FORM(B), INSURY/ILLNESS ONIE & TIME(C), TYPE GF BAY RECEIVED(P1), ONDE IMCLEMENIET(P2) 


.1004.2,.001 CLAIMS FORM ENIRY NER NMER TYPE A WOLE NUMBER BEIWEEN 1 AND 999999999 
Ing transfoo: 
K24X' eX! (30999999999) 1 (X<1) 1 (X?.EL"."IN.N) X 
LAST EDTIED: SP 21, 1987 


1004.2,.01 CLAIM FOR‘ 0;1 POINTER 1D FCRSS FILE (#1002) (Required) - 
transform: 


Input 

S DIC("S*)}="I SOX(OIA(""P*") ) 

T $0(°(0),U, 4)a0TA(""P")" 

D “TIC X DIC S$ DIODIE, Mery K:Y<0 X 
SELECT ChE OF ‘THE FOLLONING CLAIM PORES 


lS “ELOM(IA(1), "100", "3" $2(X,1,30) DA 
2)~ K “EMPLOY(DA(1), "TOC", "B* ,SE(X,1,30) ,OA) 


1004.2,1 INKRY/ILLNESS CATE & TIME 

0;2 OMTE XOO--CAN’T HE ALTERED EXCEPT BY FROGRYPER 
(equired) 
Inpt transicom: S$ Wik"EI" D “WT S Me Ks ¥<l X 
I WAX) K:SP(xX,".",1)0F X 
LAST EDITED: NW 2, 1987 
CROSS-FEFEFENCE: 1004.2°C MES 
Le S “EMELOY(DA(L) , "100", "C",SP(X,".",1) ,DA)="" 
2) K “EMPLOY(DA(1), "200", "0", SP(X, ".", 1) DA) 


1004.2,1.7  TNOURY LOG ENTRY OME 0;9 OXTE Input transform: S WIh"e" D “WI S HY K:Yd. X 

1004.2,3 SSN 0;4 FREE TEXT ANSHER MST BE 9 GHARACIERS IN LENGIH 
Input transform: K:SL(X)>9! (SL(X)<9) 17 (XPQN) X 

1004.2,4 SEX 0;5 SET; 'F) RR PERLE; MY FOR MALE; ‘U" POR LN 

1004.2,5 PACCE NUMBER 0;6 FREE TEXT ANGHER MUST BE 3-1) CHARACTERS IN LENG 
Inpt transfoma: K:$L(X)>11!(SU(X)<3) X 

1004.2,6 BIRTHDATE 0;7 DE Input transfoom: $ Wre"E” D “WI S Me¥ K:Y<l X 

1004.2,7 SIREET ACURESS 1;1 FREE TEXT ANGHER MBT BE 1-64 CFACTERS IN LANCHH 


Input transfoum: K:SL(X)>64!(SL(X)<1) X 
LAST EDITED: FEB 3, 1968 . 


1004.2,8 ayy 1;2 FREE TEXT ANGAER MOST BE 1-23 CHARPCIERS IN LENG 
input transfoem: K:SL(X)>231 (SL{X)<L) 1" (XP? AP) X 
LAST EDITED: AUG 28, 1987 

1004.2,9 SINTE 1;3 POINIER TO SIMIE FILE (#1003) 


1004.2,9.5 OVERSEAS ACORESS 1;4 FREE TEXT ANSHER PLST BE 1-64 CHARACIERS IN LENGTH 
Input transfoom: K:9L(X)>641(SL{X)<1) X 


C-6 











DICTICNARY #1004.2 -— INOURY COMP AND CLAIMS SB-+ILE COHAG/ACHDS SYSIEM STORED IN “EMPLOY( 


CXTA 
ELEMENT 





1004.2,10 


1004.2,10.5 


1004.2, 


1004.2,11.5 


1004.2,12 


1004.2,13 


1004.2,13.1 


- 1004.2,13.2 


1004.2,13.3 
1004.2,13.4 
1004.2,23.5 


1004.2,13.6 


1004.2,13.7 
1004.2,13.9 


1004.2,14 


NRE 


HOME PHONE NUMBER 


ZIP OLE 


AGENCY WNIT 


arp 


DUTY STATICN 


CACP AGENCY COLE 


ACTIVITY UIC 


CLAIMANT COLE 


QUTY SIATION ACKEESS 


DUTY STPOION CITY 


CUTY SINTICGN SIME 


QUTY SINTION ZIP CTE 


OGHA STTE COLE 


FEXCRTING CFFICE 


GLOBAL 


LOCATICN 


1;5 


1;6 


231 


2;2 


2;3 


9;1 


932 


933 


934 


9;6 


9:7 


9:38 


9;10 


CESCRIPTIN 





FREE TEX?) «=6RORPAT:: (AREA CODE) XXX 
Input transfoum: 
K:SL(X)>151(SUX)<L) X 


FREE TEXT ANGHER MBT BE 5-10 CHARACTERS IN LENG 
Inpxt transform: K:SL(X)>10!1(SL{X)<5) X 
LAST EDITED: AUG 14, 1987 


POINIER TO AGHCY UNIT FILE (#1074) 
LAST EDITED: AG 20, 1967 


FCINIER TO APRCY UNIT FILE (#1074) 
LAST EDITED: AG 20, 1967 


FREE TEXT ASGHER MOT BE 1-30 GHACIERS IN LENH 
Input transfoom K:S0({X)>301(SL{X)<1) X 


POINIER 10 OCP AZNCY COLES FILE (#1062) 
LAST EDITED: SeP 15, 1967 


FREE TEAT AGER MOST BE 6 CHARACIERS IN LANG 
Inge transfomm: K:SL(X)>61 (SLX) <6) X 
LAST EDITED: S&P 15, 1987 


FREE TEXT ANGER MST BE 5-6 CHARACIERS IN LENGHH 
Inout transfoor K:$L(X)>6!(SL(%)<5) X 
LAST EDITED: SEP 15, 1987 


FREE TEX? ANGHER MET BE 2-4 CHARACIERS IN LENGIH 
Input trensfomm K:SUX)>41(SL(X)@2) X 
LAST EXITED: sep 15, 1987 


FREE TEXD ANGER MUST He 1-54 CHAAACIERS IN LENGIH 
Input trensfowe: K:SL(X)>541(SUX)<L) X 
LAST EOITED: S2P 17, 1987 


FREE TEXT ANGER “HT BE 1-20 CBRACIERS IN LENGIH 
Ink transfoom K:S(X)>20! (SL(X)<1) X 
LAST EDITED: S&P 15, 1987 


FOINIER TD SIGE FILE (#1003) 
LAST EDITED: Sep 15, 1987 


FREE TEXT ANGRER MOST’ Be 5-1C CHARACTERS IN LENGIH 
Ip transfome K:S4X)>10!(SL(X)<S} X 
LAST EDITED: Sep 15, 1987 


FREE TEXT ANGHER MUST BE 1-9 CHARACIERS IN LENGIH 
Inox transfomm K:SL(X)>9!(SL(X)<1) X 
LAST EDITED: Sep 15, 1987 


FOINIER TO OCP REPORTING CFFICE FILE (#1063) 
LAST EDITED: SP 15, 1987 








DRA DICTIONARY #1004.2 — INCURY COMP ASD CLAIMS SIB-FILE OSHRES ACHING SYSTEM SICRED IN “EYELOY( 





DAA NYE GLOBAL CESCRIPTICN 
ELEMENT LOCKTILN 
1004.2,14.01 RO ACDRESS 10;2 FREE TEXT ANGER MIST BE 1-54 CUARACIERS IN LENG 
Input transfoom: K:SL(X)>541(SUX}<L) X 
LAST EDITED: SEP 17, 1967 
1004.2,14.02 FO CTIY 10;3 FREE TEXT ANSKER MIST BE 1-20 CHARACTERS IN LENT 
Input transfomm: K:SL(X)>201(SU{X)<1) X 
LAST EDITED: SEP 15, 1937 
1004.2,14.03 fO SIME 10;4 FOINIER 1D SIMI FILE (#1003) 
; LAST EDITED: SEP 15, 1967. 
1004.2,14.04 RO ZIP Cre 10;5 FREE TEXT ANGER MBT BE S-10 CHRAACTERS IN LANGHH 
Inox transform: K:SL(X)>10!(QAX)<5) X 
LAST EDTTED: SEP 15, 1987 
1004.2,14.05 POINT oF CONUACT 10;6 FREE TEX® «ANGER MUBT BE 1-30 CARCIERS IN LNG 
Input transfoom: K:$L({X)>301(SL(X)c1) X 
LAST EDITED: SEP 15, 1987 
1004.2,14.055 POC TYILE 10;10 FREE TE? «ANGER MUST BE 1-30 CHARACTERS IN LENG 
Input transfoma: K:$L(X)>301(SAX)<1) X 
LAST EDTIED: SEP 15, 1987 
1004.2,14.05 POC RENE 10:7 FREE TEXT «= ANGHER MIST BE 10-13 CHARACTERS IN LENCIH 
Input transfoom: K:91(X)>131(S4{X)<10) X 
LAST EDTT'D: SEP 15, 1987 
1004.2,14.07 POC EXTENSION 10;8 FREE TEXT ANGER MUST B 1-4 CHRARCIERS IN LENGIH 
Input transform: K:SL(X)>41(SL{K)<L) X 
LAST EDTIED: SeP 15, 1987 


* 1004.2,14.08 FOC AUTOXN 10;9 


1004.2,74.5 EMPLOYEE COST CENIER 2;4 


1004.2,15 COOLENTICN ~ 331 
1004.2,15.5 OOCLURNTICN CE 3;2 
1004.2,15 TENE 333 
1004.2,17 PRY PLAN 334 
1004.2,18 BAY GANE 3;5 


FREE TEXT ANGHER MST BE 7-13 CHARACIERS IN LENGIN 
Inne transfoom: K:SL(X)>131(SL{X)<7) X 
LAST EDITED: SEP 15, 1967 


FREE TEXT «ANSWER MIST PE 1-6 CHARACTERS IN LENTIH 
Input transform: K:SL(X)>61(SLAX)<1) X 


POINIER TO COCLUENTICN FILE (#1001) (Required) 
LAST EMTIED: SEP 15, i987 


FREE TEXT 9 ANGWER MGT 5: S-6 CHARACTERS IN LENGIH 
Input transform: K:9L(X)>61(SU{X)<S) X 
LAST EDITED: AUG 28, 1987 


SET ; “TEMP” SCR TEMECOPRY ; ‘NON’ POR NONCOMPETING ; 
‘CARE’ POR CAREER ; ‘CARC’ FOR CARBER-CONDITIONA. 


FREE TEXT EXAMPLES: (GS, WG, WD, GM) 
Input transfoma: 

K:SL{X)>2! (SLAX)<2) 1" (X22A) X - 

FREE TEXT «= ACHAT: (Ol, 12, 09, 13) 


Inns transfom: 
K:SLAX)>31(SIAX)<2) X 


C-8 








DROR DICTIONARY #1004.2 — DOURY COMP AND CLAIMS SB-FILE CEHAGAQHODS SYSIEM STORED IN “EMPLOY( 





CATA NAVE GLOBAL 
ELEMENT LOCATION 
1704.2,19 BRY SIEP 336 
1004.2, 20 PAY BASIS 3;7 
1004.7,20.2 BAY INFCRYATIN 5;0 
10M.21,.01 TYPE OF PAY RECEIVED 0;1 
1004.21,1 DATE IMPLEXENIED 0;2 
1004.21,2 END CXIZ 0;3 
1004.21,3 GOSS AON FECEIVED 0:4 
1004.21,4 PRIE 0;5 
1004.21,5 BASIS 336 
1004.21,6 SPECIFY CIHER C;7 





CESCRIPTICN 





FREE TEXT «= ELIER THEE LEVEL 01-99. 
inp tramsfoon: K:$L(X)>21($L(X)<1) X 


SET ; °H! FOR HOLPL ; ‘W" FOR WEEKLY ; ’M’! PCR 
TCNTHLY ; ’B! FOR BI-WEEKLY ; 'A’ FOR ANNALLY ; 
'D’ FOR CATLY 

LAST EDTIED: S2P 1, 1987 


1004.21 Sef ‘Add New Entry without Asking) 
Multiple "IDENITFIED’ SY CADE IMPLEMENIED 


Set (Required) ; ‘1’ FOR REGULAR SAGE DAY ; 

2’ FOR CONTINATICN OF BAY ;/3' FOR COMPENSAT: NN BAY; 
4° FOR ANNUAL LEAVE BAY ;/S’ POR SICK LEAVE BAY: 

‘6’ SCR CIMER LEAVE BAY ; /7' FOR MISCELLANECLS HAY 
LAST 2_ITTED: CCT id, 1967 

CRCSS-PEFERERS: 10 2°C4 

L)e S “EMELOY(LA( 2), “100, "PL", SE(X,1, 30) ,CAC1) A) = 
2)= K “EMPLOY (CAC 2), "100", "PL", SE(X,1,30) ,CA(1) ,OA). 


CORTE Sout transiruw S Wle"E" D “MOT S Mey KY 
TASTY EDTIED: OCT 18, 1987 

CECES-REFERENCE: 1904.2°P2 

1)e S “EMPLOY(DA(2), "IOC", "P2",SE(X,1,30) ,OR(1) ,CA)="" 
2)e K “EMPLOY(DA(2), "100", "P2",SE(X,1, 30) ,DA(1) ,DA) 


ONL, Input transform: S Wie"E" D “Wr S MY K:Y<l X 
LAST EDITED: CCT 15, 1987 


NER TYPE A NMEER BEIWEEN 0 AND 399999.99 
Inet transfocn: $:X{"S" %SP(X,"$",2) 

Ks4X" 9G (X?2.NL"."2N) | (39999999.99) 1(X<0) X 
LAST EDITED: CCT 18, 1987 


NUMER TYPE A NUMBER SETHEEN 0 AND 999999.99 
Input transform: S:X["$" %6P(X,"$",2) 

K+? XE (X!? NL. IN) 1 (30999999.99) 1(X<0) X 
LAST EDITED: OCT 25, 1967 


SET; 'H! FOR HOURLY ; “WY FOR WEERLY ; ‘/M’ FOR 
MONDILY ; 'B’ FOR CI-MONIHLY ; ‘A’ FOR ANWWALLY ; 
'D’ FOR CAILY 

LAST EDITED: OCT 25, 1967 


FREE TEXT ANGER MLET BE 1-30 CHARACTERS IN LEN 
Iyut. transform: K:SL(X)>30!(SL(X)<L) X 
LAST EDITED: CCT 18, 1967 





ORDA DICTIONARY #1004.2 — INJURY COMP AND CAIMS SUB-FILE CGHAKG/AACHIS SYSTEM STORED IN “EMELOY( 





DRIA WE GLOEAL DESCRIPTICN 
ELEMENT LOCATION 
1004.2,14.01 ROARS = 102 FREE TEXT ANGER MBBT BE 1-54 CPERCIERS IN LENGHH 
Int transform: K:SL(X)>54!($L(X)<1) X 
IAST EDITED: SEP 17, 1987 
1004.2,14.02 FO CIIy 10;3 FREE TEXT AMGAER MOT BE 1-20 GARACIERS IN LN 
Irput transfomm: K:S1(X)>20!(SLAX)<1) X 
LAST EDITED: Sep 15, 1967 
-1004.2,14.03 FOSINE 10;4 FORTIER 1) SiRIE FILE (#1003) 
LAST ELYTED: SEP 15, 1987 
- 1004.2,14.04 FO ZIP QTE 10;5 FREE TEXT ANSVER MBT BE 5-10 CHARACTERS IN LENGIH 


1004.2,14.05 FBOINT OF CONIACT 10;6 


1004.2,14.055 FOC TIME 10;10 
1004.2,14.06 FOC PHONE 10;7 
1004.2,14.07 POC EXIENSICN 10;8 
1004.2,14.08 FOC AUTON 10;9 


1004.2,14.5 EMPLOYEE COST CER 234 


104.2,15 COCLEATION 3;1 
1004.2,15.5 CCOUBATION CIE 3;2 
1004.2,16 TENE 333 
1004.2,17 ERY PLAN , 334 
1004.2,18 ERY GRACE 3;5 


Input transfoom: K:91{X)>10!(S2(X)<5) X 
LAST EDITED: SEP 15, 1987 


C~10 


FREE TEXT ANSER MST BE 1-30 CHARACTERS IN LENG 
Input tranefoom: K:SL(X)>3501(SL{(X)<1) X 
LAST EXTTED: SEP.15, 1967 


FREE TEXT ANSWER MUST BE 1-30 CHARACTERS IN LENGTH 
Input transfoan: K:$L(X)>301 (SL(X)<1) X 
LAST EDITED: SEP 15, 1987 


FREE TEXT ANSWER MST BE 10-13 CHARACTERS IN LENGHH 
Input transform: K:$L(X)>131($L(X)<10) X 
LAST EDITED: SEP 15, 1987 

FREE TEXT ANSHER MST BE 1-4 CHARACTERS IN LENTH 
Input transform: K:$L(X)>4!($L(X)<1) X 

LAST EDITED: S#P 15, 1987 

FREE TEXT 9 ANEVER MOST BE 7-13 CHARACTERS IN LENGIH 
Inox transfoun: K:$L(X)>131($L(X)<7) X 

LAST EDITED: SEP 15, 1987 


FREE TEXT + ANSHER MST BE 1-6 CHARACIERS IN LENT 
Inpt transform: K:SL{X)>61(SL(X)<1) X 


FOINIER TO COOURATION FILE (#1001) (Racpriredd) 
LAST EDITED: SEP 15, 1987 


FREE TEXT «ANSWER MUST BE 5-6 CRFECIERS IN LENGIH 
Input transfoom: K:$L(X)>61(SL(X)<5) X 
LAST EDITD: AUG 28, 1587 


SET ; “TEMP” FOR TEMECRARY ; ‘NON’ FOR NCONOMETING ; 
"CARE’ FOR CAREER ; ‘CARC’ FOR CAREER-CONDITICNAL 


FREE TEXT 386 EXAMELES: (G5, Wo, WD, Gi) 
Inpt transfor: 

KsSL{K}>21 (SAX)<2) 1" (KP2ZA) X 

FREE TEXT «CORT: (C1, 12, 09, 13) 
Inpt transfor 

K:SL{X)>31 (SL(X)<2) X 





DATA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS AB-FILE CGHRES ACHING SYSTEM STORED IN “EMELOY( 





CESCRIPTICN 





DACA NAVE GLOBAL 
PLEVEN LOCATION 
1004.2,19 EAY STEP 356 
1004.2,20 PRY BASIS 3;7 
1004.2,20.2 BAY INFCHARTIN 5;0 
1004.21,.02 TYPE OF BAY RECEIVED 0;1 
1004.21,1 URTE IMPLEMENTED 0;2 
-1004.21,2 END CATE 0;3 
1004.21,3 GECES AMOLNT RECEIVED 0;4 
1004.21,4 RAE 0;5 
1004.21,5 BASIS 0;6 
1004.22,6 SPECIFY OTHER 0;7 


C=11 


FREE TEXT ENTER THE LEVEL 01-99. 
Input transform: K:SL(X)>2!($L(X)<1) X 


SET ; °H’ FOR HOURLY ; ‘W’ FOR WEEKLY ; 'M’ FR 
MONTHLY ; ‘B’ FOR BI-VWEERLY ; ‘A’ POR ANNALLY ; 
'D’ FOR CALLY 

LAST EDITED: SEP 1, 1967 


1004.21 SET (Ack New Entry without Asking) 
Multiple IDENTIFIED’ BY DATE IMPLEMENIED 


Ser ss (Fequaired) ; '1’ FOR RECLLAR ASE BY ; 

*2' FOR CONTINATICN OF PAY 7/3! FOR COMPENSATICN PRY; 
"4" FOR ANNAL LEAVE BAY ;’5’ FOR SICK LEAVE PRY; 

*6’ FOR OTHER LEAVE PRY ; ‘7’ FOR MISCELLANECLS PAY 
LAST EDITED: OCT 18, 1987 

CICES-REFERENCE: 1004.2°P1 

l)e S “EPELON(OA2) "ICC", "PL" ,SE(X,1,30) ,DAC1) ,DA)="” 
2)~ K “EMPLOY (DA( 2) , "ICC", "PL", S2(X, 1,30) ,OA1) ,DA) 


OME Inne transfomm S Wle"E" D “WT S MY K:Ydl X 
LAST EDITED: CCT 18, 1967 

CROSS-FEPERFENCE: 1004.2°P2 

lS “EMPLOY(DA( 2), "100", "P2",SE(X,1, 30) ,.DA(1) ,DA)="" 
2)= K “EMPLOY(OA(2) , "CC", "P2",SE(X.1, 30) ,OR( 1) ,OA) 


DXIE Input transform: S Wle"E" D “WOT S MeY K:Y<l X 
LAST EDYTeD: OCT 18, 1967 


NUMBER «TYPE A NUMBER BETINBEN 0 AND 999999.99 
Int transfomn: = $:X{"S" %6P(X,"S",.’) 

K+" G(X"? NL". "2N) 1 (30999999.99) 1(::¢0) X 
iAST EDITED: OCT 18, 1987 


NOGER TYE A NUMBER BETWEEN 0 AND 999999.99 
Inpt transform S:X["S" SPX, "$",2) 

K4X? iG (X"?NL"."2N) 1 (99999999.99) 1(X<0) X 
LAS? EDITED: OCT 25, 1987 


SET; ‘H’ FOR HOURLY ; ‘W" FOR WEERLY ; ‘M’ FOR 
MONTHLY ; ‘B’ FOR BI-MONTHLY ; ‘A’ FOR ANNLALLY ; 
"D’ POR TALLY 

LAST EDITED: CCT 25, 1987 


FYEE TEXT ANSVER MST BE 1-30 CHARACTERS IN LENG 
Inpt transform: K:SL(X)>30!1(S(X)<1) X 
LAST EDITED: OCT 18, 1987 








DACA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SB-FILE CSHRG/ACHIS SYSTEM SICFED IN “PPELCY( 


CAA 
ELEYENT 


NAVE 


GLORAL 
LOCATION 


CESCRIPTICN 





1004.2,21 
1004.2,21.1 


1004.2,21.25 


1004.2,21.3 


1004.2,23.35 


1004.2,21.4 


1004.2,21.45 


1004.2,21.5 
1004.2,21.6 


1004.2,22 
1004.2,23 
1004.2,24 
1004.2,25 


1004.2,26 


BAY AAXIE 


DOL SUBSISTENCE 


DOI SLBSISIENCE BASIS 


DOI QLARIERS BASIS 
Dor OTHER RATE 
DOI OHER AATY BASIS 
FAY STATUS 

COI SPECIFY OTHER 


MONIES CN XB 


FEI COLE 
FEHB CLE 


PROMARY SUPERVISGR 


3;8 
3316 


3317 


3;10 
3;22 





C-12 


NUMEER «= TYPE A NLMGER BEINEEN 0 AND 99999 
Input transform: S:X["$" %6P(X,"$",2) 
K:+X'mXE.(X’? NL". "2N) 1 (99999) 1(X<0) X 
LAST EXITED: SEP 2, 1967 


NUMEER «TE A NMBBR BETWEEN 0 AND 999999.99 
Input transform: S:X["$" 2=6P(X,"$",2) 
K:4X'edS(X??.NL". "2N) 1 (299999) 1 (X0) x 
LAST EDITED: SEP 30, 1967 


SET ; ‘H’ FOR HOURLY ; 'M’ FOR MONIHLY ; 'B’ AR 
BI-MONTHLY ; ‘A’ FOR ANNLBLLY ; ‘D’ ICR DAILY 
LAST EDITED: SEP 30, 1967 


NUMEER «TYPE A NUMBER BRIKEEN 0 ASD 999999.99 
Input transform: S:X["S" %=6P(X, °$",2) 

K34X! Xi. (X? NL. "2N) 1 (3099999) 1 (<0) X 

LAST EDITED: SEP 30, 1987 


SEY; ‘H’ FOR HOURLY ; ‘M’ 2CR MONTHLY ; 'B’ FOR 
BI-MONIHLY ; ‘A’ FOR ANNLLY ; ‘D FOR DAILY 
LAST EDITED: SEP 30, 1967 


NMEER TYPE A NUMEER BETWEEN 0 AND 999999.99 
Input transform: S:X{"$" 6P(X, "$",2) 
Rz+X! Xi (X'?.NL". ZN) 1 (2099999) 1(X<0) X 


LAST EDITED: Sep 30, 1987 


SET ; 'H’ FOR HOURLY ; ‘W" FOR WEEKLY > 'M’ FOR MONTHLY 
‘B’ POR BI-MQNHLY ; ‘A’ FOR ANNALLY ; 'D’ FOR CAILY 
LAST EDITED: SY’ 30, 1987 

FOINIER TO FAY SIRIUS FILE (#1093) 

FREE TEXT ANSHER MOST BE 1-30 CHARACTERS IN LENGIH 
Inne transform: K:$L(X)>301(SL{X)<1) X 

LASY EDITED: SEP 30, 1967 

SET ; ‘1’ FOR DAY ; ‘2’ FOR SWING ; '3’ BOR GRRUEXAD 
NPGER TYPE A WOLE NUMGER BETKEEN 0 AND 999999999 
Input transfcam: 

Kr4X" =X! (30999999999)  (X<0) 1 (X?.21"."N.N) X 


FREE TEXT «NEHER MUST BE 1-15 CHARACIERS IN LENGTH 
Input transfoem: K:SL{(X)>151(SL{X)<1) X 


FREE TEXT «= ANSVER MBT BE 1-15 CRFACTERS IN LENGIH 
Input transform: K:92(X)>151(SUX)<L) X 


FREE TEXT 4 ANSER MBT GE 1-30 CAFACIERS IN LENGTH 
Input transfomn: K:SL(X)>301(SL(x)<1) X 








DATA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SUB-FILE CGHREG/ACHIMS SYSTEM = SICRED IN “EMPLOY 


CATA NE GLOBAL 
ELEMENT LOCATICN 


DESCRIPTION 





er ne Urns anmInEIgInEIERERmnmnamennanmmnemenemmssssememerpnenereamemnertmemereemeenenananatereeenmmeremmmenan 


1004.2,27 


1004.2,30 


1004.2,21 


1004.2, 32 


1004.2,33 


1004.2,34 


1004.2,35 


1004.2,36 


1004.2,37 


1004.2, 38 


1004.2,50 
1004.22, .01 


SECONCRRY SUPERVIER 


PREMIUM PAY 


FREMILM PAY BASIS 


NIGHT BAY 


NIGH? BAY BASIS 


SUNDAY FAY 


SUNDAY FAY BASIS 


OTHER FAY 


OTHER PAY BASIS 


OTHER PAY SPECIFY 


WYINESS INFORMATION 
WIINESS NAME 


3715 


12;1 


4;0 
O;1 


C-!3 


FREE TEXT ANGER MBT BE 1-30 CHARACIERS IN LENGH 
Input transfoon: K:SL(X)>30!(SL(X)<1) X 


NIMBER TYPE A NIMBER BEIMEEN 0 AND 999999.99 
Input transfoom: S:X["S" %GP(X,"S",2) 

Rs4X! XG (X"2.NL"."2N) | (30999999.99) 1(X<0) X 
LAST EDITED: OCT 17, 1987 


Set; ‘H’ FOR HOURLY ;/W" FOR WEERLY ;/M’ FOR MONIWLY ; 
'B! FOR BI-WEERLY ; ‘A’ FOR ANNALLY ; 'D’ FOR CAILY 
LAST EDITED: Ccr 17, 1967 


NUMBER TYPE A NUMBER BETWEEN 0 AND 999999.99 
Int transfoon: S:X["$" %6P(X, “$",2) 

K4X' XG (X"?.NL"."2N) t (30999999.99) 1 (x0) X 
LAST EDITED: OCT 17, 1987 


SET;"H’ FOR HOURLY ;’W’ FOR WEERLY ;’M’ FOR MNIHLY ; 
'B’ POR BI-WEERLY ; ‘A’ FOR ANNLALLY ; ‘D’ FOR CAILY 
LAST EDTIED: Cor 17, 1987 


NUMBER ‘TYPE A NUMBER BEINEEN 0 AND 999999.99 
Input trancfom: $:x{"$" XSP(X,"$",2) 

K:4X? XE (X'? NL" ."2N) f (X>999999.99) 1(X<0) X 
LAST EDITED: CCr 17, 1967 


SET ; ‘H’ FOR HOURLY ;/W" FOR WEERLY ;/M’ POR MONIMLY ; 
‘B’ FOR BI-WEERLY ; 'A’ POR ANNALLY ; 'D’ ICR CAILY 
LAST EDITED: OCT 17, 1987 


NUMEER TYPE A NUMEER BETWEEN 0 AND 999999.99 
Input transfoom: S:x["$" 4-6P(X,"5",2) 

K:4X? XE ( X72 NL". "2N) 1 (30999999.99) 1(X<0) X 
LAST EDITED: OCT 17, 1987 


SET ;/H’ FOR HOURLY; ‘W" PCR WEERLY ; ’M’ FOR MONTHLY 
"B’ FOR BI-WEEKLY ; ‘A’ FOR ANNALLY ; ‘D’ FOR CAILY 
LAST EDITED: OCT 17, 1987 


FREE TEXT ANGER MUST BE 1-30 CHARACIERS IN LENGIH 
Input transfomm: K:$L(X)>30!(SL(X)<1) X 
LAST EDITED: OCT 17, 1987 


1004.22(Add New Entry without Asking) Multiple 


FREE TEXT ASSHER MST BE 3-25 CHARACIERS IN LENGIH 
(Multiply asked) 

Input transfoom: K:$L(X)>25! ($L(X)<3) X 

LAST EDITED: SEP 15, 1987 

CROSS-REFEFENE: 1004.22°8 

1)s S “EMPLOY(DA( 2), "IOC" ,DA(1),4,"B",SE(X,1,30) ,DA)a"™ 
2)= K “EMPLOX(DA(2) , "IOC" ,DA(1) ,4,"B",S8(X,1,30) ,DA) 








DATA CICTIONARY #1004.2 — INOURY COMP AND CLAIMS SB-FILE OGHAKS/ACHINS SYSTEM SICFED IN “EMELCY( 











oA NE GLORAL DESCRIPTION 

ELEMENT LOCATION 

1004.22,1 SIFEET ACLFESS 0;2 FREE TEXT ANGER MST BE 1-30 CHRFACIERS IN LENGIH 
Input transform: K:$1{X)>30!(SL(X)<1) X 

( LAST EDITED: SEP 15, 1967 

1004.22,2 criy 0;3 FREE TEXT ANSHER MBT BE 1-20 CHARACIERS IN LENGHH 
Inpxt transfoom: K:$L(X)>20!1(SU(X)<1) X 
LAST EDITED: SEP 15, 1987 

1004.22,3 SINE 0;4 FOINIFR TO SIKIE FILE (#1003) 
LAST EDITED: SEP 15, 1967 

1004.22,4 2IP OLE 0;5 FREE TEXT ANGER MET Bf 5-10 CNPCING IN LENGTH 
Input transform: K:$L(X)>101($2(x)<5) X 
LAST EDITED: SEP 15, 1967 

1004.22,5 DAIE SIGNED 0;6 DATE Input transform: S$ Wik"E" D “MOT S XY K:y<l X 
LAST EDITED: SEP 15, 1987 

1004.22,6 WIINESS SINEMENT = 1;0 1004.23 WORD-FROCESSING 

1004.2,52  NARARTIVE 6;0 1004.24 WORD-PFCCESSING 

1004.2,53 CORPECTIVE ACTION 7;0 1004.25 WORD-PROCESSING 

1004.2,54 REMARKS | 8;0 1004.26 WORO-FROCESSING 

1004.2,54.5 SAFETY REMARKS 11;0 1004.27 WORD-PROCESSING 

1004.2,100 BODY SART CTE 100;1 FOINIER TO BODY PART FILE (#1018) (Required) 

1004.2,101 NAQURE CF INARY OFE 100;2 FOINIER TO NOX FILE (#1017) 
LAST EDITED: SeP 15, 1987 

1004.2,101.1 NATURE OF INOURY EXPLANATION 101;0 1004.28 WORD-PROCESSING . 

1004.2,101.2 OAC USE-NOI Cre 100;18 FREE TEXT ANSWER MUST BE 1-5 CHARACTERS IN LENGHH 

Input transfoom: K:$L(X)>51(SL(X)<L) X 

LAST EDITED: AUG 28, 1967 

1004.2,102  INQURY CSHA COLE 100;3 FOINIER ‘TO OSHA INOURY CIES FILE (#1057) 

1004.2,103 DATE OF CEM 100;4 DAG XOOO-CAN’T BE ALTERED EXCEPT BY PROGRAMER 
Input transfom: S WIe"EI" D “MOF S HY K:Y<dl X 
I SO(X) KeX<SP{ “OC(DA,0),U,2) X 
LAST EDITED: SEP 14, 1987 

1004.2,104 LOST TE ACCENT —s«100;5 3; "Y FOR YES ; "NY FOR ND 

1004.2,105 LOST WORK DAYS 100;6 NUMEER ‘TYPE A WHOLE NUMBER EEIWEEN 0) AND 999 


C-14 


Input transfoon: 
Kz-4X’ =X! (90999) ! (X<0) 1 (X2.EL"."IN.N) X 








DACA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SIB-FILE CSHRRS/ACHINS SYSTEM STORED IN “EPELOY( 


DATA NYE GLCAAL CESCRIPTION 

ELEVENT LOCATICN 

nv a a ee ented 
1004.2,106 LIGHT DUTY DAYS 100;7 NER TYPE A WCLE NUMBER BETWEEN 0 AND 999 


Input transforma: 
K:+X' eX! (30999) !(X<0)! (X?.EL"."2N.N) X 


1004.2,107 NONEAIAL LOST WORKIAYS 100;8 ST ; “Y’ OR YES ; ’N’ FOR NO 

1004.2,108 FIRST AID CASE 100;9 ST; ‘Y’ RR YES ; 'N’ ERRNO 

1004.2,109 FRECORORELE CASE 100;10 ST ;’Y" FOR YES + (N’ CORIO; ’R’ FR REMOVED 
1004.2,110 REFORIAALE CAS 100;l1 Sr ; ‘Y’ RR YES ; ’N’ AOR ND 

1004.2,111 TERMINATION TRANSFER 100712 SET ; ‘Y’ FOR YES ; ‘N’ FOR NOD 

1004.2,112 TYRE OF ACCIDENT 100;13 FOINIER 1 ACCENT FILE (#1025) 


LAST EDITSD: S#P 15, 1987 


1004.2,112.5 TYPE CLE 100;17 FREE TEX? NGER MBT BE 1-5 CASPCIERS IN LENGIH 
Inn tranefoom: K:SL(X)>5:(5°{X)<1) X 
LAST EDITED: ALG 28, 1987 


1004.2,113 BLOG/SHIP 100;14 FREE ‘TEXT ANGWER PLT BE 1-15 CHARACIERS IN LENGTH 
Inpt transdomm: K:$L(X)>151(SL(X)<1) X 
1004.2,114 SPECIFIC LOCATION 100;15 FREE TEXT ANGHER MUST BC 1-40 CHARACIERS IN LENGUH 
Input transfomm: K:SL(X)>401(SL(X)<1) X 
1004.2,115 EXCLUTICN OF INUFY—s 100; 16 FREE TEXT ANGER MUST BE 1-20 CHARACIERS IN LENGIH 
Input tranefionm: K:SL(X)>201(SL{X)<L) X 
1004.2,115 EXTEND OF INQURY 110;1 SET;'1' FOR EXIALITY ;’2’ POR PERM TOTAL DISABILITY; 


‘3’ FOR POMM PARTIAL DISABILITY ; 
"4° POR NO OFSABILITY LIRELY ; ‘5’ #OR MISSING 
LAST EDITED: DEC 23, 1987 


1004.2,117 WORK CPERNTIN 110;2 FREE TEXT AGHER MST BE 1-40 CHARACIERS IN LENGIH 
Input trenefoues K:SL{X)>40!(SL(X)<1) X 
LAST EDITED: AG 14, 1987 

1004.2,138 SHIPS SIMUUS AT INLAY 110;3 FREE TEX? GER MST BE 1-20 CHARACIERS IN LENGIH 
Input transfomm: K:SL{X)>201(SL(X)<1) X 
LAST EDITED: AUG 14, 1967 

1004.2,119 OAYS HOSPTIALIZED 110;4 NUMER «TYP A WECLE NUMBER BETWEEN 0 AND 999 


Input transfor: 
K: +X’! =X! (30999) (XO) 1 (2.21. *IN.N) X 
LAST EDITeD: SEP 8, 1987 


1004.2,120 CAUSE OF INLEY 110;5 FOINIER 10 COSE OF INARY FILE (#1026) 
LAST EDITED: AUG 14, 1987 


1004.2,120.1 CAUSE OF INOURY EXPLANATION 111;0 1004.29 ¥ORD-PFOCFSSING 








DATA DICTICNARY #1004.2 — INOURY COMP AND CLAIMS SLB-FILE OSHRESATHINS SYSIEM SICRED IN “EMPLOY( 





DACA NAME GLOBAL DESCRIPTION 

ELEVENT LOCRTICN 

1004.2,121 WHO CALEE OF ACCIDENT 11076 FEE TEXT ANSHER MUST Bf 1-30 CHARACTERS IN LENGTH 
Input transfoom: K:$L(X)>30! (St{X)<1) X 
LAST EDITED: AUG 14, 1987 . 

1004.2,122.  FAILLRE 10 1 110;7 FREE TEXT ANSHER MST RE 1-30 CHARACIFRS IN LENGIH 
Input transfoon: K:SL(X)>30!(SL(X)<1) X 
LAST EDTIED: AUG 14, 1987 

1004.2,123 WHY FAILURE 110;8 FREE TEXT ANSWER MUST BE 1-60 CHARACIFRS IN LENGIH 
Input transform: K:$1(X)>60!($L(X)<1) X 
LAST EDTIED: AUG 14, 1967 

1004.2,124 oOUTY SINS 120;1 SET (Required); ‘ON’ FOR CN DUTY ; ‘GRY’ FOR CFF DUTY 
LAST EDITED: AG 14, 1987 

1004.2,125  OATE SPEEDLETIER SENT 120;2 DXTE Inout transfoem: S$ We" D “WI S Heo K: Yl X 
LAST EDITED: AUG 14, 1967 

1004.2,125 SOURCE OF INARY 120;3 FOINIER TO SCURCE OF INURY FILE (#1027) 
LAST EDITED: SEP 15, 1967 

1004.2,126.5 SOUXE CE 120;9 FREE TEXT ANSHER MST BE 1-6 CHARACIERS IN LENTIH 
Input transcoem: K:SL(X)>6!(SL(X)<1) X 
LAST EDITED: AUG 28, 1987 

1004.2,127. AGENT OF ACCITENT 120;4 FOINIER TO AGENT OF ACCIDENT FILE (#1068) 
LAST EDITED: AUG 14, 1987 

1004.2,128 AGI CF ACC PARTICAR 120;5 FREE TEXT ANSHER MUST BE 1~60 CHARACTERS IN LENGIH 
Input transform: K:SL(X)>601(SL(X)<1) X 
LAST EDTIED: AUG 14, 1987 

1004.2,129 UNSAFE PRACIZCE 120;6 FREE TEXT ANGHER MUST BE 1-40 CHARACIERS IN LENGIH 
Input transfoom: K:$L(X)40!($L(X)<1) X 
LAST EDITED: AUG 14, 1987 

1004:2,130 UNSAFE CONDITION 120;7 FREE TEXT ANGKER MUST BE 1-40 CHARACIPRS IN LENGIH 
Inet transfoon: K:9({X)>401(StAX)<1) X 
LAST EDITED: AUG 14, 1987 

1004.2,131 PRE INMCLMED INLEY—s:120;8 Freez _ fT ANGER MBT GE 1-40 GARACIERS IN LENGHH 
Inp* transfomm: K:$L(X)>40!(SL(X)<1) X 
LAST cDTTED: AUG 14, 1967 

1004.2,132  STRESSOR IMCLVED INKRY 130;1 FOINIER TD SIRESSR FILE (#1083) 
LAST EXITED: AUG 14, 1967 

1004.2,133 ‘TY INUEY 130;2 Ser ; 'Y’ POR YES ; ’N’ POR ND 

, LAST EDITED: AUG 14, 1987 

1004.2,134  RECRENTION INLRY 120;3 SET ; °Y’ POR YS; ‘NY FOR ND 
LAST EDITED: AUG 14, 1987 

1004.2,135 VEHICLE INOURY 130;4 SET ; °Y’ FOR YES ; ‘N’ FOR ND 


LAST EDITED: UG 14, 1987 








DATA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SIB-FILE CGHREGACHDS SISTEM STCRED IN “EMPLOY( 





DATA NAVE GLOBAL CESCRIPTICN 
ELEYENT LOCATIN 
1004.2,136 TWO WHEEL VEHICLE INOURY 130;5 SET ; ‘Y’ FOR YES ; 'N’ FOR NOD 
LAST EDITED: AG 14, 1987 
1004.2,137 OWCP FILE NUMBER 130;6 FREE TEXT ANSWER MST BE 1-13 CHARACIERS IN LENGIH 
Input transfoum: K:$L(X)>131(SL(X)<1) X 
LAST EDTIED: AG 14, 1987 
1004.2,138 0S TRANSFER MD REASOS 130;7 SET ; 'Y’ FOR YES ; 'N’ OR ND 
LAST EDITED: AUG 14, 1987 
1004,2,139 RETIFED CN DISABILITY 130;8 ST ; ‘Y’ FOR WS ; ‘N’ OR NO 
1004.2,140 ‘THIRD PARTY CASE 150;9 ST ; 'Y’ RR YES ; °N’ FOR ND 
1004.2,141 CASE QUICIME 130;10 FREE TEXT ANSAER MUST BE 2-60 CHARACIFRS IN LENGIH 
Input transfoom: K:$L(X)>60!(SL(X)<1) X 
LAST EDITED: AG 14, 1987 
1004.2,141.2 ‘THORD PARTY 140;0 1004.3 Multiple 
1004.3, .01 NAWE OF THIFO BPRIY 0;1 FREE TEXT ANSER MBT BE 1~30 CHARACTERS IN LENS 
(Multiply ashe) 
Input transfoem K:SL(X)>30!(SL(X)<1) X 
LAST EDITED: S€P 15, 1967 
CFOSS-FEFERENE: 1004. 3°B 
1)=<6 “EMPLOY(DA(2) , "TOC" ,DA( 1) ,140,"B",SE(X, 1,30) ,DA)e"" 
2)= K “EMPLOM(DA(2),"100",0K 1) ,140,"B",S€(X,1,30) DA) 
1004.3,1 ADDRESS 0;2 FREE TEXT ANSWER MUST BE 1-70 CHARACTERS IN LENGIH 
Input transfoom K:$L(X)>70!(SL{X)<1) X 
LAST EDITED: SEP 15, 1987 
1004.3,2 ar 0;3 FREE TEXT ANGER MET BE 1-20 CHARACIFRS IN LENGIH 
Inpit transfomm: K:$L(X)>201(SL(X)<1) X 
LAST EDITED: S8P 15, 1987 
1004.3,3 STMIE 0;4 FOINIER TO SIRIE FILE (#1003) 
LAST EDITSD: Sep 15, 1987 
1004.3,4 ZIP CLE 0;5 FREE TEXT ANGHER UST BE 5-10 CHARACIERS IN LENGIH 
Inpxt transfomm: K:SL(X)>10!(SL(X)<5) X 
LAST EDITED: Sep i5, 1987 
1004.3,5 SEYTLEMENT AMIND 056 NUMBER «TYPE. A NUPEER BETWEEN 0 AND 9999999.99 


1004.2,142 OTE TRANSFER FEHB 10 CACP 130;L1 


C-17 


Inpt transform: S:X{"S" %=6P(X, "$",2) 
K:4X? XG (X7P_NL"."2N) | (309999999.99) 1(X<0) X 
LAST EDITED: S&P 15, 1987 


ONE 
Input transinom: S Wle"E" D “WY S HY Kd X 
LAST EDITED: AGG 14, 1967 








DRTA DICTICNARY #1004.2 — INOURY COMP AND CLAIMS SLB-FILE CGHASG/ACHINS SYSTEM SICFED IN “EYELOY( 


CATR 
ELEPEN 


enertremmeremeane | 


NYE 


GLOBAL 
LOCATION 


DESCRIPTION 





1004.2,143 


1004.2,144 


1004.2,150 


CLAIMS CLERK ID 


INVESTIGAIED BY 


TICKLER FILE 


1004.708,.01  TICKLER FILE 


1004.708,1 


1004.708,2 


1004.708, 3 


1004.708,4 


1004.2,200 


1004.2,201 


1004.2,22 


DAIE TO 00 


FESRCNSIBLE TD 00 


PCTICN TO TAKE 


REVERSE DATE 


WEFE FILED 


150;0 
O;1 


0;2 


0;3 


034 


CLAIM RACORO CREATE CATE 200;2 


OMTE CF CLAIM 


1004.2,202.5 CLAIM TYPE 


1004.2,203 


SENT 10 “WP 


200;3 


200;12 


200;4 


1004.2,204 ONT iAIM SENT TO OP 200;5 





C-18 


FREE TEXT ANEHER MST BE 1-3 CHARACIERS IN LENGIH 
Input transfoom: K:SL(X)>3!(SL{X)<1) X 
LAST EDITED: AUG 14, 1987 


FREE TEXT ANSWER MST fe! 1-30 CHARACTERS IN LENGIH 
Input trensfoon: R:$14X)2301 (SL(X) 1) x 
LAST EDITED: AUG 14, 1987 


1004.708 Multiple 


NUMBER TYPE A VE0LE NUMEER BETMEEN 1] AND 999999 
Sipe Barons Input transform: 

K:4K"mX! (30999999) ! (X<1)!(X?.E1"."IN.N) X 
LAST EDTIED: SEP 25, 1987 


DATE Input transfoom: S Wik"E" D “WT S Me K:Ycl X 
LAST EDITED: SEP 25, 1967 


FREE TEX? ENTER PERSON’S INITIALS 
Input tranafoom: K:SL(X)>31(SL(X)<L) X. 
LAST EXYIED: Sep 25, 1967 


FREE TEXT ANSHER MUST BE 1-60 CHAPACIERS IN LENCIH 
Input transform: K:SL(X)>60!(SL(X)<1) X 
LAST EDTIED: SEP 25, 1987 


COMEUIED DATE MMPS CTE: S ¥(1004.708,4,1)= 
$S(SD(“EMELOY(D0, "TOC" DL, 150,02,0)):°{0),1:"") 
S ¥9999999-SP(¥(1004.708,4,1) ,U,2) 

ALGORTIM: 99999S9-ORTE TO 00 


io 


SET (Required); ‘CEE’ FOR CEFICIAL FERSCNNEL FCLLER; 
*CACR’ FOR CBF ICZ OF WORKER COMPENSAIION PROGRAM 
LAST EDITED: AG 14, 1987 


DATE ‘the date mast be after the Date of Injury! 
Inst transfoom: S Wik"E" D “ROT S Ne K:¥<l X 
LAST EDITED: AUG 14, 1987 


DATE XO-CN'T BE ALIEFED EXCEPT BY PROGFAMPER 
Inpt trensfoom: S$ WIk"E" D “WIT S XY K:Y¥d X 
LAST EXITED: SEP 28, 1987 


POINIER TO CLAIM TYPE FILE (#1029) 
LAST EDITED: DEC 23, 1937 

ST; ¥ POR YES ; ‘NY ORNO 
LAST ECQYTIED: CEC 23, 1967 


DATE Inout transform: S$ WIe"E" D “WOT S MY K:vdl X 
LAST EDTIED: AUG 14, 1967 








DATA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SIB-FILE OGREGACHING SYSIEN —s SICFED IN “EMPLOY 
DACA, NNE GLOBAL DESCRIPTION 
ELEMENT LOCATION 
1004.2,205 CLAIM CONIRWERIED _-2006 SET (Required) ; ’y’ FOR YES ; 'N’ FOR ND 
LAST EDITED: AUG 26, 1987 
1004.2,205.1 CONDROVERSICN EXPLANATION 305;0 1004.31 WORD-PROCEESING 
1004.2,205.2 CONIROY SUSTAINED BY OX? 200;l1 ST ; °Y’ AOR YES ; ‘N’ OR ND 
LAST EDYIED: OCT 21, 1987 
1004.2,206 ADLDICATIN SINS = 130 1004. 709FCINIER + Multiple 
1004.709,.01  ADQUDICATICN SINILS 0;1 FOINIER 1D ADXDICATION SINIUS FILE (#1061) 
(Required) ovis asked) 
LAST EDITED: AN 12, 1988 
CROSS-FEFERENCE: 1004.709°B 
L)= S “EMELOY(DA(2) , "100" ,DA(1) ,13,"B", SE(X, 1,30) ,DA)="" 
2j= 4 “EMPLOY (DAL 2) , "IOC" ,OAK(1),13,"B", SE(X,1, 30) DA) 
1004.709,1 DATE ENIEFED 0;2 DMIE (Required) 
Input transfoon: S Wle"E” D “WOT S Mey K:Y<l X 
1004.709,2 DAIE REMOVED 0;3 OXIE Input transform: $ Wie"—" D “WTS xe K:Y<1 X 
LAST EDRIED: JAN 12, 1968 
1004.2,207 FINAL DISECSTICN 200;8 SEY ; ‘A’ FOR ACTIVE ; 'I’ FOR INACTIVE 
LAST EOTTED: AUG 14, 1987 
1004.2,208 CLAIM FORM LAST RECEIVED 200;9 TINIER TO FORMS FILE (#1002) 
Input transtriom: 5 LIC("S")e"I SP(* A ,U, 4)1004" 
D “DRC K DIC S DIO=OIE, mY K:¥0 
CLAIM FORMS «LAST EDITED: SEP 23, “987 
1004.2,209 CLAIM FORM NEXT 200;10 FOINTER TO FORMS FILE (#1002) 
Inpt transform: S DIC("S")="I $P(*(0),U,4)=1004" 
D “DIC K DIC S DIOOIE, Het¥ K:YO X 
SELECT CLAIM FORM «LAST EDITED: SEP 24, 1967 
1004.2,210 OOP BEGIN XE 220;1 DPUE XX—CAN'T BE ALTERED OXCEPT BY PROGRAMMER 
‘the dete must be after the Date of Injury! (Required) 
Input transform: S WIe"EI" D “WOT S HY K:Y<l X 
LAST EQTIED: SEP 2, 1987 
1004.2,210.1 COP NOT 10 EXCEED ONE 220;2 ONE Int transfoom: S Wre"=" D “Wr S Mey Ki yc] X 
LAST EDYIED: OCT 31, 1987 
1004.2,210.2 COP HOURS OF DAY 220;3 NUMBER TLPE A WHOLE NUMBER BEINEEN 0 AND 24 


Input transfoom: K:4+XK’ XK! (9024) 1(X<0) 1(X?.EL"."1N.N) X 
LAST EDYIED: CCT 31, 1967 


IXA 8 8 NXe GLORAL 


1004.2,210.3 COP RETURN TD WK DME 220;4 


4004.2,210.4 COP RETURN TO WORK HOURS 220;5 


1004.2,210.5 COP FEQLRFENE FLAG = 2206 


1004.2,210.6 COP DAYS USED 220;7 
1004.2,210.7 COP JGR CECER COST 220;8 


1004.2,229 _D/T STOPPED WORK 22131 





1004.2,229.1 WORK STOPFED BASE ANIE 222;1 


1004.2,229.2 WORK STOPPED BASE BASIS 222;2 


1004.2,229.3 WORK STOPPED ABSISIENC 22;3 


1004.2,229.35 WORK STOPPED SUB BASIS 222;4 


1004.2,229.4 WORK SICPPED QRRIERS 222;5 


ELSMENT LOCATION 


DRA CICTICNARY #1004.2 — INOURY COMP AND CLAIMS SB-FILE CGHRES/NCHIIS SYSTEM SICFED IN “EMELOY( 


DESCRIPSION 





DATE Input transfoom: S WIe"E" D “MOT S XY K:Y<l X 
LAST EDITED: OCT 31, 1967 


NUMBER TYPE A WHOLE NUMBER BETAFEN 0 AND 24 
Input transfoan: K:4X’=X! (324) 1(X<0)1(X?.£1"."IN.N) X 
LAST EDITED: OCT 31, 1967 


SET;"Y’ FOR YES ; 'N’ KR ND 
LAST EDITED: cr 31, 1987 


NUMER «TYPE A WILE NUMBER BEIKEEN 0 AND 9999 
Input transfomn: 

Kz4X! aX! (9999) ! (XO) 1 (X?. EL". "INN) X 

LAST EDITED: CCT 31, 1987 


NUMBER «TYPE A NUMGER BEIVEEN 0 AND 999999.99 
Input trensfoon: S:X{"$" =6P(X,"$",2) 
K:4X"=kte(X"2.NL"."2N) 1(39999999.99) 1(X00) X 
LAST EDITED: CCT 1, 1967 


TATE X*—CAN’T BE ALTERED EXCEPT BY PROGRAMYER 
‘Ths date must be after the Date of Injury! 
Input transform: S WIe"ET" D “MOT S Me K:¥<l X 
LAST EDITED: FEB 8, 1968 


NMEER TYPE A Ni22R BETWEEN 0 AND 999999.99 
Inpt transfomm: S:x["$" HSP(X,"S",2) 

Ks4X! W(X’ ?.NL”."2N) 1(30999999.99) 1(X<0) X 
LAST EDITED: SEP 30, 1987 


SET;’R’ POR HOURLY ; ‘W’ FOR WEEKLY ; ‘'M’ POR MONINLY ; 
"B’ FOR BI-MONTHLY;’A’ FOR ANNIALLY ; ’D’ PCR CAILY 
LAST EDITED: SEP 30, 1987 


NLMEER TYPE A NUMEER BETNEEN 0 AND 999999.99 
Inpt transform: S:X]"S" %-6P(X, "$",2) 

Kz4X "iG (X?2.NL", "2N) 1 (30999999.99) 1(X0) X 
LAST EDITED: SEP 30, 1987 


S27; "H" FOR HOURLY; ‘W" FOR WEERLY ; °M’ POR MONIHLY ; 
"B’ FOR SI-MCONIHLY;’A’ FOR ANNLALLY ; ’D’ FCR DAILY 
LAST EDITED: SEP 30, 1967 


NUMBER TYPE A NUMBER BETHEEN 9 AND 999999.99 
Input transfonn: S:X["$" %-SP(X,"$",2) 

K:4X' XG (X"?.NL"."2N) 1 (3999999.99) 1(X<0) X 
LAST EDITED: SEP 30, 1987 











DATA DICTTONARY #1004.2 — INOURY COMP AND CLAIMS SB-FILE CSHRG/ACHDS SYSTEM STORED IN “EMPLOY( 


CATA NAVE GLOBAL 
ELEMENT LOCATION 


DESCRIPTION 





1004.2,229.45 WORK SICRPED CQLARIESS 222;6 


1004.2,229.5 WORK STOPPED OIHER FAJE 222;7 


1004.2,229.55 WORK STOPPED OTHER BASIS 222;8 


1004.2,229.6 WORK SICPPED CIHER SPECIFY 222;9 


1004.2,230 0/1 BAY SITFFED 2i1;2 


1004.2,231 O/T RETURNED TO WORK Z21;3 


1004.2,231.1 RETURNED TD *ORK BASE PRIE 231;1 


1004.2,231.2 RETURNED TO WORK BASE BASIS 231;2 


1004.2,231.3 RETURN 1D WORK ABSISIENE 231;3 


1004.2,231.35 RETURNED TD WORK SLB BASIS 231;4 


SET ; ‘H’ FOR HOURLY ; ‘WY’ FOR WEEKLY ; 'M’ KR 
MONTHLY ; ‘RB’ FOR BI-MCNIMLY ; ‘A’ POR ANNLALLY ; 
‘YY ER IALY 

LAST EDGTED: SEP 30, 1967 


NMEER ‘TYPE A NMEER BETWEEN 0 AND 999999.99 
Input transform: S:X{"$" %=SP(X, "$",2 

Ks-4X? ai (X?2.NL","2N) 1 (20999999.99) 1 (X<0) X 
LAST EDTIED: SEP 30, 1987 


SET;H’ FOR HOURLY; ‘W’ POR WEEKLY ; ‘M’ FOR MONTHLY ; 
"B’ FOR BI-MONIHLY;’A’ BOR ANNLALLY ; 'D’ FOR CAILY 
LAST EDITED: SEP 30, 1987 


FEE TEXT «ANSWER MST HE 1-30 CHARACTERS IN LEG 
Inpst transform: K:SL{X)>301(SL(X)<1) X 
LAST EDITED: SEP 30, 1967 


ONIE XX—CAN’T BE ALTERED EXCEPT BY PROGRAMMER 
‘The cate must be afber the Mate of Inhry! 
Input transform: S Wle"EI" D “WOT S Me K:¥cl X 
LAST EDITED: NOY 2, 1967 


ONIE XX—OWN'T BE ALIFED EXCEPT BY PROGRAMMER 
‘The cate most be after the Date of Injury! 
Input. transfoom: S $DIe"FI" D “SOT S Me K:¥<l X 
LAST EDITED: NW 2, 1967 


NUMBER TYPE A NUMBER BETWEEN 0 AND 999999.99 
Input transform: S:X{"S" ¥-6P(X,"S",2) 

Kr4X/ REX"? NL" "AN) 1(30999999.99) 1(X<0) X 
LAST EDITED: SEP 30, 1987 


SET; /H’ POR HOURLY; W FOR WEEKLY ; 'M’ FOR MONIMLY ; 
"B’ FOR BI-MONTHLY; A’ FOR ANNLALLY ; ‘D’ PCR DAILY 
LAST EDITED: SEP 30, 1987 


NUMBER TYPE A NLPPER BETHEEN 0 AND 999999.99 
Input transform: S:X{"$" GP(X,"5",2) 

Kr 4X' XG (X"2.NL". "2N) 1 (999999. 99) 1(X<0) X 
LAST EXITED: SEP 30, 1987 


SET; "H! FOR HOURLY; ‘W" PCR WEERLY ; ’M’ POR MONILY ; 
"B’ FOR BI-MOVIHLY; ‘A’ FOR ANNUALLY; 'D’ FOR DAILY 
LAST EDITED: CCT 18, 1967 








DATA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SIB-FILE «UCT: DUAL: (NOHIMS] OSHRESACHINS SYSTEN 
STCFED IN “EMPLOY( = (31 ENIRIES) 











CATA NA GLOBAL ~ DESCRIPTICN 
ELEMENT LOCATION 
1004.2,231.4 RETURN TD WORK CLARIERS 231;5 NUMBER TYPE A NMEPR BEEIMERN 0 AND 999999.99 


Irgut transcoom: S:X{"$" %$P(X,"$",2) 
Ks4x’ XS (X!2.NL". °2N) ! (30959999.99) 1(X<0) X 
LAST EDITED: SEP 30, 1987 


1004.2,231.45 RETURNED ‘0 WORK CLR BASIS 231;6 SET;’H’ FOR HOURLY; ‘W’ FOR WEERLY; ’M’ FOR MONIHLY; 
"B’ FOR BI-MOUHLY; ‘A’ FOR ANNALLY ;’D’ FOR CAILY 
LAST €D°TED: OCT 18, 1°77 


1004.2,231.5 REIURN TO WORK OIER ANE 231;7 NUEER TYPE A NUMBER BETRREN 0 AND 9999099.99 
Inpt transform: S:X["$" 4eGP(X,"$",2) 
K+X'eXE(X! ? NL”, "2N) 1 (30999999.99) 1(K<O) X 
t= LAST EDITED: SEP 30, 1987 





1004.2,231.55 RETURNED TO WORK CIHER BASIS 231;8 SET; "Ry POR HOURLY; “W" FOR WEEKLY; ’M’ FOR MINTHLY; 
"B’ FOR BI-MONIHLY; ’A’ BOR ANNLALLY ;’D’ PCR DAILY 
LAST EDITED: CCT 18, 1987 


1004.2,231.6 RETURN TO WORK SPECIFY COKER 231;9 FREE TEXT ANGER MUST BE 1-30 CHARACIERS IN LENGIH 
Input transfoem: K:SL(X)>30!(SUAX)<1) X 
LAST EDITED: SEP 30, 1987 


1004.2,232  DXIE PME GRNZD 222;1 DAS Input transfoon: S WIe"E" D “WT S HY K:YCL X 
LAST EDITED: SEP 30, 1967 


1004.2,232.1 CHANGED BASE AAIE 23232 NUMBER TYPE A NUMMER SETAEEN 0 AND 999999.99 
Input transform: S:X["S" %6P(X, "S$", 2) 
K24X" eX (X!? NL", "2N) 1 (90999599.99) 1(X<9) X 
LAST EDITED: SEP 30, 1967 





1004.2,232.2 GANZD SBSISENE 232;3 NIGER TUPE A NUMBER BRINEEN 0 AND 999999.99 
Input. trenefoom: SiX{"S" “e6P(X,"5",2) 
KX" =XE(X"? NL”. "2N) 1 (25999999.99) 1(X<0) X 
LAST EDITED: “"P 30, 1987 


1004.2,232.3 CHANGED QLARIERS 22234 NLMEER «TYPE A N23 BRINFEN 0 AND 999999.99 
; Input transfoon: S:X["$" 4P(Xx,"S",2) 
K+? XS ("92 NL". QN) 1 (30999999.99) 1 (KO) X 
LAST EDITED: SEP i , 1967 


1004.2,232.4 GPNGED ODER PME = -222;5 NUMER TYPE A NUMBER BRIKEEN 0 AND 999999.99 
Int trensfomm: S:X{"S" %62(X,"$",2) 
Ks4X" G(X" ?.NL”."ON) 1 (10999999.99) 1(X00) X 
LAST EDSTED: SEP 30, 1987 


1004.2,232.5 GiANCED OTHER SPECFTY 232;6 FREE ‘TEXT ANSAER MOT BE 1-30 CHARACIERS IN LENGIH 


Inns transfoons K:SL(X)>30!(SLAX)<1) X 
LAST EDITED: SEP 30, 1967 
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TATA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SB-+TILE CGHNSACHINS SYSTEM STORED IN “EMLOY\ 





DATA NYC GLOBAL 
ELEMENT LOCATION 
1004.2,250 COP FECVD FRM 

1004.2,250.5 COP REVO THRU 250;2 
1004.2,250.6 CoP RECVD GOSS 250;16 
1004.2,250.7 COP BASE RATE 20;17 
1004.2,250.8 COP BASE BASIS 250; 18 
1004.2,251 OTHER LEAVE FROM 250;7 
1004.2,251.5 OTHER LEAVE THRU 20;8 
1004.2,251.6 OTHER LEAVE SECIFY = 250;9 
1004.2,252 SICK LEAVE FROM 20;3 
1004.2,252.5 SICK LEAVE THRU 2034 
1004.2,253  ANNLAL LEAVE FROM 250;5 
1004.2,253.5 ANNUAL LEAVE THRU 20;6 
1004.2,254 CP CLAIMED FRM 250;10 
1004.2,254.5 COP CLAIMED THU pic es Ot 
1004.2,255 COMP CLAIM FRM 20:12 
1004.2,255.5 COMP CLAIMED THRU 20;13 


F201 


CESCRIPTION 





INIE 
Input transform: S WR"E" D “WT S Hey KYL K 
UST EDITED: SEP 30, 1967 


UNE 
Input traneform: S WINE" D “MOT S HY Kl X 
! SS? EDITED: SEP 30, 1967 


NOGER TYPE A NUMBER ERTMEEN 0 AND 999999.99 
Inpt transfoom: $:X{["S$" ¥6?(X,"$",2) 
NceX'eXE(X!7.NL”."2N) 1 (2099999999) 1 (X69) X 
LAST EDITED: OCT 18, 1987 


NOEER TYPE A NUMBER BETNEEN (0) AND 999699 ,99 
Inpt transfoom: S:X["$" MeGP(X,"$",2) 

Kz4X" eX (X! 2 NL”. "2N) 1 (999999.99) 1 (X60) X 
LAST EXTTED: OCT 18, 1987 


SET; ’H’ FOR HOURLY; 'W! FOR WEEKLY; 'M "OR MONTHLY, 
"B® FOR BI-MONTHLY; 'A’ FOR ANNUALLY; 'D’ PCR CAILY 
LAST ECITED: CCT 18, 1987 


OPE Irput transform: S WOle"£" b “WOT S MeY K:Y<l X 
TAST EDITED: SEP 30, 1967 


CASE Input transfcom: S WTe"E" D “SOT S MeY K:Y<l X 
LAST EXITED: St? 30, 1987 


FREE TEXT ANSWER MUST GE 1-30 CHARACTERS iN LENGTH 
Ivat tranefoom: K:$L(X)>301(SU{X)<1) X 
LAST ENTTED: SEP 30, 1987 


CPGE Input transfoom S$ $OMe"E" D “WI S MeY K:Y<l X 
LAST EXITED: SEP 30, 1987 


CAGE Input transfoun: S$ WIk"E" D “WT S Ye K:¥dl X 
LAST EDITED: SEP 30, 1967 


OME Inox transfoon: S $"2" D TMT S MeY K:YCi X 
LAST EDITED: SEP 30, 1987 


OME Input transfoon: S WOmR"E" D “Wr S Ne K:¥<] X 
LAST E0TTED: SEP 30, 1987 


OME Inn transfoon: S$ We"E" D “WOT S MY K:Y¥~] X 
LAST EDITED: SEP 30, 1987 


CATE input transfcom: S WTe"E" D “WTS Xe Evel X 
LAST McD: SEP 30, 1987 


DNIE Ingut transfonn: S We" D “IDT S MeY K:¥el X 
LAST EXETED: SEP 30, 1987 


DATE ingut transfoom: S WOMe"E" D “SOT S MeY Ki Ci X 
LAST EOTIED: SEP 30, 1987 








ORTA OICITONARY #1004.2 — INOURY COMP AND CLAIMS SB-FILE OS 5/CHDS SYSIEM SUQRED IN “EMPLCy( 





OXIA NYE GLOBAL DESCRIPTION 
ELEENT LOCATIEN 
1004.2,255.6 SICK/ANNLAL LEAVE CLAIMED FROM 250;14 TATE Inpt transfomn: 5 WE" D “Wr S MY K:Yd) X 


LAST EDITED: SEP 30, 1987 


1004.2,255.7 SICK/ANNLAL LEAVE CLAIMED THRU 250;15 DXTE = Input_ transfoma: S Wie"E” D “MOT S Me K:YC1 X 
LAST EDITED: SEP 30, 1987 


1004.2,255 COMP RECO FROM 41;1 DXIE Inout transform: S Wlk"E" D “MOI S HY K:Y<l X 
LAST EDITED: CCT 17, 1987 


1004.2,256.1 CC Rec THU 2512 DME Input tranifom: S WIM"E" D “MOT S HY R:Yd x 
LAS? EDITED: CCT 17, 1987 


1004.2,256.2 COMP RECVD GROSS 281;3 , NYGER ‘TYPE A NUMBER BRTHEEN 0 AND 999999.99 
Inst transfoom: S:xX["$" %6P(X,"$",2) 
Kz-+X/eE(X!? NL". "2N) 1 (90999999.99) 1(X<0) X 
LAST EDITED: OCT 17, 1967 


1004.2,256.3 COMPENSATION TPE Si;4 ST; °C’ SOR COMPENSATICN; ‘S’ FOR SCHELLEED AWARD 
LAST EXITED: NW 2, 1987 


1004.2,256.4 COMP BEGIN HOURS 21;5 NUMBER TYPE A WHOLE NUGER BETWEEN 0 AND 24 
Inpx transform: K:+X’=X! (2524) 1(<0) 1 (X?.E1"."IN.N) X 
LAST EXCITED: NW 2, 1987 


 1004.2,256.5 COMP END HOLES 251;6 NUMBER «TYPE, A WELE NUMBER BEIWEEN 0 AND 24 
Input transfoom: K:+X’sK! (2024) 1(X<0) 1 (X?. £1". "IN.N) 
LAST EDITED: NW 2, 1987 


1004.2,256.6 COMP LEAVE SIRIUS 21;7 SET; 'S' FOR SICK LEAVE; ’P’ FOR ACMINISIAATIVE ; 
"L’ POR CAP ; 'T’ PCR TEMP CPF SINTIN ; 
‘A’ FOR ANNUAL LEAVE (VACATION) 
LAST EDITED: NW 2, 1987 


1004.2,256.7 COMP PECVD OATE 21;8 ORIE Input transfoom S Wre"E" D “WT S MY K:Yd X 
LAST EXTIED: NW 2, 1987 
1004.2,256.8 COMP RECURRENCE FLAG = 251;9 SeT ; “Y’ FOR YES ; ‘N’ RN 


LAST EDITED: NW 2, 1987 


1004.2,257 MISC FAY RCW FRM 8231 OXE Input transfonn: S Wik"E" D “WT S MY K:Y¥<Cl X 
LAST EDITED: OCT 17, 1987 


1004.2,257.1 MISC PAY RACV THY «= 252;2 DATE Input tranefonm: S Wle"E" D “WT S Mey K: Yd X 
LAST EDITED: or 17, 1987 


1004.2,267.2 MISC FAY FCW GUES 9 262;3 NUMER TYPE A NUMBER BEINEEN 0 AND 999959.99 
Inpit trensfomm: S:xX1"S" #SP(X,"5,2) 
| R:4X "kG (X72.NL". "2N) 1 (30999999.99) 1 (XO) X 
LAST EDITED: OCT 17, 1987 


1004.2,257.3 MISC PALE 252;4 NUEER TYPE A NUMBER ERINEEN 0 AND 999999.99 
. Input transfoma: S:X["S" %6P(X,"S",2) 
Rz-4X" G(X? NL". "2N) 1 (15999999.99) 1(%C0) X 
LAST EDITED: OCT 18, 1987 


c~24 











DATA ONCTIONARY #1004.2 — INOURY COMP AND CLAIMS SB-+FILE CSHREGACHIDS SYSTEM STCRED IN “EMPLOY( 








OATA NAME GLOBAL DESCRIPTION 
ELEMENT LOCATION 
1004.2,257.4 MISC RATE BASIS 282;5 SET; "H’ FOR HOURLY; ‘W" FOR WEEKLY; ’M’ POR MONIMLY; 


"B’ FOR BI-WEEKLY; ‘A’ POR ANNLALLY; ‘D’ PCR CAILY 
LAST EDQIED: CCT 13, 1967 


1004.2,257.5 MISC SPECIFY 252;6 FREE TEXT ANSWER MUST BE 1-30 CHARACTERS IN LENGIH 


Inpt transfoun: K:$L(X)>30!(SL(X)<1) X 
LAST EDITED: CCT 18, 1987 


1004.2,300 UCEFENCENIS 300;1 SET; ’S’ FOR SEQLBE; ’C’ PCR CHILDREN; ‘O’ POR ODER; 
"SC’ FOR SPOUSE AND CHILDREN; ‘SO’ FOR SPOLBE & ODER; 
"SOY FOR SEOLSE, CHOLCREN, & ODER ; 
"OY FOR CHILDREN AND CIHER ; 'N’ FR NONE" 
LAST EDITED: NOV 12, 1987 


1004.2,301 STCK/ANNLAL LEAVE CLAIMED 300;2 SET (Required) ; 
"CoP PCR CONTINLATION CF REGULAR BAY & COMPENSATION 
IF DISABILITY GOES BEXCND 45 CANS ; 
'S/A’ FOR SICK AND/OR ANNLAL LEAVE 
LAST EXITED: NOV 13, 1987 


1004.2, 302 REGULAR WORK HOLES 300;3 FREE TEXT ANGAER IN MILITARY TIME. EX: (0700-1500) 
Inpt transfoom: K:SL(X)>141(SL(X)<6) X 
LAST EDITED: AUG 20, 1967 


1004.2,303 REGULAR WORK SCHEDDLE =300;4 FREE TEXT «9 BXAMELE: (M-F, or M,TU,W,1H,F) 


Innt transfoon: K:$L(X)>151(SU(X)<3) X 
LAST EDITED: AUG 20, 1987 


1004.2,303.5 HEGULAR NUMBER CF HOURS DAILY 300;5 NIGER TYPE A WHOLE NUMBER BETHEEN 1 AND 24 


Input transfoum: K:+X' =X! (3524) )(X<1) 1 (X?.EL". “IN.N) X 
LAST EDITED: OCT 31, 1967 


1004.2,303.5 BARITIME WORK HOLES PER CAY 300;7 NEER ‘TYPE A WECLE NUMBER EBEIWEEN 1 AND 8 


Input transfoon: K:+X’sX!(X>8) 1(X<L) 1 (X2.E1"."1N.N) X 
LAST 2QC7ED: CCT 31, 1987 


1004.2,304 ORMTE RECEIVED NOTICE «= 300;5 DRIE -CAN'T BE ALTERED EXCEPT BY PROGRAMMER 
‘the date mest be after the Date of Injury! 
Input transform: S WI="E" D “WT S MY K:Yd. X 
LAST EDITED: NOV 2, 1967 


1004.2,307 = INOLRED IN LD & DUTY 300;8 ST; 'Y FOR YES ; ‘N’ FOR ND 
LAST EDITED: AUG 20, 1987 

1004.2,307.1 EXPLAIN INKRY 306 ;0 1004.32 WORD-PROCESSING 

1004.2,308 WILLFUL MISCCNALT 300;9 SET; "Y FOR YES ; /N’ FOR NO 


LAST EDITED: AUG 20, 1987 
1004.2,308.1 EXPLAIN WILLFUL MISNOLCY 301;0 1006.33 WORD-PRCCESSING 
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DATA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SB-TLE CGHRES/ACHIS SYSIEM STORED IN “EMPLCY( 





DESCRIPTION 





DROA NAME GLCRAL 
ELEMENT LOCATION 
1004.2,310 FIRST EAM ONE 303;1 
1004.2,311 DISABLED FOR WORK 303;2 
1004.2,322 SUPS FACTS AGREE WIIH EMP 303;3 
1004.2,312.1 SUPERVISOR PACIS 304;0 
1004.2,314 CLAIM FILING CropmoRY (303;4 
1004.2,315 RELATES TO ILINESS = [9070 
1004.2,316 WHY FILED AFTER 30 DAYS 38;0 
1004.2,317  REASCN POR SDMIEMENT CELAY 309;0 
1004.2,318 WHY MEDICAL REFORIS DELAYED 710;0 
1004.2, 319 DATE LAST EXPOEED ‘TO CONDITION 303;5 
1004.2,320 DESCRIBE NEW WORK ASSIGNENT 311;0 
1004.2,321 mae lsr FeALIZZD 303;6 
1004.2,322 DRO EMP/CLADONT SIND 03;7 
1004.2,324 NEW WORK PEEK 203;8 
1004.2,329 DUTY CHANGED DLE 1D DISABILITY 303;9 
1004.2,329.1 DESCRIBE GHRNGED DUTY 314;0 
1004.2,300 CORTE HEALTH DeDucrmoy reseed 303;10 


CONTE XX—CAN’T BE ALTERED EXCEPT BY PROGRAAPER 
‘the date mst be after the Date of Injury! 

Ino transfoo: S Wl="E" D “SOT S Me K:Y<l X 
LAST EDITED: NW 2, 1987 

Ser; 'Y’ FOR YES ; ‘NY RRND 


Ser ; ‘Y’ FOR YES ; ‘N’ FOR NO 
LAST EDITED: AUG 20, 1987 


1004.34 WORD-EFOCESSING 

SET; ‘1’ FOR NO LOST TIME AND ND MEDICAL EXPENSE; 
‘2’ FOR NO LOST TIME, MEDICAL EXPENSE INCLERED; 
*3’ FOR LOST COVERED BY LEAVE, IWC, CR OP 
LAST EDITED: AUG 20, 1987 

1004.35 WORD-ROCESSING 

1004.36 WORD-PROCFSSING 

1004.37 WORD-PROCESSING 

1004.38 4 WORD-FOCESSING 


OME Input transform: S WIe"E" D “SOT S Mey K:¥<l . 
LAST EDITED: AUG 20, 1987 


1004.39 WORD-PROCESSING | 
DATE Input transfonm: S WIe"E" D “WT S HY KY X 
LAST EDITED: AUG 20, 1987 


DAME Inpt transfoon: S Wik"E" D “WOT S WY K:Y<l X 
LAST EXITED: AUG 20, 1987, 


FREE TEXT ANGER MUST BE 3-30 CHAFACIERS IN LENTHH 
Input transform: K:SL(X)>30!(S2(X)<3) X 
LAST EDITED: AUG 20, 1987 


SET ; ‘Y’ IER YES ; ‘'N’ KR NO 
LAST EDITED: AUG 20, 1987 


1004.4 WORD-EROCESSING 


Input transfoom: S Wik"E” D “MOT S HY K:¥d X 
LAST EDTIND: AUG 20, 1987 
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DATA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SB-FILE CSHRKG/NCHDS SYSTEM STORED IN “EMELOY( 


DATA NYE 
ELEMENT 


GLOBAL 
LOCATICN 


CESCRIPITON 


erence A PE SS A CS ES SSDS APNG Af SDA eSATA ALATEST 


1004.2,331 OME CET INS DEDLCTICN FESMED 303711 


1004.2,332 OME HEALIN CENT SICFFED 


1004.2,333 NEW HEALTH PANINI «(130313 


1004.2,400 ATTENDING PHYSICIAN 


1004.2,400.1 COCS ADDRESS 


1004.2,400.2 DOs Cry 


1004.2,400.3 DOCS SINIE 


1004.2,400.4 DOCS ZIRTLE 


1004.2,400.5 DOCS ANE NER 


400;1 


400;4 


400;5 


400;6 


1004.2,400.6 OES DOCIOR SPECIALIZE 400;7 


1004.2,400.7 SPECIALITY 


1004.2,400.8 TAX ID 


1004.2,400.9 DXIE SIGED 


1004.2,401 § REZERRAL PHYSICIAN 


1004.2,401.1 RP ADDRESS 


400;8 


401;2 


DATE Input transform: S We"E" D “MOT S MY K:Y¥<1 X 
LAST EDITED: AUG 20, 1987 


CATE Inne transform: S *0T="E" D “WI S Mey K:Y<1 X 
LAST EDITED: SEP 4, 1987 


DXIE Inout transform: S Wle"E" D “WI S ey K:Y<l X 
LAST EDTYED: ALG 20, 1987 


FREE TEXT ANSWER MUST BE 1~30 CHARACIERS IN LENGIH 
Input transform: K:SL(X)>30!(SL(X)<1) X 
LAST EDITED: Stp 15, 1987 


FREE TEXT ANSHER MIST BE 1-54 CHARACIERS IN LENGIH 
Inns transfomn: a lea x 
LAST EDITED: S2P 17, 1997 


FREE TEXT ANSWER MUST BE 1-20 CHARACTERS IN LENGIH 
Input transform: K:$L(X)>20!(SL(X)<1) X 
LAST EDITED: SEP 15, 1967 


FOINIER TO SIMIE FILE (#1003) 
LAST EDITED: SEP 15, 1967 


FREE TEXT ANSAER MUST BE 5-10 CHARACIERS IN LENGIH 
Input transform: K:$L({X)>10! ($L(X)<5) X 
LAST EDITED: SEP 15, 1987 


FREE TEXT ANGER MOST HE 7-14 CHARACTERS IN LENGIH 
Input transform: K:$L(X)>14!($L(X)<7) X 
LAST EDITED: SEP 15, 1967 


Set ; ’Y’ POR YES ; ’N’ FOR NOD 
LAST EDITED: SEP 15, 1967 


FREE TEXT ANSHER MUST BE 1-30 CHARACTERS IN LENGIH 
Input transfoom: K:SL{X)>30!(SL(X)<1) xX 
LAST EDITED: Sep 15, 1987 


FREE TEXT ANSHER MUST BE 1-10 CHARACTERS IN LENGIH 
Inpt transform: K:SL(X)>10!(SL(X)<1) X 
LAST EDITED: SeP 15, 1987 


DATE Inpt transfoon: S Wik"E" D “WT S Ney K:¥cl X 
LAST EDITED: SEP 15, 1987 


FREE TEXT ANSHER MOBT BE 1-30 CHARACTERS IN LENGIH 
Input transfoom: K:SL{X)>30!(SL{X)<1) X 
LAST EDITED: SEP 15, 1987 


FREE TEXT ANERER MUST BE 1-54 CHARACIERS IN LENGIH 
Inpxt trarsfoom K:SL(X)>541($U(X)<L) X 
LAST EDITED: SEP 17, 1987 








DATA DICTICNARY #1004.2 — INJURY COMP AND CADS SB-FIE CGHAG CHS SYSIEM STCFED IN “EMPLOY( 





OXIA NYE GLOBAL DESCRIPTION 
ELEMENT LOCATIN 
1004.2,401.2 RP CIiy 401;3 FREE TEXT ANSKER MST BE 1-20 CHARACIERS IN LENT 


Input transfoom: K:SL(X)>201(SL(X)<1) X 
LAST EDITED: SEP 15, 1987 


1004.2,401.3 RP SIME 401;4 POINIER 1D SIMIE FILE (#1003) 
LAST EDIIED: Sep 15, 1967 


1004.2,401.4 RP ZIFOLE 401;5 . FREE TEXT ANSVER MST BE 5-10 CHARACIERS IN LENGIH 
Input transfomm K:SL(X)>101(SL{X)<5) X 
LAST EXITED: SEP 15, 1967 


1004.2,401.5 RF PHONE NUMER 401;6 FREE TEXT ANEVER MUST BE 7-14 CHARACTERS JIN LENGIH 
Input transform: K:$L(X)>141(Si(X)<7) X 
LAST EDITED: SEP 15, 1987 


1004.2,401.6 CCES REF COCIOR SPECIALIZE 401;7 SI ; 'Y’ FOR YES ; 'N’ FOR ND 
LAST EDITED: SEP 15, 1967 


1004.2,401.7 Re SPECIALTY 401;8 FREE TEXT 34aANSHER MBT BE 1-30 CHARACIPRS IN LANG 
Input transform: K:SL(X)>301(SL(X)<1) X 
LAST EDITED: Sep 15, 1967 


1004.2,401.8 RP TAX ID 401;9 FREE TEX? «ANSHER MST af 1-10 CHARACTERS IN LENGIH 
Inpt transform: K:SL(X)>101 (SL(x)<1) X 
LAST EDITED: SEP 15, 1967 


1004.2,401.9 RP DOXIE SIGNED 401;10 DATE Input transform: $ WIE" D “OT S NY K:¥CL X 
LAST EDITED: SEP 15, 1987 


1004.2,402  SUPERVISOR’S NWE 4231 FREE TEXT ANSVER MOST BE 1-30 CHARACTERS IN LENGTH 
Ingut transfoon: K:$L(X)>301(SL{X)<1) X 
LAST EDITED: S#P 15, 1987 


1004.2,402.1 SUPERVISCR’S TYILE 4232 FREE TEXT «ANSWER MBST BE 1-30 CARACIESS IN LENGIH 
Input transfoom: K:$2(X)>30!(SL(X)<1) X 
LAST EDITED: SEP 15, 1987 


1004.2,402.2 SUPERVISOR’S PHONE NIMEER 402;3 FREE TEXT ANSHER MUST BE 7-14 CHARACTERS INN LENGIH 
Inak trerefoom: K:9L(X)>14! (SL{X)<7) X 
LAST EDITED: SEP 15, 1987 


1004.2,402.3 SUPERVISOR'S AUIOMIN 9 402;4 FREE TEXT ANSVER MUST BE 7-8 CHARACTERS JN LENGIH 
Input transfoum: K:SL(X)>8!(SL(X)<7) X 
LAST EDITED: SEP 15, 1987 


1004.2,402.4 DAE SUPERVISOR SIGNED 402;5 . ERIE Input transfoom: S WINE" D “MOT S Ney K:Ycl X 
LAST EDITED: SEP 15, 1987 
1004.2,402.6 SUPERVISORY ACC REPORT 402;7 SET ; 'Y" FOR YES ; ‘NT POR ND 


LAST EDITED: CEC 9, 1987 
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DATA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SIB-FILE CSHARGACHIMS SYSTEM STORED IN “EMELOY( 


CATA NAME GLORAL DESCRIPTION 

ELEMENT LOCATION 

en a ea a a a aman mame eaneeammaamaanaiaaied 
1004.2,502 SRQSEATIENH 501;1 FREE TEXT 9=ANSVER MOST BE 1-30 CHRRACIERS IN LENGIH 


Int transform: K:$L(X)>301(SL(X)<1) X 
LAST EXEIED: SEP 15, 1987 


1004.2,502.1 ACORESS OF SFOLEE 501 ;2 FREE TEX? ANGVER MBIT BE 1-55 CAPACIERS IN LENG 
Input transform: K:$L(X)>551(SL(X)<1) X 
LAST EXEIED: ©.P 15, 1967 


1004.2,502.2 CITy OF SEQLSE 501;3 FREE TEXT ANGER MST BE 1-20 CHARACIERS IN LENGIH 
Input tumsfiocn: K:S1(X)>20!(SL(X)<1) X 
LAST EDETED: SEP 15, 1987 


1004.2,502.3 SIRIF OF SRLEE 501;4 FOINIER ‘1D SINIE FILE (#1003) 
LAST Sep 15, 1987 


1004.2,502.4 ZIPCODE OF SROLEE 501;5 FREE Ter MGPER MIST BE 5-10 CANRACIERS IN LNG 
Inpst temaforn: K:$L(X)>101(S4X)<5) X 
LAST EXRTED: Se 15, 1987 


1004.2,503 OTHER DEPEND AT CEATH = 502;5 FREE TEXP 4 ANEHER MLBT BE 1-30 CHARACIERS IN LENGHH 
Input transform: K:$L(X)>30!(SL(X)<1) X 
LAST EDETED: AUG 21, 1967 


1004.2,504 OTHER DEPEND ACDRESS AT CEATH W2;1 FREE TEX ANGER MUST BE 1-55 CHARACIERS IN LENGTH 
Input transfoum: K:$1(X)>551(SL{X)<1) X 
LAST EDSTED: SEP 9, 1987 


1004.2,504.1 OTHER DEFEND CITY 512;2 FREE TEXT =ANGHER MST BE 1-23 CHARACIERS IN LENGIH 


Inpat transfomn: X:$L(X)>231(SL{X)<1) X 
wast SP 9, 1987 


1004.2,504.2 OTHER DEPEND SINIE 32;3 FOINIER 30 SIMIE FILE (#1003) 
LAST EDITED: SEP 11, 1967 - 


1004.2,504.3 OTHER DEFEND ZIP CE XD;4 FREE TEXT ANSVER MBT BE 5-10 CHARACIERS IN LENGH 


Input transfoum: K:$L(X)>101($L(X)<5) X 
LAST EXT: SEP 9, 1987 


1004.2,505 SERVICE NO  500;3 FreE TEXT ANGHER MOT BE 1-20 CHARACIERS IN LENGIH 
Input transfoum: K:$1(X)>201($L(X)<1) X 
LAST EXIT: AUG 21, 1987 


1004.2,506 BRANCH OF SERVICE 500;4 FREE TEXT 9=ANSHER MBY BE 1-29 CHARACTERS IN LENGIH 
Input transfoum: K:SL(X)>30! (SL(X)<1) X 
LAST EDT IED: AUG 21, 1987 
1004.2,507 PERIOD OF SERVICE 500;5 FREE TEXT «=CRRAT: MOAR 1 OAR 
Inpt transfoom: K:SL{X)>20!(S(X)<1) X 
LAST EDITED: SEP 8, 1967 
1004.2,515 ‘TOTAL BURIAL EXPENSE «505; NUMBER 9‘ TYPE A WECLE: NUMEER BEIVEEN 0 AND 9999999 


Inns transfoor: 
K: 4X? aX {399999999 ) 1 (X40) 1 (X2.EL"."IN.N) X 
LAST EDITED: AUG 21, 1987 
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DROA DICTIONARY 4104.2 — INLRY COP AND CLANS SB-FILE CGHRESACHDS SYSIEM STOFED IN “EMELOY( 


OXIA NXE GLOBAL 
ELEPENT LOCATION 


DESCRIPTION 





1004.2,516 § BURIAL EXPENSE AID BY VA 505;2 


1004.2,517 = PARTY BAYING FOR BRIAL 506;1 
1004.2,517.01 ACORESS CF PERSON EAYINS 506;2 


1004.2,517.02 CITY OF FER BAYING 506;3 


1004.2,517.03 STRUE OF PERSCN PAYING 506;4 


1004.2,517.04 ZIP CQOE CF PER BAXING 506;5 


1004.2,517.1 AMOUNT OTHER PARTY RAID BURIAL 505;3 


1004.2,520 DOCS NARRATIVE OF REL DLSEASE 507;0 
1004.2,521 DOCS TRERIMENTAOIAG = 508 ;0 
1004.2,522 ‘TREAIMENT PRICR TO CENT 509;0 
1004.2,523 ‘TREAIMENT DATES (PRE-CEMIH) 55:6 
1004.2,524  ODPECT CALSE CF CENIH 510;0 
1004.2,525 CONIRIBUICRY CABE OF DERIH $11;0 
1004.2,526 WAS CENIH DLE TO WRK 505;7 


NUGER ‘TYPE A WECLE NUMBER BETWEEN 0 AND 99999999 
transforn: 


Input : 
K:4X' =X! (399999999) f (X<0) | (X?.E1"."1N.N) X 
LAST EDITED: ALG 21, 1987 


FREE TEX? «ANSWER MIST SE 1-30 CHARACTERS IN LENGHH, 
Input transfoon: R:SU(X)>30! (SUX) <1) x 
LAST EDITED: SEP 15, 1987 


FREE TEXT AMGHER MIST Bt 1-45 GFFACIERS IN LANG 
Input trensfoom: K:$L(X)>451(SL{X)<1) X 
LAST EDITED: SEP 15, 1967 


FREE TEXT 9=ANSHER MBIT BE 1-20 CHARACIERS IN LENTH 
Inpt transform: K: SLAX)>201 (SLX) 2) Xx 


LAST EDITED: SEP 15, 1987 


FOINIER 10 SIAIE FILE (#1003) 
LAST EDITED: S&P 15, 1967 


FREE ‘TEXT «ASHER MUBT BE 5-10 CHARACTERS IN LENGIH 
Ing. transfoom: K:9L{x)>10!1(SL(X)<5) X 

LAST EMYIED: SEP 15, 1987 

NUMBER, «TYPE A NUMBER BETNEEN .01 AND 9999999.99 
Input transfoom: S:x["$" %GP(X,"$",2) 

K:4X! <it5.(X'2.NL". TON) 1 (X>9999999.99) 1(X«.01) X 

LAST EDITED: AUG 21, 1967 

1004.41 WORD-FFOCESSING 

1004.42 WORD-FFOCESSING 

1004.43 WORD-PROCESSING 


DAE Input transfoom: S WIs"s" D “WY S He K:Y X 
LAST EDITED: AUG 21, 1987 


1004.44 WORD-FRCCESSING 
1004.45 WORD-PROCESSING 


SET ; 'Y’ FR YES; 'N’ ARNO 
LAST EDITED: AUG Zi, 1987 


C~30 











DATA DICTIONARY #1004.2 — INCURY COMP AND CLAIMS SB-FILE C&HRG,NCHDS SYSIEM STORED IN “EMELOY( 


CATA 
ELEMENT 


NYE GLOBAL 
LOCATION 


CESCRIPTION 





1004.2,526.1 EXPLAIN CALBAL PRELATICNEHIP 512;0 


1004.2,527 


1004.2,530 


1004.2,532 


1004.2,532 


1004.2,533 


AUTOPSY/BICPSY PERFORYED 505;8 


SPOUSE DCB 501;6 


DATE CF MARRIAGE (astsiéSS 1 


LIVING W/SPOLEE AT DEXTH 515;2 


SPCBE PREVICUBLY MARRIED 515;3 


1004.46 WORD-PROCESSING 


SET ; ‘Y’ FOR YES ; 'N’ FOR ND 
LAST EDITED: AUG 21, 1987 


OME Input transform: S Wie"E" D “430T S Ney K:Y¢l X 


LAST EDITED: ALG 21, 1987 


OXTE Inns transfoon: S Wie"E" D “WI S MY K:Y<l X 


LAST EDITED: AG 21, 1987 


SET ; ‘Y’ POR YES ; 'N’ FOR NO 
LAST EDITED: AUG 21, 1987 


SET ; ‘Y’ POR YS ; 'N’ ARNO 
LAST EDITED: ALG 21, 1987 








DATA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SB-FILE OSHERS/NCHIMS SYSIE! STCRED IN “EMELOY( 





CATA NE GLOPAL CESRIPIION 
ELEMENT LOCATICN 
1004.2,536 CHILDREN FRIGR MARRIAGE 517;0 1004.48 Multiple 


1004.48, .01 


1004.48,1 


1004.48,2 


1004.48,3 


1004.48,4 


1004.48,5 


1004. 48,6 


1004.2,537 CHILD & LEGAL GUARDIAN 518;0 


1004.49, .2 


1004.49,1 


1004.49,2 


NAME 


DATE OF BIRTH 


ZIP OLE 


GOLD'S NOME 


GUAEOIAN NYE 


CUNRUIAN'S AERESS 0;3 





0;1 


0;2 


0;3 


034 


0;5 


= 


0:6 


0;7 


0;1 


0;2 


FREE TEXT ANSHER MST GE 1-30 GAARACIERS IN LENGIH 
(Multiply asked) 

Input transform: K:SL({X)>301(SL(X)<1) X 

LAST EXTTED: SEP 15, 1987 

CROSS-FEFEFECE: 1004.48°S 

lye S “EMELOY(DA(2), "TOC" ,DA(1) ,317,"B",Se(X,1, 30) ,tR “ 
2)= K “EMELOY(DA(2) , "200" ,DA(1),517,"B" ,S(X,1,30) ,DA) 


FREE TEXT ANSWER MST HE 1-30 CHARACTERS IN LENGIH 
Isut transform: K:$L(X)>30!(SL{X)<l) X 
LAST EDITED: SEP 15, 1987 


DPGE Input transfoon: S $Ie"E" D “MOT S Mey K:YCl X 
LAST EXTIED: SEP 15, 1987 


FREE ‘TEXT ANSAER MUST BE 1-60 CHARACIERS IN LENGIH 
Input transform: K:$L(X)>60! (SL{X)<1) X 
LAST EDITED: SEP 15, 1967 


FREE TEXT ANEHER MOST BE 1-20 CURRACIERS IN LENGIH 
Input trensfoom: K:$L.{X)>201(SL(X)1) X 
LAST EDITED: Sep 15, 1967 


FOINIER TO SINIE FILE (#1603) 
LAST EDITED: SEP 15, 1967 


FREE TEXT ANSHER MUST BE 5-10 CHARACTINS IN LENGIH 
Input transfoum: K:$L(X)>101(SU(X)<5) X 
LAST EDITED: SEP 15, 1967 


1004.49 multiple 


FREE TEXT «=aANGHER MBT BE 1-30 CRRACIEPS IN LENGHH 
(Multiply asked) 
Input transform: K:SL(X)>301(SL(X)<1) X 
LAST EDITED: Sep 15, 1987 
CYOSS-FEFEFENCE; 1004.49°B 
Le S “EMPLOY (DA(2), "100" ,DA(1) , 518 "821% 1, 30) ,DA)="" 
2)= K “EMPLOY(DA( 2), "IOC" ,DA(1) 518, "B",S2(X,1,30) ,DA) 


FREE EX? ANSHER MUST BE 1-30 CHARACTERS IN LENGIH 
Inpt transfoom: X:$L(X)>301(34X)<1) X 
LAST EDITED: SEP 15, 1987 


FREE TEXT «= ANSHER MUST BE 1-60 CHARACTERS IN LENGIH 


Input transfoon: K:9{X)>60! (SL{X)<1) X 
LAST EDITED: SEP 15, 1987 


C=32 














DATA DICTIONARY #1004.2 — INDURY COMP AND CLADS SLB-FILE CGHRKGACHIDS SYSTEM STORED IN “EMELOY( 








OANA NE GLOBAL DESCRIPTICN 
ELEMENT LOCATICN 
1004.49,3 GUAROIAN’S CITY 074 FREE TEXT ANSWER MBT BE 1-20 CHARACIFRS IN LENGIH 


Input transfoom: K:$L(X}>20! ($L(X)<1) X 
LAST EDITED: SEP 15, 1987 


1004.49,4 GUAROIAN’S SIME 0;5 FOINIER TO SIMIE FILE (#1003) 
LAST EDITED: SEP 15, 1967 


1004.49,5 GUAADIAN’S ZIFOIE 0;6 FREE TEXT  ANGAER MUST BE 5-10 CHRAACIERS IN LENGIH 
Input transfoom: K:SL(X)>101(SL(X)<5) X 
LAST EDITED: S#P 15, 1968 


1004.2,538 OTHER DEPENCENIS 519;0 1004.5 Multiple 
1004.5,.01 NE G;1 FREE TEXT ANGER MUST BE 1-30 CHARACIERS IN LENIH 
(Multiply asked) 


Input transf2om: K:Si.(X)>30! (SL(X)<1) X 

LAST EDTIED: SP 15, 1987 

CFCSS-FEFERENCE: 1004.5°B 
l)~ S “EMPLOY(DA(2) , "100" ,DA(1) ,519, "8B", S€(X,1,30) ,DA)="" 
2)= K “EMELOY(OA( 2), "ICC", DA(1) ,519, "8", SB, X,1, 30) ,OA) 


1004.5,1 RELATICNSHIP 0;2 FREE TEXT ASHER MOT BE 1-30 CHARACIERS iN LENTIH 
lyut transfoum: K:$L(X)>30!(SL{(X)<L) X 
LAST EDITED: SEP 15, 1967 


1004.5,2 OATE CF BIRIH 0;3 OAIE Innit transfona: S WIe"E" D “MOT S 3. / K:¥C1 X 
LAST EDITED: SEP 15, 1987 


1004.5,3 ACORESS 0;4 FREE TLAT ANSKER MUST BE 1-60 CHARACTERS IN LENGIH 
Input trarsfoom: K:SL(X)>60! ($L(X)<1) X 
LAST EDITED: S#P 15, 1987 


1004.5,4 CITY 0;5 FREE ‘TEXT ANSWER MIST BE 1-20 CHARACIERS IN LENGIH 
Input transform K:SL(X)>201(SLAX)<1) ¥. 
LAST EDITED: Sep 15, 1967 


1004.5,5. SIMIZ 0;6 FOINIER ID SIRIE FILE (#1003) 
LAST EDITED: Sep 15, 1967 


1004.5,6 ZIFOOLE 0;7 FREE TEXT ANGHER MUST BE 5-10 CHARACIERS IN LENGIH 
Input transfoum: K:$L(X)>10! (SL(X)<5) X 
LAST EDITED: Sep 15, 1987 


1004.2,539 OTHER CEPEND 008 $15;5 OIE Inout transfoan: S Wl"E" D “WOT S MY K:Y<l X 
LAST EDITED: AUG 21, 1987 


1004.2,540 OTHER DEPEND CCCLEATICN 515;6 FOINIER TO COOURATICN FILE (#100).) 
LAST EDITED: SP U1, 1987 








DATA DICTIONARY #1004.2 — INOURY CCMP AND CLAIMS SB-FILE OSHERG/NCHDS SISIEM SICRED IN “EMELOY( 








DACA NE GLOBAL DESCRIPTION 
ELEMENT LOCATION 
1004.2,541 OTHER DEFEND SSN §15;7 FREE TEXT ANSWER MUST BE 9 CHARACIERS IN LENGIH 
Input transfomn: ges Sa ume ale a ad x 
LAST EDITED: SEP li, 1967 
1004.2,542 OTHER CEPEND REL XTICNEHIP 
515;8 CREE TEXT ANSWER MST BE 3-30 CHARACIERS IN LENGIH 
Input transform: K:$L(X)>30!(SL{X)<3) X 
LAST EDITED: ALG 21, 1967 
1004.2,543  BARTTAL/TOIAL DEPENENY 515;9 Ser; ‘T’ FOR TOIL ; ’P’ POR PRRITAL 
LAST EDITED: SEP 9, 1967 
1004.2,544 AMT CONIRIB CEP PRICR TO DEX 
515;10 NUMEER «= TYPE A NUMBER BEIKEEN .(11 AND 9999999.99 
Input transfoom S:X{"$" %6P(X,"$",2) 
K4X"eXG(X"?NL".“2N) 1 (X09999999.99) 1(X<.0L) X 
LAST EDITED: AG 21, 1967 
1004.2,545 CRP W/EMP 12 OS FROCR DD OH 920;1 SEf ; ‘Y’ POR YES ; “NY CR NO 
LASY EDYIED: AUG 21, 1987 
1004.2,546 ‘TOTAL ROOM/SORAD EXIaA 520;2 NUMBER ‘TYPE A HUNGER BEIV?=y 0 AND 99999 
Input transfoan: $:X["$" %GP(X,"$",2) 
Ke+X! XG (X' NL". "2N) 199999) 1(XK0) X 
LAST EDITED: AUG 24, 1987 
1004.2,546.1 ROCM/ACRAD BASIS §20;5 SET; ‘W’ FOR WEERLY; 'M’ FOR MONINLY ; ‘3’ FOR 
BI-WEEKLY ; ‘A’ POR ANNLLLY ; 'D’ FOR CAILY 
LAST EDITED: SEP 10, 1987 
1004.2,547 VALLE FAYED UF NO FD@D aM 
520;3 NUMBER ‘TYPE A NUMBER BETWEEN 0 AND 9999999.99 
Input transfoom: $:X["S" %$P(X,"$",2) 
K4X'eXh(X"2NL"."2N) 1 (309999999.99) 1(X<0) X 
LAST EDYIED: AUG 24, 1987 
1004.2,547.1 VALLE BASIS 520;4 S2T; ‘W POR VEERLY; ‘M’ POR MONTHLY ; ’B’ FOR 
BI-WEEKLY ; A’ FOR ANLALLY ; 'D’ CR DAILY 
LAST EDITED: SEP 10, 1987 
1004.2,548 ‘TYPE CF WORK PERPORED 523;1 FREE TEXT §=AEVER MIST BE 1-30 CHARACIERS IN LENGIH 
Ing transform: K:9L(X)>30!(SEAX)<1) X 
LAST EDTIED: SEP 15, 1987 
1004.2,548.1 PERIOD OF EMPLOWENT 523;2 FREE TEXT ANSWER MIST BE 1-30 CERARCIETS IN LENGIH 
- Input transfoom: K:9L(X)>301(SL(X)<1) X 
LAST? EDITED: S#P 15, 1987 
1004.2,548.2 MONTHLY PAY RATE §23;3 NUMER «TYPE. A NIMEER BETKEEN 0 AND 9999999.99 


Input transfoam: S:x{"5" %GP(X,"5",2) 
Ks4K/ i (X°P.NL". "2N} | (209999999.99) 1 (X<0) X 
_ LAST EDITED: Sep 15, 1967 


C-34 








DATA DICTIONARY #1004.2 — INOURY COMP AND CAADS SB-FILE CGHAKG/ACHIDS SYSTEM STORED IN “EMPLOY( 


CESCRIPTIN 





DATA NYE GLOBAL 
ELEMENT LOCATION 
1004.2,548.3 NAME CF EMPLOYER 522;4 


1004.2,548.4 ACORESS OF FMPLOVER 523;5 
1004.2,548.5 CITY CF EMPLOXER " §23;6 


1004.2,548.6 SDXIE OF EMPLOXER 523;7 


1004.2,548.7 ZIP COE OF EMPLOVER «= 823;8 


1004.2,549 INVESIMENIS 524;1 


1004.2,549.1 PENSTCNS OF OTHER CEPENENT 524;2 


1004.2,549.2 PERSONS OINDR THAN EMPLOYEE 524;3 


1004.2,549.3 OTHER INCOME POR CEPENCENTS 524;4 


1004.2,549.4 TODAL DEPENCENIS OIHER INCE $24;5 


1004.2,550  OCEFEND SOLSE OB §20;6 


1004.2,551 DEPEND SECLEE COOLENTICN 520;7 


FREE TEX? ANSAER MBT BE 1-30 CHARACIERS IN LENGIH 
Inpx transform: K:$L(X)>30!(SL{(X)<L) X 
LAST EDITED: SEP 15, 1987 


FREE TEX? ANSWER MOST BE 1-60 CHARACTERS IN LENGIH 
Input transform: K:$L(X)>60!(SL(X)<1) X 
LAST EDTIED: SEP 15, 1987 


FREE ‘TEXT ANGER MIST BE 1-20 CHARACIERS IN LENGIH 
Input tranefoom: K:$L(X}>201(SL(X)<1) X 
LAST EDITED: SEP 15, 1987 


POINIER 10 SINIE FILE (#1003) 
LAST ECTIED: SEP 15, 1967 


FREE TEXT 9 APEMER MOST BE 5-10 CHARACIERS IN LEN 
Input transfoom: K:SL(X)>101(SL(X)<5) X 
LAST EDITED: SEP 15, 1967 


NUMER «TYPE A NUMBER BETWEEN 0 AND 999999999 

Irpt transfome: S:X{"$" %6P(X,"5",2) 
K:4X'oXG(X' ?.NL"."2N) | (309999999.99) !(X<0) X 
LAST EDITED: SEP 15, 1987 


NUMBER ‘TYPE A NUMBER BEIWEEN 0 AND 9999999.99 
Input transform: S:X["$" %62(X,"$",2) 
K-4X! KE (X" 2 NL". "2N) 1 (309999999.99) 1(X<0) X 
LAST EDYiED: SEP 15, 1987 


NUGER «9 TYSE A NUMBER BETWEEN 0 AND 9999999.99 
Ing transfoon: S:x{"$" %6P(X,"$",2) 
K-4X XG (X" 2? NL” ."2N) ! (309999999.99)1 (XO) X 
LAST EDITED: SEP 15, 1987 


NMEER TYPE A NUMBER BETWEEN 0 AND 9999999.99 
Inpt transfoon: S:X{"5" %-6P(X, “$",2) 
R:4X G(X! 2 NL" ."2N) 1 (209999999.99) 1 (X<0) X 
LAST EXITED: SEP 15, 1967 


NUMEER TYPE A MMEER BETWEEN 0 AND 999999999.99 
Inpt transfoom: S:X["S" #GP(X, "5", 2) 
Kz 4X’0XG(X"? NL”. "2N) t (999999999 99) 1(X<0) X 
LAST EDITED: SEP 15, 1987 


OPTE Input transioon: S Wik"E" D “WOT S MeY K:Ycl X 
LAST EDTIED: AUG 21, 1967 


FOINIER 10 OOLEATION FILE (#1001) 
LAST EXITED: SEP 11, 1987 








DATA DICTICNARY #1004.2 — INOURY CMP AND CLAIMS SBFILE COHNGANCHDIS SYSTEM STCFED IN “EMETOY( 


CXR 8 8 NXE GLOBAL 
ELEYENT COCATION 





1004.2,552  CEPEND SECLEE MONIELY WAGE 520;8 


1004.2,553 DEPEND INCOME 12 0S PRICR 520;9 


1004.2,554 CEPENCENIS PREERTY 521;0 
1004.51, .01 DEPENCENIS PRCEERTY 0;1 


1004.51,1 ONTE AQUIRED 0;2 


3004.51,2 VALLE 0;3 


1004.2,555 ADDRESS CF PERSON SIGNING CASED 
1004.2,555.1 CYTY OF PERSON SIGNING Cacao 
1004.2,555.2  STRIE OF PERSKN SIGNING CASED 
1004.2,555.3 ZIP CODE CFPERSON 


CESCRIPIICN 


FREE TEXT 4 ANSHER MET BE 1-30 CHARACIFRS IN LENGHH 
Input transform: K:$L(X)>30!(SL(X)<1) X 
LAST EDTIED: AUG 21, 1967 


NIGER TYPE A NUNSER BETWEEN .01 AND 9999999.99 
Input transfomm: S:X["$" %GP(X,"$",2) 

Ks4X! eG (X!? NL". "2N) ! (309999999.99) 1(X<.01) X 
LAST EDITED: AUG 21, 1987 


1004.51 Multiple 


FREE TEXT ANSHER MUST BE 1-~40 CHARACIERS IN LENGIH 
(Multiply asked) 

Input transform: K:$L(X)>401(SL(X)<L) 

LAST EDITED: SP 15, 1987 


| CROES-RETERENTE: 1004.51°B 


1)= S “EMPLOY(DA(2), "100" ,DA(1) ,521,"B",S2(X,1,30) Daye" 
2)= K “ERELOY(DA(2), "ICC" ,DA(1), 521,"B' " SE(X,2, 30) ,DA) 


TAGE Input tranefom: S WIe"E" D “WT S HY K:Yd X 
LAST EDITED: Sep 15, 1987 


NIMEER TYPE A NUMBER BEIWCEN 0 AND 999999999.99 

Input transfoom: S:x{"$" %GP(X, "$",2) 
Ks+X'eXG(X"? NL". "N) 1 (20999999999.99) 1 (XC) X 
LAST EDITED: Sep 15, 1987 


522;1 FREE TEXT ANGER MDT Be J-60 CHARRCIERS IN LGT 
$22;2 FREE TEXT ASHER MBT BE 1-20 CHAPACIERS IN [QT 
822; POINTER TO SIRI FILE 4#(1003) 


FREE TEXT ANGER MUST BE 5-10 CHARACIERS IN LGN? 


C-36 














DATA DICTIONARY #1004.2 — INOURY COMP AND ( AIMS SB-FILE COHRRGACHIDS SYSTEM SIGeD IN “EMPLOY( 


DATA 
ELEMENT 





1004.2,603 
1004.2,605 


1004.2,606 


1004.2,609 


1004.2,609.1 


1004.2,609.2 


1004.2,609.3 


1004.2,609.4 


1004.2,610 


10M.2,611 


1004.2,611.1 


1004.2,611.2 


1004.2,611.3 


1004.2,611.4 


1004.2,611.5 


1004.2,612 


NYE GLOBAL CESRIPTICN 

LOCATION 
CASLE OF DEATH 600;4 FREE TEXT ANGER MOST BE 3~30 CHARACIERS 
EMPLOYED IN DUTY Li 10S 600;2 SET ; ’Y’ FOR YS ; ’N’ FORO 


LAST EDITED: ALG 21, 1987 


DUTY AFFCRCED 11 MOS WORK 600;3 SET ; ‘Y’ FOR YES ; 'N’ KERN) 
LAST EDITED: AUG 21, 1937 


ATICRREY NAME 61 ;1 FREE TEX? «ANSHER MOST B® 1-30 CHARACTERS IN LENGH 
Input transfoom: K:$L(X)>30!(SL(X)<1) X 
LAST EDITED: SeP 15, 1987 


ATTORNEY ATRESS 6011 ;2 FREE TEXT «= ANEKER MUST BE 1-54 CARCIERS IN LENGIH 
Input transform: K:SL(X)>541(SL(X)<1) X 
LAST EXITED: SEP 15, 1987 


ATTORNEY CITY 601;3 FREE TEX? «ANGER MST PE 1-20 CHARACTERS JN LANG. 
Ingut transform: K:SL(X)>201(SL(X)<L) X 
LAST EDITED: SEP 15, 1987 


ATTORNEY SIXIC 601;4 FOINIER 10 SIME FILE (#1003) 
LAST EDITED: S#P 15, 1987 


ATICRNEY ZIP CLE 601;5 FPES: TEXT = ANSHER MUST BE 5-10 CHARACTERS IN LENGIH 
Segue transform: K:SL(X)>101(SLAX)<5) X 
LAST EDITED: SEP 15, 1987 


CLAaM FILED WORM &9;5 Set; ‘Y FOR YES ; ‘N’ FOR ND 
LAST EDITED: AUG 21, 187 


NEXT OF XIN G2;1 FREE TEXT ANSHER MUST BE 1-35 CHARACIERS IN UENGIN 
input transfoom: K:SL({X)>351(SL{X)<1) X 
LAST EDITED: S&P 15, 1987 


ACORESS OF NEXT OF KIN 602;2 FEE TEXT ANGER MST BE 1-54 GE-TACIERS IN LANGIH 
Input transfoum: K:$1(X)>541(SL(X)<1) X 
LAST EDITED: SEP 15, 1987 


CITY OP NEXT CF KIN 60233 FREE TEXT 4 ANEVER MET BE 1-20 CHARACTERS IN LENDIH 
Input transform: K:SL(X)>201(SL(X; 1) X 
LAST EDITED: Sep 15, 1987 


STMIE OF NEXT OF KIN 602;4 POINTER TO STROKE FILE (#1003) 
LAST EDITED: SEP 15, 1987 


ZIP COLE OF NEXT OF KIN 602;5 FREE TEXT = ANSVER MST FE 5-10 CARACIERS IN LENGHH 
Inpt transfomm: K:SL(X)>101(SL(X)<5) X 
LAST EDITED: SeP 15, 1997 


RELATIONSHIP OF NEXT OF KIN 602;6 FREE TEXT ANSHER MBT BE 1-20 CHARPCIERS 'N LENGIH 
Input transfoon: K:SL(X)>20; (SiX)<l) X 
LAST EDITED: SEP 15, 1987 


LOCATION OF DERG «© 600;1 FREE TEXT ANGER MBT BE 1-30 CRRACIERS IN LENG 


ina transfou: K:SL(X)>301(SiAX)<1) X 
LAST EDITED: SEP 4, 1987 


C-3?7 








DATA DICTICNARY #1004.2 — INOURY COMP AND CLAIMS SB-FILE CGHAGACHDS SYSIEM STCRED IN “EPELOY( 





DACA, NAME GLOBAL DESCRIPTION 
ELEMENT LOCATICN 
1004.2,701 OAUE WAGES LOST FEM = 700;7 DATE Input tranafoom: S$ WIE" D “MT S MY Rid X 
LAST EXITED: SEP 9, 1987 
1004.2,701.5 ORES WAGES LOST THY 700;9 DATE Input transform: S$ Wle"E" D “Wr S WY K:¥dl X 
LAST EDITED: SEP 9, 1987 
1004.2,702 HRS COMP CLADED 700;2 NMEER ‘TYE A NUMBER BETHEEN 0 AND 999 
Input transform: K:4X!aX! (30999) 1(X<0) {(X?.£1"."3N.N) X 
LAST EDITED: AUG 25, 1987 
1004.2,703 SCEDILLE AAR 700;3 SET ; 'Y’ POR YES ; 'N’ POR ND 
LAST EDTTED: AUG 21, 1987 
1004.2,704 WAS ANY BAY RECEIVED 700;4 SET ; 'Y’ FOR YES ; ‘NY AOR ND 
LAST EDITED: AUG 21, 1987 
1004.2,708 APPLY, RECVD \A BENEFITS 
700;8 Ser ; "Y’ 7OR YES ; ‘N” FOR NO 
LAST EDYIED: AUG 21, 1987 
1004.2,710 VA CLAIM NUMBER FO1;1 FREE. TEXT ANGER MST Bt 1-15 CHARACTERS IN LENGTH 
Input transform: K:SL(X)>151(SL(X)<L) X 
LAST EDITED: SEP 16, 1987 
1004.2, 710.1 VA CEFICE WERE CLAIM FILED 701;2 FREE TEXT ANSWER MUST BE 1-30 CEAAACIERS IN LENTH 
Input transfomn: K:$L(X)>301(SL(X)<1) X 
LAST EDITED: SEP 16, 1987 
1004.2,710.2 VA STREET ADDRESS 701;3 FREE TEXT ANGER MBT BE 1-54 CHARACTERS IN LENGIH 
Input transfomm: K:$L(X)>54!(SL(X)<1) X 
| LAST EDITED: Sp 16, 1987 
1004.2,710.3 VA CTIY 701;4 FREE TEXT ANSKER MUST BE 1-20 GAARACIERS IN LANGHH 
Input transform: K:9L(X)>20!(SL{X)<1) X 
LAST EDITED: SEP 16, 1987 
1004.2,710.4 VA SINE 701;5: FOUNIER 1D SIRIE FILE (#1003) 
LAST EDITED: SEP 16, 1987 
1004.2,710.5 VA ZIP OLE 701;6 FREE TEXT «ANGER MOST HE S-10 CHRAPCIERS IN LENGIH 
Input transform: K:$L{X)>10!1(SL(X)<5) X 
LAST EDITED: SEP 16, 1987 . 
1004.2, 710.6 VA NATURE CF DISABILITY 2 
701;7 FREE TEXT ANGER MUST BE 1-57 CERRACTERS IN LENGIH 
Input transfoum: K:$L(X)>571(SL(X)<1) ¥ 
. LAST EDITED: SP 16, 1987 
1004.2,710.7 VA AMOLNT CF PAYMENT = -701;8 NUMER ‘TYPE A NUMBER BETKEEN 0 AND 99999.99 
Input transform: $:X1"$" %6P(X,"S",2) 
K4X?eXi(X"?.NL"."2N) 1(3099999.99) 1(X<0) X 
LAST EDITED: SEP 16, 1987 
1004.2,713 ANY OTHER RETIRE/OLISAAILITY 700;10 SEY ; ‘Y° FOR YES ; ‘N’ RRND 


LAST EDITED: AUG 21, 1987 


c-38 

















OATA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SB-FILE CSHAG/ACHDS SISIEM STORED IN “EMELOY( 


DATA 
ELEMENT 





1004.2,714 

1004.2,714.1 
1004.2,714.2 
1004.2,714.3 
1004.2,714.4 
1004.2,714.5 
1004.2, 714.6 
1004.2,714.7 
1004.2, 720 


1004.2,722 
1004.7, .Q1 


1004.7,1 


1004.7,2 


1004.7,3 


NYE GLOBAL 


LOCATION 


OTHER ANNUITIES CLAIM NMEER 707;1 


OTAER ANNUITY OTE BEGAN 707;2 


OTHER ANNUITY AMOLNT = 707;3 


OTHER ANNUITY CEFICE 9 707;4 


OTHER ANNUITY SIREET ACORESS 707;5 


OTHER ANNUITY CITY 707;6 


OTHER ANNUITY SINIE = 7077 


OTHER ANNUITY ZIP COE 


CFFICLAL REMARKS 402;6 


CEPENCENT INFO 706;0 


NAVE 0;1 


LIVING WITH YOU 0;4 


CESCRIPTIGN 


FREE TEXT ANGER MUST BE 1-15 CHARACTERS IN LENGHH 
Input transfoom: K:$L(X)>15!(SL(X)<1) X 
LAST EDITED: SP 16, 1987 


OAIE Input transfoum: S Wik"E" D “MOT S Me K:¥<l X 
LAST EDTIED: SEP 16, 1987 


NUMBER «TYPE, A NUPGIER BETWEEN 0 AND 9999999.99 
Input transform: S:X["$" %6P(X,"$",2) 

K:+X! XE(X"?NL"."2N) ! (X59999999.99) 1(X<0) X 
LAST EDITED: SEP 16, 1987 


FREE TEXT ANSWER MOST BE 1-30 CHARACIERS IN LENGHH 
Input transfoom: K:$L(X)>30!(SL(X)<1) X 
LAST EDITED: SEP 16, 1987 


FREE TEXT ANGER MST BE 1-54 CHARACTERS IN LENGIH 
Inpt trensfomm K:$L(X)>541(SL{(X)<1) X 
LAST EDTISD: Sep 16, 1987 


FREE TEXT 9 ANGVER MST BE 1-20 CHARACIERS IN LENGTH 
Input transform: K:$L(X)>20!/SL(X)<1) X 
LAST EDITED: SEP 16, 1987 


POINIER TO SINIE FILE (#1003) 
LAST EDITED: SEP 16, 1987 


FREE TEXT AGHER MUST BE S-10 CHRAPCIERS IN LENGTH 
Irgut transfoom: K:$LiX)>101(SL(X)<5) X 
LAST EDITED: SEP 16, 1987 


FREE TEXT «NEHER MUST Bt 1-50 CORRACIERS IN LANGIH 
Input transfoom: K:SL(X)>501 (SL(X)<1) X 
LAST EDITED: SEP 16, 1987 


1004.7(Add New Entry without Aeking) Multiple 


FREE TEXT «ANGER MUST BE 1-30 CHARACIERS IN LENGIH 
(Multiply ashead) 

Input transfoum: K:SL(X)>30!(SL(X)<1) X 

LAST EDITED: SEP 16, 1987 


OMTE Input traunsfoon: S Wm"E" D “WT S HY K:¥d X 
LAST EITED: AG 25, 1987 


FREE TEXT ANGVER MET BE 1-15 CHARACIDRS IN LENG 
Inpst transfoum: K:SL{X)>15!(SL(X)<1) X 
LAST EDITED: ALG 25, 1967 


SET ; ‘YES’ FOR YES ; ‘ND’ FOR NO 
LAST EDITED: SEP 16, 1987 








DATA DICIICNARY #1004.2 — INOURY COMP AND CLAIMS SLB-FILE CSHRAS/NCHIMS SYSTEM STORED IN “EMELOY( 





DATA NYE GLOBAL LESCRIPTICN 
ELEMENT LOCATION 
1004.7,5 SLPFORT FAYENIS? 06 Ser; "Y’ FOR YES ; 'N’ FOR ND 
LAST EDITED: S&P 16, 1987 
1004.7,6 CRCERED BY THE COLRI? 0;7 SET ; 'Y’ FOR YES ; 'N’ FORO 
LAST EDITED: SEP 16, 1987 
1004.7,7. AMCLNT OF PAENIS 0;8 NMEER TYPE A NUMEER BETWEEN 0 AND 9999.99 
Input transform: S:X{"$" %SP(X,"$",2) 
K:+X’ eX (X??.NL”. "2N) 1 (39999.99) 1(X<0) X 
LAST EDTIED: SEP 9, 1987 
1004.7,8 PER 0;9 SET ; 'M’ FOR MONLY ; ‘Wo POR WEERLY ; 
'B! POR BI-WEEKLY ; ‘A’ POR ANNALLY 
LAST EDITED: SEP 9, 1987 
1004.7,9 STREET ACCHESS 0;5 FREE TEXT = ANSHER MUST BE 1-30 CHARACTERS IN LENGTH 
Input transform: K:SL(X)>301(SU(X)<1) X 
LAST EDITED: SEP 9, 1967 
1004.7,10 cry 0;10 FREE TEX? ANSER MST BE 1-30 CHARACIERS IN LENGIH 
Dyut transfcem: K:$L(X)>301(SL{X)<1) X 
LAST EDITED: SEP 9, 1987 
1004.7,11 SINTE 0;l1 POINIER TO STATE FILE (#1003) 
LAST EDITED: SEP. 9, 1967 
1004.7,12 2IP CLE 0;12 FREE TEXT © FORMAMT: X0000L-J00K OR XK 
; Input transfoom: K:$L(X)>101(SU(X)<5) X 
LAST EDITED: SEP 9, 1967 
1004.2,727 ‘TOTAL YRS CIV SERVICE 704;2 NUMBER «TYPE A WHCLE NUMER BETWEEN 1 AND 50 
Input transfoom: K:4X'K! (3550) 1 (X¢L) 1(X?. £1". INN) X 
LAST EDITED: SEP 9, 1987 
1004.2,727.5 ‘TOINL MOS CIV SERVICE 700;5 NUGER ‘TYPE A WECLE NUM@ER BRIWFPN 1 AND 11 
Input tremsform: K:+X’ eX! (X>LL) 1 (X<1)1(X2.EL"."IN.N) X 
LAST EDITED: SEP 9, 1987 
1004.2,728 EMP ENROLLED IN PHB O704;3 SEY; 'Y’ FOR YES ; ‘N’ RN 
LAST EDITED: AUG 21, 1987 
1004.2,728.1 BAY PERIOD END DOME FOR HES 700;6 DATE Input transfoum: S Wi"f" D “WY S Mey K:Y¢l X 
LAST EDTIED: SEP 9, 1987 
1004.2,729 EMP ENROLLED IN COT LIFE INS 704;4 SEY ; 'Y’ FOR YES ; /N’ FOR ND 
LAST EDTTED: ALG 21, 1987 
1004.2,729.1 LIFE INS CETICN 704;5 Set ; ‘A’ FORA; ‘BY RRB; 'C’ RRC 
LAST EDITED: SEP 28, 1987 
1004.2, 729.2 FREE TEX! «= ASHER MUST BE 3-30 CHAPACIERS IN LENH 


HOW MANY CPT MULTIPLES 704;6 


Input. transfonm: K:$L(X)>30!(SL{X)<3) X 
LAST EDITED: AUG 21, 1987 
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DATA DICTICNARY #1004.2 -— INOURY COMP AND CLAIMS SLB-FILE CSHKGACHDS SYSIEM STORED IN “EMELOY( 


CATA NAWE GLOBAL DESCRIPTION 
ELEMENT LOCATION 
FE a ree need 
1004.2,731 PERSON 1 CNIAXT 70;1 , SET ; 'S’ FOR SUPERVISER ; ’O’ FOR OIER 
LAST EDTIED: SEP 16, 1987 
1004.2,801 REPURCHASE LEAVE 704;1 ST ; "Y’ FOR YES ; 'N’ FOR NOD 
LAST EDITED: ALG 21, 1987 
1004.2,802  STAIE REASON FOR NOT WORKING 801;0 1004.52 WORO-FFOCESSING 
1004.2,806 BAY PECVD DURING COMP 704;7 SET ; ‘'Y’ FOR YES ; 'N’ FOR ND 
: LAST BDTTIED: AUG 21, 1987 
1004.2, COMMISSION & SELF-£MP 812;0 1004.701L (Add New Entry without Asking) Multiple 
1004.2,701,.01 ORES AND HOURS WORKED 0;1 FREE TEXT BCRRAT: MO/YR-YOYR XK HRS (Multiply asked) 


Input tranefioom: K:$L(X)>201(SL(X)<1) X 
LAST EDITED: SEP 16, 1967 


1004. 01,1 NAWE CF ELSINESS 0;2 FRE TEXT ANSAER MUST BE 1-30 CHARACIERS IN LENGIH 
Input tramefoom: K:$L(X)>30!($L(X)<1) X 
LAST EDITED: AUG 28, 1967 


1004.701,1.1 | STREET ACORESS 0;6 FREE TEX? ANGHER MUST BE 1-45 CHARACIERS IN LENG 
: Input transfoum: K:$L(X)>45!(SL(X)<1) X 
LAST EDITED: SEP 8, 1987 


1004.701,1.2 Cty 0;7 FFEE TEX® 9=ANGWER MBST BE 1-23 CHARACTERS IN LEN 
Inpat transform: K:SL(X)>23!(SL(X)<1) X 
LAST EDITED: SEP 8, 1967 


1004.701,1.3 SINE 0;8 FOINIER TO SIMIE FILE (#1003) 
LAST EOPIED: NOV 12, 1987 


1004.701,1.4 ZIP COLE 0;9 FREE TEX? «ANGER MBT BE 5-10 CARRCIERS IN LENGTH 
; Ingut trensfoom: K:$L(X)>10! ($L(X)<5) X 
LAST EXITED: S&P 8, 1967 


1004.2,701,2 SELE-EMPLONEED CR COMMISSION 0;3 SET; 'S’ FOR SELF-EMPLOYED ; ‘C’ FOR COMMISSION 
LAST EDITED: SEP 8, 1967 


1004.701,3 TYPE OF ACTIVITY PERFCHED 0;4 FREE TEXT 9ANGHER MIST BE 1-20 CHRRACIERS JN LANGIH 
Input transfoom: K:$L{X)>20! ($L(X)<1) X 
LAST EDITED: AUG 28, 1967 


1004.701,4 INDYE DERIVED 0;5 , FREE TEX? ASHER MET Bf 1-30 ORFECIERS IN LANG 
Input transform: K:$L(X)>301(SL(X)<1) X 
LAST EDITED: ALG 23, 1987 


1004.2,811 ‘TRAINING REGISTRATION NUMBER 804;1 FREE TEXT AGVER MUST BE 1-30 CHARACIERS IN LENGHH 


Input transform: K:$L(X)>30!(SL(X)<1) X 
LAST EDITED: SEP 16, 1987 
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DAOA DICTICNARY #1004.2 —- INOURY COMP AND CLAIMS SB-FILE CGHRKSACHIMS SYSIEM SICFED IN “EMELOX( 


OXIA NAVE GLOBAL 


DESCRIPTION 





1004.2,811.1 ‘TRAINING SIFEET ADDRESS 804;2 
1004.2,811.2 ‘TRAINING CIIy 604;3 


1004.2,811.3 ‘TRAINING SIMIE - B04;4 


1004.2,811.4 ‘TRAINING ZIP COLE 804;5 


1004.2,811.5 ‘TRAINING CAE OF FEGISIRATION 804;6 
1004.2,812 EMP RECEIVED MONIES FCM CACP 704;8 


1004.2,816 EXPLAIN C&S IN PP HUIWLITE 805;0 
1004.2,1601  ‘TREXIMENT/E2M FOR CAUSE 1600;1 


1004.2,1604 MEDICAL CARE FACILITY 1601;1 
1004.2,1604.1 MED CARE STREET ACORESS 1601;2 
1004.2,1604.2 MED CARE CITY 1601;3 


1004.2,1604.3 MED CARE SINIE 1601;4 


1004.2,1604.4 MED CARE ZIP CLE 1601;5 


1004.2,1605 HISTORY EMELOWEE GAVE COCIGR 1602;0 


FREE TEXT © ANSHER MUST BE 1-54 CHRRACIERS IN LENGIH 
Input transform: K:SL{X)>54!(SL{X)<1) X 
LAST EDITED: SEP 16, 1987 


FREE TEXT «= ANGER MET BE 1-20 GRFRCIENS IN LH 
Input transfomm: K:SL(X)>201(SL(X)<L) X 
LAST EDITED: SEP 16, 1987 


FOINIER 10 SIMIE FILE (#1003) 
LAST EDITED: SEP 16, 1987 


FREE TET ANSWER MST BE 5-10 CHARACTERS IN LENGIH 
Input transfoem: K:S1(X)>10! ($L(X)<5) X 
LAST EDITED: SEP 16, 1967 


OMIE Input transfoon: S Wik"E" D “SOT S Me K:Y<l X 
LAST EDITED: SEP 16, 1987 


Ser ; "Y’ POR YES ; 'N’ FOR NO 
LAST EDITED: AUG 21, 1987 


1004.53  WORD-FROCESSING 


SET ; °A’ FOR AGREE TO FER SCHEDLIE ; 
"B’ POR FURNISH NECESSARY 'TRERIMENT NOT SURGERY; 
'C’ FOR EXAM CR OS FELAIED CALEE & TRENIMENT 
LAST EXITED: ALG 21, 1967 


FREE TEXT ANGER MOST BE 1-30 CRFFCIERS IN LNG 
Input tranafoor: K:SL(X)>301(SL(X)L) X 
LAST EDITED: SEP 16, 1987 


FREE TEXT ROSES ete 1 Cowes Seno 
Input transfoom: K:$L(X)>541(SL(X)<1) X 
LAST EDITED: SEP 16, 1987 


FREE TEX ANGER MBT of 1-20 CRAACIERS IN LAG 
Input transfoon: K:$1(X)>201(SL(X)<1) X 
LAST EDITED: SEP 16, 1987 


FOINIER 10 SIME FILE (#1003) 
LAST EDITED: Sep 16, 1987 


RreE TEX 4ANSVER MST BE 5-10 CHARACTERS IN LENGIH 
Input transfioom: K:SL(X)>10!(SL{X)<5) X 
LAST EDITED: SEP 16, 1987 


1004.54 WORD-FROCESSING. 
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= 


DAA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SLB-FILE CGHERSACHDS SYSTEM STORED IN “EMPLOY( 


OXIA NE GLOBAL 
ELEMENT LOCATICN 





1004.2,1606  PRES/PROOR CONDITION = 1600;3 


1004.2,1606.1 EXPLAIN IN/OIS/OP =: 11603;0 
1004.2,1607 DOC BELIEVE IND WORK-FEL 1600;5 


1004.2,1607.1 DOC EXPLAIN-NOT WORK RELATED 1604;0 


1004.2,1608 REQUIRE HOSPITALIZATION 1600;4 


1004.2, 1508.1 ADMISSION OXIE 1600;6 


1004.2,1608.2 DISCHARGE ONXIE 1609;7 


1004.2,1609 ADDITIONAL HOSPITALIZATION REQ 1600;8 


1004.2,1610 SURGERY REQUIRED 1600;9 


1004.2,1611 SURGERY DONTE 1600;20 


1004.2,1612 OTHER TREXIMENT PROVIZED 1605;0 
1004.2,1613 PERMANENT EFFECIS 1606;0 


1004.2,1614 OATE OF IST EAM 1600;11 


1004.2,1615 ‘TREXIMENT DAXIES 1607;0 


1004.702,.01  ‘TREXIMENT CAIES 0;1 
1004.2,1615  DRXTE DISCHARGED FROM IRERIMENT 1600;12 


1004.2,1617 OMTE RESUME LIGHT WORK 1600;13 


CESCRIPTICN 





SET ; ‘Y’ FOR YES ; 'N’ POR NO 
LAST EDITED: SEP 28, 1987 


1004.55 WORD-PIOCESSING 


SET ; ‘Y’ FOR YES ; 'N’ FUR NO 
LAST EDITED: SEP 28, 1987 


1004.55 WORD-PROCFSSING 


SET ; ‘Y’ FOR YES ; ’N’ POR NO 
LAST EDITED: SEP 28, 1987 


DATE Input transfom: 5 Wle"E" D “WI S XY K:¥<1 X 
LAST EDITED: AG 21, 1967 


ONE Inpst transform: S $0l="2" D “Wr S Mey K:Y<l X 
LAST EDITED: AG 21, 1987 


SET ; ’Y’ FOR YES ; 'N’ PORNO 
LAST EDITED: SEP 28, 1987 


FREE TEX «=MNGHER MOST BE 2-30 CHARACIERS IN JENGIH 
Ing transfome: K:SL(X)>301(SL(X)<2) X 
LAST EDITED: AUG 21, 1987 


DATE Input transfoon: S WIk"E" D “MOT S Xe¥ K:Y<1 X 
LAST EDTIED: AG 21, 1987 


1004.57 WORD-PROCESSING. 
1004.58  WORD-PROCESSING 


CATE Innkt transfoom: S WIle"E" D “WI S Mey K:YC1 X 
LAST EDITED: AUG 21, 1987 


1004.702 DOMME (Add New Entry without Asking) Multiple 


DAME Input transfoom $ Wie"s" D “ROT S Me K:Ycl X 
LAST EDITED: SEP 16, 1987 


CAIE Ink transfoom: S WI6"E" D “MOT S HY K:Ycl X 
LAST EDITED: AG 21, 1987 


CATE Input transfoom: S WIk"E" D “WT S XY KYL X 
LAST EDITED: AUG 21, 1987 
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DATA DICIICNARY #1004.2 — INOURY COMP AND CLAIMS SB-FILE CGHRG/ACHDS SYSIEM SICFED IN “EMELOx( 


COXA 8 NE GLOBAL 
ELEENT LOCATION 


DESCRIPTION 





1004.2,1618 DAQE RESUME REG WORK = 1600;14 
1004.2,1619 EXPLAIN EMP WORK LIMTIPGIONS 1608;0 
1004.2,1623  AUIHORIZING CFFICIAL NAME 1610;1 


1004.2,1623,.1 AJIHORIZING CFFICIAL TTILE 1610;2 


1004.2,1701  OATE OF EXAM 1700;14 
1004.2,1702 JOB FEQUIRES DRIVING = 1700;1 


1004.2,1702.1 SPECIFY VEHICLE 1700;9 


1004.2,1703 JCB REQ CRERATING MACHINERY 1700;2 
1004.2,1703.1 SPECIFY MACHINERY 1700;10 © 


1004.2,1704 HRS FER DAY EP ORES 1700;3 


1004.2,1705 OAYS PER WEEK EMP WORES 1700;4 


1004.2,1705 DOES DOC AGERE W/ PP SIMEMT 1700;5 


1004.2,1706.1 EMPLAIN WHAT EMP TOLD YOU 1701;0 
1004.2,1707 DESCRIBE CLINICAL FROINS 1702;0 
1004.2,1708 OFAQOSIS (INARY) 1703;0 


ONE Ino transform: S Wik"E" D “WY S WY K:Ycl X 
LAST EDITED: AUG 21, 1967 


1004.59 WORD-PFOCESSING 


FREE TEXT «ASHER MST BE 1-30 GRFACIENS IN LAG 
Input transfoum: K:$L(X)>30!(SL(X)<1) X 
LAST EDITED: SEP 16, 1987 


FREE TEX ANSKER MET EE 1-30 
Inpat transform: K:$L(X)>30!(SL{X)<1) X 
LAST EDITED: SeP 16, 1987 


INGE Inpit transfoom: $ WWE" D “WE SMe YC X 
LAST EDITED: SEP 9, 1967 


Ser ; "Y’ POR YES ; ‘N’ POR ND 
LAST EDITED: SEP 28, 1987 


FREE TEXT ANGER MOST BE 1-20 CHARACIERS IN LENGIH 
Input transform: K:$L(X)>201(SL(X)<1) X 


LAST EDITED: AUG 28, 1967 


Ser; ‘Y’ FOR YES ; ‘N’ FOR ND 
LAST EXITED: SEP 28, 1987 


FEE TEXT «=AASHER MOST BE 1-20 CHARACIERS IN LANGHH 
Ingx transform: K:SL(X)>201(SL(X)<1) X 
LAST EDITED: AUG 28, 1987 
NEER «TYPE A NUMBER BREINEEN 1] AND 8 
Inpt transfoom: 
Ke+X! eX! (308) 1(XC1) 1(X2.21"."3N.N) X 
LAST EDITED: AUG 21, 1987 


NUGER TYPE A WHOLE NUMBER BIWEEN 1 AND 5 
Input transfoem: K:4K’X1 (905) 1 (XL) 1(X2.E1"."IN.N) X 
IAST EDITED: AUG 21, 1987 


StY ; ‘Y’ FOR YES ; ‘N’ RRND 
LAST EDITED: SeP 23, 1987 


1004.706 WORD-PFOCESSING 
1004.6 WORD-FROCESSING 
1004.61 WORD-PROCESSING 
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DATA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SB-FILE CGHARGACHIS SISIEM STCFED IN “EMPLOY( 


OATA 
ELEMENT 


NAME GLOBAL 


LOCATIGN 


CESCRIPTICN 


reese EC EASA ETOAC EC ESSE SAO SASSISSON ttt ASST 


1004.2,1709 DIAGNOSIS (CIHER COND) 1704;0 


1004.2,1710 CAN EMP RETURN TO REG WORK 1700;6 


1004.2,1710.1 FULL CR EARIMTE 1700;7 


1004.2,1710. LLIBART-TIME HRS PER CAY 1700;16 
1004.2,1712 DESCRIBE FURIHER RESTUCITONS 1706;0 
1004.2,1713 ‘TOTAL DISABILITY FRO: 1707;1 
1004.2,1713.1 TOTAL DISABILITY 170752 
1004.2,1714 BARTIAL DISABILITY FROM 1707;3 


1004.2,1714.1 ERRTIAL DISABILITY 10 1707;4 


1004.2,1715 ADVISED EMP CAN RESUME WORK 1700;11 


1004.2,1715.1 DATE OF ADVICE. 1700;12 
1004.2,1716 NEXS EXAM CATE 1700;13 
1004.2,1720 USUAL WORK ACTIVITY =: 1709;0 


1004.703,.01 USUAL WORK ACTIVITY 0;1 
1004.703,21 DESCRIPTION OF ACTIVITY 0;2 
1004 .703,2 CON/INIER 0;3 


C-45 


1004.62 WORD-FROCESSING 


SET ; ‘Y’ FOR YES ; 'N’ FOR NO 
LAST EDITED: SEP 28, 1987 


SET ; ‘FY FOR FULL TIME ; ’P’ FOR PART TIM ; 
"f' FOR FULL TO® ; ’p’ FOR PART IDE 
LAST EDITED: AG 21, 1987 


NMEER THEAWIIZENMEREEIZENI ADS. 
Input transfoom: K:4K’=K! (308) 1(X¢L) {(X?.E1". "1N.N) X 
LAST EDITED: AUG 21, 1967 

1004.707 WORD-PROCESSING 


DXIE Inpt transfoon: § Wl"E" D “WT S Hey R¥Cl X 
LAST EDITED: SEP 16, 1967 


DATE Inuet transform: S$ Wle"E" D “MOT S MeY K:Y<1 X 
LAST EDITED: SEP 16, 1987 


DAIE Input transfoom: S$ tOle"E" D “Wr S Me K:Y¥<l X 
LAST EDIMD: SEP 16, 1987 


DATE not transfonn: S Wle"E" D “HOT S MeY K:¥<l X 
LAST EDITED: SEP 16, 1987 


Set ; ‘Y’ FOR YES ; 'N’ PORNO 
LAST EDTIED: SEP 28, 1987 


OXTE Inast transform: S Wile"2" D “WT S Mey K:Y<1 X 
LAST EDITED: AG 21, 1987 


CMTE Inpt transforma: S Wme"2" D “WI S Mey KY X 
LAST SOMIED: AUG 21, 1987 


1004.703 KENIER Multiple 


FOINIER ‘3D ACTIVITIES FILE (#1007) (Multiply asked) 
LAST EDITED: SEP 16, 1987 


FREE TEX® «=ANGVER MBT BE 1-50 CARACIERS IN LENGIH 
Inpxk transform: X:SL(X)>501(SL(X)<1) X 
LAST EDIMD: NOV 12, 1967 


ST ; °C KR CNTINOS ; ‘I’ AR INENITIENT 
LAST EXT: SEP 9, 1987 








DRA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SLB-FILE CGHARSACHIIS SYSTEM SICRED IN “EMELOY( 


ONT. NEVE GLOBAL 





DESCRIPTION 

ELEMENT LOCATICN 

1004.703,3 HOLRS PER DAY 0;4 NMEER TYE A WILE NUGER BEIHEEN 0 AnD 10 
Input transform: K: SMC (2010) 1240) Xe -EL*, "IN.N) X 
LAST EDITED: SEP 9, 1987 

1004.703,4 DEGREES F 0;5 NIGER ‘TYPE A WOLE NUMBER BETWEEN 0 AND 200 
Input transfoum: K:+X’=X! (35200) 1(X<0) §(X?.EL"."IN.N) 2 
LAST EDITED: SEP 9, 1967 

1004.703,5 DBA +6 NMEER ‘TYPE A WILE NIMEER BEIMEEN 0 AND 150 


1004.2,1721 ALTERED WORK ACTIVITY 1721;0 
1004.704,.01 ALTERED WORK ACTIVITY 0;1 


1004.704,1 DESCRIBE ACTIVITY 0;2 


1004.704,2 CONT/INIER 0;3 
1004,704,3 HOLES PER TAY 034 
1004 .704,4 DEGREES F 0;5 
1004.704,5 CRA 0;6 


1004.2,2003 ORNTE OF MOST RECENT EXAM 2006;1 
1004.2,2004 EMP ORALLY DISABLED FOR WORK 2006;2 


1004.2,2005 DESCRIBE PRESENT DMAIPENT 2007;0 


Input transfoum:K:+X’=K! (25150) 1(X<0) !(X?.£L"."IN.N) X 
LAST EDITED: SEP 9, 1987 


1004. 70ME0INIER Multiple 


FOINIER TO ACTIVITIES FILE (#1007) (Multiply aslead) 
LAST EDTIED: SEP 16, 1987 


FREE TEXT ANSVER MST BE 1-50 CHARACIERS IN LENGIH 
Inast transfomm: K:SL{X)>50!1(SL{X)<1) X 
LAST EDITED: NOV 12, 1987 


SET ; 'C’ POR CONTINUIS ; ‘I’ KR INIEROTIENT 
LAST EDITED: SEP 9, 1987 
NEER - TOE A WKLE NOEER EEDEEN 9 MD 10 


Inout transfoum: K:+X’=K! (3010) 1(X<0) 1 (X?.E1". INN) 3 
LAST EDITED: SEP 9, 1987 


NEER TYPE A WCE NUMEER BEDWEEN 0 AND 200 
Inu. transom: R:+X"=Kt (10200) 1(X¢0)1(37-EL"."IN.N) 2 
LAST EDITED: SEP 9, 1967 

NMEER TYPE A WHOLE NUMBER BETREEN 0 AND 150 


Input transforms: K:4X'@X! (90150) {(X0) 1 (X71. "INN) > 
LAST EDITED: SEP 9, 1967 


DATE Input transfoom: § Wik"E" D “WIE S HY K:vd X 
LAST EDITED: AG 27, 1987 


SET ; ‘Y" FOR YES ; 'N’ FOR ND 
LAST EDITED: SEP 28, 1987 


1004.63 WORD-FROCESSING 


C=46 














DADA DICTTONARY &#1004.2 — INOURY COMP AND CLAIMS S.B-FILE CGHRKS/ACHIMS SYSTEM STICFED IN “EMPLOY( 





DACA NVE GLOBAL TESCRIPTICN 

ELEMENT LOCATICN 

1004.2,2006  20A DIAGNOSIS 2008;0 1004.64 WORD-FROCESSING 
1004.2,2007 ‘TREROMENT/FREQLENCY OF ILL/INJ 2009;0 1004.65 WORD-FROCESSING 
1004.2,2009 UNRELATED DISABILITIES 2040;0 1004.66 WORD-FROCESSING 
1004.2,2010 WILL LESAAIL GD PAST 90 DAYS 2006;3 SET ; ’Y’ POR YES ; 'N’ FOR ND 


LAST EDITED: SEP 28, 1967 


1004.2,2010.1 EXPECIED DATE REIURN WORK 2006;4 OME Inpt transfoom: S Wik"E" D “MOT S Ne K:Y<l X 
LAST EDITED: ALG 27, 1987 
1004.2,2011 WHEN/WHAT CRN EMP ERRITALLY [0 


2111 ;0 1004.67 WORD-PFOCESSING 
1004.2,2013 20A PROGNOSIS 2000;0 1004.68 WORD-FFOCESSING 
1004.2,2017 ANY PERMPAENT EFFECTS 2006;5 Set; "Y’ KR YES; 'N 


LAST EDITED: SEP 28, 1987 


1004.2, 2030 REASCN FOR REFERRAL © 2006;6 SED ; ’C’ POR CONSLLINTICN; 'T’ POR TRENIMENT; 
‘c’ FOR CONSULTATION ; ‘t’ PCR TREXIMENT 
LAST EDITED: AUG 21, 1967 


1004.2,2040 ICD-9 CODE PCR PRE-EXISTING 2006;7 FREE TEXT ANSHER MUST BE 6 CHARACTERS IN LENGIH 


Input transfomn: K:$L(X)>61 (SL(X)<6) X 
LAST EDITED: SEP 16, 1987 


1004.2,2040.1 I0D-9 CCOE POR OFAGNSIS 2006;8 FREE TEXT ANSVER MUST BE 6 CHARACIERS IN LENGHH 
Input transfomm: K:SL({X)>6! (SL{(X)<6) X 
LAST EDITED: SEP 16, 1987 


1004.2,2201 OUTY STATION AT REACLRFENCE 210;4 FOINIER TO OWCP AGENCY COLES FILE (#1062) 
LAST EDITED: SEP 23, 1987 


1004.2,2201.1 REQURRENCE ADDRESS 210;5 FREE TEXT ANGER MT BE 1-54 CHARACIERS IN LENGHH 
Inpge transform: K:SL(X)>54!($L(X)<L) X 
LAST EDCIED: SEP 23, 1987 


1004.2,2201.2 RECURFENCE CITY 220;6 FREE TEXT «= MMEVER MBT BE 1-20 CHARACTERS IN LENGH 
Inpt tranefcom: K:SL(X)>20! (SLX) <1) X 
LAST EDITED: SEP 23, 1967 


1004.2,2201.3 RECURRENCE SINIE 210;7 FOINIER 10 SIMIE FILE (#1003) 
LAST EDITED: SEP 23, 1987 


1004.2,2201.4 RECURFENCE ZIP QE = 210;8 FREE TEXT «FORMAT: NANAN-ANNN OR NAN 


Ingt transfom: 
R:SL{X)>101 (SL(X) <5) 1” (X24N1(X2SNL"-"4N) ) X 
LAST EDITED: SEP 23, 1987 








DATA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SIB-PILE CSHRES/NCHIMS SYSIEM SICRED IN “EMPLOY( 


TAA 8 &8=—NEE GLORAL 
ELEMENT LOCATION 


CESCRIPTION 





1004.2,2202  ORTE/TIME OF FELRRENEE 210;1 


1004.2,2202.1 RECURRENCE BASE PAY = 214; 


1004.2,2202.2 RECURRENCE BASE BASIS 214;2 


1004.2,2202.3 RECURRENCE SUBSISTENCE 214;3 


1004.2,2202, 35FCLRFENCE SLB BASIS 214;4 


1004.2,2202.4 FECURRENCE CLARIERS = 214;5 


1004.2,2°72. 4SRECURRENCE CLARY BASIS 214;6 


1004.2,2202.5 RECURRENCE OTHER PATE 214;7 


1004.2,2202.SSREC OIHER BASIS 214;8 
1004.2,2202.6 REC OTHER SPECIFY 214;9 


1004.2,2203 RAC D/T STOPPED WORK Z10;9 


1004.2,2203.1 FEC WORK STOPPED BASE RAGE 213;1 


DATE X—CAN'T BE ALTERED EXCEPT BY PFOGREMER 

The date must be after the Date of Injury! (Req2c<d) 
Input transfoom: S Wi\"El" D “MT S Xe K:Yd ¥, 
LAST EXITED: NW 2, 1987 


(NMEER TYPE A NUMER BETWEEN 0 AND 999999.99 


Inpt transfomm: S:X["S" #6P(X,"$",2 
Kz-4X? XG (X"2.NL"."2N) 1 (20999999.99) 1(XC0) X 
LAST EDITED: S=P 30, 1967 


S2T; "H’ FOR HOURLY; ’W’ FOR WEERLY; 'M’ FOR MONIHLY; 
'B’ FOR SI-MONTHLY ; ‘A’ POR ANNUALLY ; ‘D’ FOR DAILY 
LAST EDITED: SBP 30, 1987 


NUMBER ‘TYPE A NUMBER BETWEEN 0 AND 999999.99 
Input transform: S:X["$" #6P(X,"$",2) 
K3+X'X&(X"? NL". "2N) f (X5999999.99) 1(XKO) X 
LAST EDTIED: SEP 30, 1997 ~ 
SET; 'H’ BOR HOURLY; ‘W’ POR WEESLY; 'M’ FOR MNIELY; 
‘B’ POR BI-MCWIRLY ; ‘A’ POR ANNLALLY ; ‘D’ FOR DAILY 
LAST EDITED: SEP 30, 1987 


NUMPER TYPE A NUMER BETAEEN 0 AND 999999.99 
Input trenefoom: S:X{"$" %6P(X,"$",2) 
Ri4X!eKG(X'? NL" "2N) | (¥999999.99) 1(X0) X 
LAST EXTIED: SEP 30, 1987 


SET; ‘H’ 30R HOURLY; ‘W’ POR WEEKLY; ‘M’ POR MONIHLY; 
"B’ POR BY-MCNIELY ; ‘A’ FOR ANNUALLY ; ‘DY FOR DAILY 
LAST BELTED: SEP 30, 1987 


NUMEER «TYPE A NUMBER BETREFN 0 AND 999999.99 
Input transfoom: S:X["$" G(X, "$",2) 

K2-4X' G(X" ?.NL®. °2N) 1 (X0999999.59) 1(X<0) X 
LAST EDTIED: SEP 30, 1987 


SET; 'H’ FOR HOURLY; ‘W’ FOR WEERLY; ‘M’ FOR MCNIHLY; 
"BY FOR BI-MONIHLY ; ‘A’ FOR ANNLPLLY ; "D’ POR DAILY 


~ LAST EDITED: SEP 30, 1967 


FREE TEXT ANSWER MOST BE 1-30 CHARACTERS IN LENGHH 
Ingx transfoon: K:$L(X)>30!(SL/X)<1) X 
LAST EDITED: SEP 20, 1987 


DATE Input transfoom: § We"ZI" D “WT 3 YY Kya X 
LAST EXHTED: SEP 30, 1967 


NUMEER TYPE A NUMBER BETNEEN 0 AND 999999.99 
Input transfonm: $:X{"S" #6P(X, "$",2) 

K+" Xi ("2 .NL”."2N) !(30999999.99) 1 (XO) X 
LAST EDTIMD: SEP 30, 1987 


C-48 








OAIA DICTIONARY #1004.2 — INOURY COMP AND CLAIMS SB-FILE CSHGACHDS SYS STORED IN “EMELOY( 


ORTA NYE GLOBAL 
ELPENT LOCATICN 
1004.2,2203.2 REC WORK SICPPED BAS BASIS 213;2 


1004.2,2203.3 REC WORK SICEPED SLBSISIENE 213;3 


1004.2,2203.35REC WORK SICPPED SLB BASIS 213;4 


1004.2,2203.4 REC WORK SICPPED CLARIEFS 213;5 


1004.2,2203. 4SREC WAR SIPPED CLART BASIS 213;6 


1004.2,2203.5 REC WORK STOPPED OTHER RATE 213;7 


1004.2,2203.SGREC WORK SICPPED OIHER BASIS 213;8 


1004.2,2203.6 REC WORK SICPPED OIHER SEECIFY 213;9 


1004.2,2204 FECURRENCT Df PAY SICEFED 210;10 
1004.2,2205 REC O/T RETURNED 0 WORK 210;1) 


1004.2,2206 DID CAC AUDCRIZE TRENXIMENT 210;2 


CESCRIPTICN 


AL LES LS SE SSS SS SS SS STIS Se aspen rssh cnerteapesripeses 


SET ;/H" FOR HOURLY ; ‘W" FOR WEERLY ; 'M’ FOR MONIHLY ; 
"B’ FOR SI-MONIHLY; ‘A’ POR ANNAALLY ; 'D’ FOR DAILY 
LAST EDITED: SEP 30, 1967 


NUMBER TYPE A NUMBER GETHEEN 0 AND 9199999.99 
Input transform: S:x["S" %»6P(x,"$",2) 

K24X! sXi(X°? NL”. "2N) 1 (95999999.99) 1(X<0) X 
LAST "DIT: SEP 30, 1987 


SET; "H’ FOR HOURLY ; ‘W’ POR WEEKLY ; 'M’ POR MONIMLY ; 
"B! POR BI-MOWIHLY ; ‘A’ POR ANNLALLY ; 'D’ FOR DAILY 
LAST EDITED: SEP 30, 1987 


NUMEER ‘TYPE A NUMBER BEINEEN 0 AND 999999.99 

Input trensfoom: S:xX{"S" %e6P(X,"$",2) 
K:+X’=XG(X"?.NL”."2N) 1 (30999999.99) $ (<0) X 
LAST EDITED: SEP 30, 1967 


SET; ‘H’ POR HOURLY ; ‘W" FOR WEEKLY ; ‘'M’ FOR MONTHLY ; 
"B’ FOR BI-MONIHLY ; ‘A’ POR ANNLALLY ; ’D’ POR DAILY 
LAST EDITED: SEP 30, 1987 


NUMBER TYPE A NUMBER BETHEEN 0 AND 999999.99 
Input transfooms $:X{"S" %=6P(X,"$",2) 
R4X' XE (X"2 NL". "2N) | (X>999999.99) 1(X<0) X 
LAST EDITED: SP 30, 1967 


SET; ‘H' FOR HOURLY ; ‘W" FOR WEEKLY ; ’M’ BOR MONTHLY ; 
"B! POR SI-AONIHLY ; ‘A’ POR ANNLALLY ; 'D’ FOR DAILY 
LAST EDITED: SP 30, 1967 


FREE TEXT AMER MST BE 1-30 CHARACTERS IN LENGTH 
Inpt transform €:9(X)>30!1(SL(X)<1) X 
LAST EDITED: S&P 30, 1987 


DATE Input transfonm: S Wi"FI” D “MOT S we K:Y<] X 
LAST EDITED: S8P 30, 1987 


DATE Input transfoom: S Wl"EI" D “MT S Mey K:¥<1 X 
LAST EDITED: SP 30, 1967 


SET ; 'Y’ FOR YS ; 'N’ FOR NO 
LAST EDTIED: SEP 28, 1987 








OAUA DICTIONARY #1004.2 — INOURY COMP AND CLADS SB-FILE CGHRESACHIDS SISIEM STCRED IN “EMELCY( 


OKITA NYE GLOBAL 
ELEMENT LOCIIGN 





1004.2,2207 OTE 1ST TREXIMENT AFIER FEQLR 210;3 


1004.2,229 S&P SINIEMENT AT FER 211;) 
1004.2,2217 WORK INPO RING CRAP 2122;0 
1004.705,.01 CATES & HOURS WORD 0;1 


 1004.705,1 FAY RAE 0;2 


1004.705,2 TOTAL AMOUNT EARNED 0;3 


1004.705,3 TYPE WORK PEFFORYED ° 4 
1004.708,4 EMPLOYER NAME 0;5 
1904.705,5 EMPLOYER SIFEET ACORESS 0;6 
1004.705,6 EMPLCYER CITY/SIME/ZIP 0;7 


DESCRIPTION 


DATE X%—-CAN'T BE ALTERED EXCEPT BY PROGAAMER 
‘the date mst be after the Date of Injury! 
Se 
LAST EDITED: CCT 25, 1967 — 


1004.69  WORD-FROCESSING 
1004.705 Multiple 


FREE TEXT. ANGER MBT BE 1-30 CARACIERS IN LANG 
Inpt transfoom: R:x{""""1(SA(X}a45) X_ 

I SOX) K:SL(X)>301(SL{X)cL) X 

LAST EDITED: SEP 16, 1967 


FREE TEXT ANSHER MUST BE 1-30 CHARACIERS IN LENSIH 
Input transfoon: K:$L(X)>30!(S$L(X)<1) X 
LAST EDITED: SEP 1, 1987 


NUMEER TYPE A NUMBER BEIKEEN 0 AND 99999 
Input transform: S:x1"$" %GP(X, "$",2) 
K:+X'eXE(X’? NL, AN Cos) CR) x 
LAST EDTTED: SEP 1, 1987 


FREE TEXT ANEHER MOST BE 1-20 CHARACIERS IN LENGHH 
Input transform: K:SL(X)>201(SL(X)<L) X 
LAST EDITED: SEP 1, 1967 


FREE TEXT ANSAER MOST BE 1-30 CHAAACIERS IN LENGIH 
Input. transfoon: K:$L(X)>30!(SL{X)<1) X 
LAST EDITED: SEP 1, 1967 


FREE TEXT ANSHER MST BE 1-30 CHARACIERS IN LENT 
Inp& transfoon: K:$L(X)>30!(SL{X)<1) X 
LAST EDITED: SP 1, 1987 


FREE ‘TEXT ANSKER MST BE 1-30 CHARACTERS IN LENGTH 


Input transform: K:(X)>30!(SL{(X)<1) X 
LAST EDITED: SEP 1, 193 


C+50 . 











FILES FOINIED TO 
ACCIDENT (#1025) 
ACTIVITIES (#1007) 


ADOUDICATICN SIKIUS (#1061) 
AGENCY UNIT (#1074) 


AGENT OF ACCIDENT (#1068) 
BODY PART (#1018) 

CASE OF INURY (#1026) 
CLAIM TYPE (#1029) 

FOR'S (#1002) 


NOX (#1017) 
CCOLENTICN (#1001) 


OSHA INOLRY COLES (#1057) 
CHCP AGENCY COLES (#1062) 


ON REFCRTING CEFICE (#1063) 
FAY STNILS (#1093) 

SOURCE OF INOURY (#1027) 
SIMIE (#1003) 





FIELDS 
TYE OF ACCICENT (#112) 


USUAL WORK ACTIVITY: USUAL WORK ACTIVITY (#.01) 
ALTERED WORK ACTIVITY:ALIERED WORK ACTIVITY (#.01) 


ADADICATION SINIUS:ADXDICATION SIATUS (#.01) 


AGENCY (#11) 
AGENYY UNIT (#11.5) 


AGENT OF ACCIDen (#127) 
BOOY PART CLE (#100) 
CAUSE CF INLURY (#120) 
CLAIM TYPE (#202.5) 


CLAIM FORM (#.01) 
CLAIM FORM LAST RECEIVED (#208) 
CLAIM FORM NEXT (#209) 


NAILRE OF INOURY COLE (#101) 


COOLERTION (#15) 
OTHER DEPEND CCCLEATTON (#540) 
DEFEND SPOUSE COQUERCTON (#551) 


TNOURY CEHA COLE (#102) 


DUTY STNTTON (#13) 
DUTY STADION AT RECURRENCE (#2201) 


REPORTING OFFICE ($14) 
BAY STPOUS (#21.5) 
SOURCE OF INARY (#126) 


SINIE (#9) 

"UTY SIRTION SIMIE (#13.6) 

FO SIME (#14.03) 

DOSS SINTE (#400.3) 

RP SINIE (#401.3) 

STRQE OF SROLEE (#502.3) 

OTHER LEPEND STATE (4504.2) 
STAGE OF PERSON PAYING (4517.03) 
STATE OF EMPLOYER (4548.6) 
SINTE OF PERSON SIGNING CASB (6555.2) 
ATICREY SIME (9609.3) 

STAGE OF NEXT OF KIN (4611.3) 





STFESSR (#1083) 








VA SINTE (#710.4) 

OTHER ANNUITY SIME (4714.6) 
TRAINING SIME (4611.3) 

MED CARE SIAIE (#1604.3) 

FECLEFENCE SIKIE (#2201.3) 

WIINESS INFCRAATICN: SIME (43) 
THIRD PARTY:SINIE (#3) 

CHILDREN OF THIS MARRIAGE:SINIE (#5) 
CHILOREN PRIGR MARRIAGE: STRIFE: (45) 
CHILD & LEGAL GUARDIAN:GUAADIAN’S SIXIE (#4) 
OTHER DEFENGENIS:SINIE (#5) 
DEPEMCENT INPO:SIKTE (#11) 
COMMISSION & SELE-EMP:SIRGE (#1.3) 


STFESSOR INCLVED INOLRY (#132) 
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—, 

OXIA DICITONARY #1005 — ICC FILE CGHRKG/NCHIDS SYSIEM SICFED IN “IC 
OXTA NWE GLOBAL CESCRIPIICN 
ELEYENT LOCATICN 





"TICENTIFIED’ BY NAME 
‘FOINIED TO’ BY THE ‘CASE SERIAL NUMBER’ FIELD OF THE ‘COP ONIA’ FILE 
"FOINIED TO’ BY THE ‘CASE SERIAL NUMBER’ FIELD OF THE ‘COMPENSATICN BAY’ FILE 


CROSS-REFERENCED BY: COCUBATION(AC), TYPE OF ACCIDENTYAD), SOURCE OF INOURY(AE), NATURE OF DOURY CCOE(AF), 


TNOURV/TLLNESS ORTE & TIME(AG), NAME(C), INOURY/ILLNESS CME & TOE(D), TYPE OF BAY RECEIVED(P1), 
ONTE IMPLEMENIED( P2) 


1005, .01 CASE SERIAL NUMEER O;1 NUMBER TYPE A WHOLE NMBER BETINEEN 1 AND 99999999 


(Required) 
Input transfomm: 


C-53 











1005,13.9 


1005,14 


1008,14.02 
1005,14.02 


1005,14.03 
1005,14.04 


1005,14.05 
1005,14.055 
1005, 14.06 
1005,14.07 
1005,14.08 


1005,14.5 


1005,15 


CGA STTE CLE 9;10 


REFORIING CEFICE 10;1 


FO ALCRESS '10;2 
FO CIIY 10;3 
FO SINE 10;4 
FO ZIP OLE 10;5 


FOINT OF CONIACT 10;6 


FO TITLE ew 
RO AE 10;7 
FOC EXTENSICN 10;8 
FOC AUTON 10;9 


EMPLOYEE COST CENTER «= 2;4 


COOURNTICN 3;1 


-DRIA DICTIONARY #1005 — IOC FILE CGHREG/NCHD'S SYSTEM SICFED IN “ICC{ 

OXIA NAVE GLOBAL DESCRIPTION 

ELEMENT LOCATICN 

eeepc i OS A TT cS A a SSS 
1005,13.7 DUIY SIRTICN ZIP CLE 938 FREE TEXT ANSWER MUST BE 5-10 CHARACIERS IN LENGIH 


Input transfoum: K:SL(X)>101(SLAX)<S) X 
LAST EDITED: SEP 15, 1987 


FREE TEXT ANSWER FLT BE 1-9 CARRCIESS IN LENG 
Input transfomn: K:SL(X)>9!(SL/X)<L) X 
LAST EDITED: SEP 15, 1967 


POINIER TO CACP REFORTING OFFICE FILE (#1063) 
LAST EDITED: SEP 15, 1987 


FREE TEXT ANSWER MOST BE 1~54 CHAAACIERS IN LENGIH 
Input transfomm: K:9L(X)>541(SL(X)<1) X 
LAST EDITED: SEP 17, 1967 


FREE TEXT ANSHER MST BE 1-20 CHARACIERS IN LENGIH 
Input transfoem: K:SL(X)>201(SL(X)<1) X 
LAST EDITED: SEP 15, 1967 


FOINIER TO SIATE FILE (#1003) LAST EDITED: Sep 15, 1987 


FREE ‘(EXT ANSVER MST BE 5-10 CHARACTERS IN LENGIH 
Ingut transform: K:$L(X)>10!(SL(X)<S) X 
LAST EDIIED: sep 15, 1967 


FREE TEXT ANSVER MST BE 1-30 CHARACIERS IN LENGIH 
input transfoem: K:$L{X)>30! (SL(X)<1) X 
LAST EDITED: SEP 15, 1987 


FREE TEXT ANSWER MST BE 1-30 CUARACIERS IN LENGIH 
Ings trensfoom: K:$L(X)>301(SL{X)<1) X 
LAST EDITED: StP 15, 1967 


FFEE TEXT ANSKER MIST BE 10-13 CHARACTERS IN LENGIH 
Input transfoum: K:SL(X)>13!(SL(X)<10) X 
LAST EDITED: SEP 15, 1987 


FREE TEXT ANSMER MIST BE 1~4 CHARACIERS IN LENGIH 
Input transform: K:SL(X)>41(SLAX)<1) X 
LAST EDITED: SEP 15, 1987 


FRE TEXT ANSWER MOST BE 7-13 CHARACIERS IN LENGIH 
Inpx transfoum: K:$L(X)>13!(SL{X)<7) X 
LAST EDITED: SeP 15, 1987 


FREE TEXD ANGKER MIST BE 1-6 CHARACIERS IN LENGIH 
Inpt transform: K:SL(X)>61(SLAX)<L) X 


POINTER 1) CCOUERIION FILE (#1001) (Required) 
LAST EDITED: AUG 28, 1987 
CROSS-FEFERENCE: 1005°AC MNES 
1)= I SX) ,X’="" S:$0(“DIZ(1001,X,0) ) 
SPU “TOC(OA, 3) U,.2)=SP{ Miz (1001, X,0) 50,1) 
2)e S SP(“ICCIIA, 3) ,U,2)—"" 


C=54 








CRIA DECTICNARY #1005 — ICC FILE CSHREG/NCHIMS SYSIEM 


CRIA 


ELEMENT 


NE 


LOCATION 


SIED IN “IC( 





1005,24 


1005, 25 


1005, 26 


1005,27 


1005, 30 


1005, 31 


1005, 32 


1005, 33 


1005, 34 


4.005, 35 


1005, % 


1005, 37 


1005, 38 


1005, 50 


FEI COE 


FEHB CCIE 


PRIMARY SLUFERVISER 


SECNERRY SUPERVISE 


PREMILM FAY 


PREMILM FAY BASIS 


NIGH? BAY 


NIGHT BAY BASIS 


SUNCAY FAY 


SUNDAY BAY BASIS 


ODER FAY 


OTHER BAY BASIS 


OTHER FAY SPECIFY 


WIIESS NYE 


3;2 


3;13 


3;14 


3;15 


22;1 


12;2 


12;8 


12;9 


4;0 


FREE TEX? ANGER MST BE °~15 CHARACIERS IN LENG 
Input transfoom: K:SL(X)>15!(SL(x)<1) X 


FREE TEXT ANSVER MST BE 1-15 CHARACTERS IN LENGIH 
Input transfoum: K:SL(X)>15! (SL(X)<1) X 


FREE ‘TEXT ANSWER MST BE 1-30 CHARACIERS IN LENGIH 
Inpx transform K:9L(X)>30!1(SAX)d) X 


FREE TEXT ANGER MOST SE 1-30 CHACIERS IN LENH 
Input transform: K:SL(X)>301(SL(X)c1) X 


NUMBER THE A NUMBER BEIWEEN 0 AND 999999.99 
Int transfoum S:X{"$" 6P(X,"$",2) 
Kr4X' SEX! 7 NL® ."2N) 1 (95999999 .99) 1 (X<0) X 
LAST FOETED: CCT 17, 1967 


Set; ‘W POR HOLLY; ‘W FOR WEEKLY; 'M’ PCR MNDLY ; 
‘B’ FOR BI-WERKLY ; ‘A’ FOR ANNUALLY ; 'D’ POR CALLY 
LAST EQETED: CCT 17, 1987 


NUMBER TYE A NUMBER EEIWEEN 0 AND 999999.99 
Inpx transform: S:x{"$* %-GP(X,"$”,2) 
K24X"eG(X"? NL”. "2N) | (X0999999.99) 1 (XO) X 
LAST EXETED: OCT 17, 1987 


Set ; ‘WH’ FOR HOURLY; ‘W" PCR WEERLY; ‘NM’ POR MONTHLY ; 
"B’ POR BI-WEERLY ; ‘A’ FOR ANNALLY ; 'D’ FOR CAILY 
LAST ETT: CCT 17, 1987 


NUMEER ‘TYEE A NUMEER BRIKEEN 0 AND 999999.99 
Inat transfocm: S:x{"S" %62(X,"$",2) 

K2oXK! GAR"? NL", "2N) | (1999999.99) 1(XK0) X 
LAST SET CCT 17, 1987 


SET; °H FOR HOURLY; 'W" ICR WEERLY; ’M’ PCR MONIBLY ; 
"BY FOR BI-WEERLY ; ‘A’ FOR ANNALLY ; ‘D’ FOR CADLY 
LAST EDITED: CT 17, 1987 


NUMER ‘TPE A NUMBER BEINEEN 0 AND 999999.99 
Input transfoum: S:X["$" %6P(X,"$",2) 

K24X' (X72 NL”. “2N) §(95999999.99) 1(XK0) X 
LAST EDT: OCT 17, 1987 


SET; ‘HY 5GR EOURLY;/W’ FOR WEEKLY; ‘M’ FOR PONIMLY ; 
"B’ FOR SO-VERRLY ; ‘A’ FOR ANNUALLY ; ‘DY PCR PALLY 
LAST EXTRD: CCP 17, 1987 


FREE TEXT WERNER MIST BE 1-30 CHARACTERS IN LENGIH 


Inga tramsfcom: K:SL(X)>30! (SL(X)<1) X 
LAST EDrie: ocr 17, 1967 


1005.01 multiple 
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DATA DICTIONARY #1005 — ICC FILE CSHERS/ACHINS SYSTEM STORED IN “ICC{ 

DCA NRE, GLOBAL DESCRIPTION 

ELSVENT . LOCREION 

1005.01,.01 WTINESS NAME 0; FREE TEXT ANGER MIBT BE 3-25 CHARACIERS IN LENGTH 


(ater asked) Input transfoon: K:$L(X)>251($L(X)<3) X 
LAST EDITED: SEP 1, 1987 


1005.01, SIFEET ACLRESS 0;2 sO ERBE TEXT ANGER MUST BE 1-30 GRFRCIERS IN LANGIH 
Inpx transfoom: K:$L{X)>30!($L(X)<1) X 
LAST EDITED: AUG 17, 1987 


100S.01,2 ary 0;3 FREE TEXT ANGER MET GE 1-20 CHAFACTIERS IN LENGTH 
* Input transform: K:$L(X)>201(SUX)<1) X 
LAST EDYIED: AUG 17, 1987 


1005.01,3 SINE 0;4 FOINIFR ‘WD SIRTE FILE (#1003) 
AST EXITED: AG 17, 1967 


1005.01,4 ZIP CLE 0;5 FREE TEx? ANEPER MUST BE 5-10 CHARACTERS IN LENGTH 
Inaxt transfoon: K:$L(X)>10!(SL{X)<5) X 
LAST EDITED: AUG 17, 1987 


1005.01,5 DRIE SICNED 0;6 DATE Input transform: S WOIM"E" D “WT S HY K:Ycl X 
LAST EDITED: AUG 25, 1967 
1005.01,6  WNESS SIMMENT 1,0 1005.21 WORO-PROCESSING 
105,52 NARRATIVE | 670 . 1005.03 WFO-PRKESSING 
105,53 CORRECTIVE ACTION 7;0 1005.04 WORD-PACCESSING 
1005,54 REMARRS 8;0 1005.05 WORD-FRCLESSING 
1005,54.5 SAFETY REARS 11;0 1005.07  WORD-PROCESSING 
105,100 BODY ART GE, 100;1 FOINIER ‘TO BOW ERY FILE (#1018) (Required) 
1005,101 NATURE. OF LY CEE 100;2 ROINIER TO NO FILE (91017) LAST EEOIED: MUG 28, 1967 


Lj I D(X) ,X’e"™ S:Di°E0(1017,x,0)) 
SP(CTICC(LA, 100) ,U, 18 GP ( “ING (1017,X,0) ,U,1) 
2) S SP(“TOC(DA, 100) U,18)="" 


1005,101.1 NATURE CF INOURY EXPLANA 101.;0 1005.712 WORD-PFOCESSING. 


1005,101.2 CCP USENOI CIE 100;18 FREE TEXT «= ANEHER MOT BE 1-5 CHARACIERS IN LENGIH 
Input transfoon: K:SL(X)>51(SL{X)<1) X 
LAST EDITED: ALG 28, 1987 


1005,102 TINOURY CSA OE 100;3 FOINTER 1 OSHA INOUSY COLES FILE (#1057) 
1005,103 DATE OF DERIH 100;4 DATE XOX—CAN'T BE ALTERED EXCEPT BY PROGRAMMER 
Input transform: S WIk"EI" D “WI S HY K:Yd X 


I SO(X) KeX<$P(“IOC(OA, 0) ,U,2) X 
LAST EDTIED: SEP 14, 1987 
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DATA DICTIONARY #1005 — ICC FILE OSHRNG/ACHIMS SYSIEM SD IN “IO 

DATA NE GLOBAL DESCHIPTICN 

ELEMENT LOCATION 

1005,104 LOST TIME ACCIDENT «=—s:100;5 SET ; ‘Y OR YES ; 'N’ FOR ND 

1005,105 LOST WORK DAYS 100;6 NDMEER ‘THE A WOLE NUEER BETEE! 0 AND 999 


Input transfoon: 
K:-4X'K! (2999) ! (X<0) £(X?-EL”."IN.N) X 


1005,106 LIGT DUTY CAYS 100;7 NMEFR TIPE AVECLE NUEER BEINEEN 0 AND 999 
Input transfona: 
K:4X’ Kl Q90999) 1 (X<O) 1(X2.E1"."IN.N) X 
1005,3 NONERIAL LOST WORRDOAYS 
100;8 SOT ; *'Y’ RR YES ;s “N’ KRNO 
1005,108 FIRST AID CASE 100;9 SEY ; ‘Y’ FOR YES ; 'N’ FOR NO 
1005,109 RECORDABLE CASE 100;10 ST; YX WR YES: 'N’ MOR ND; 'R’ KR RMOVED 
1005,110 REFCRIPBLE CASE 100;11 Ser ; “Y WOR YES ; 'N’ FOR ND 
1005,111 TERMOATION TRANSFER «=: 100;12 SET; 'Y’ ER YES; 'N’ KRNO 
1005,112 TYPE OF ACCIDENT 100;13 POINIER % ACCIOENT FILE (#1025) 


LAST EXEMD: AUG 28, 1987 


CROES-FERBERCE: LOGS AD MES 
L)= I SOM,X="" $:90(°N( 1027,X,0) ) 
$P( “HCTEA, 100) U,17 SPX “INI(1027,X,0),U,2) 
2)e S SPt“HOC{EA, 100) ,U,17}="" 


1005,112.5 TE OLE 106;17 FREE TEXT ANSWER MUST BE 1-5 CAARACIERS IN LENGIH 
Input tramsfoma: K:$L(X)>51(SL{X)<1) X 
LAST EDT%&: AG 28, 1987 


1005,113 BLOG/SHIP 100;14 FREE TEXT AGHER MDT BE 1-15 GARACEERS IN LENG 
Ine tomform: K:$L(X)>151(SL(X)<1) X 

1005,114 SPECIFIC LOCATION 100;15 FY@E TEXE AGPER MOST BE 1-40 CRRACTENS IN LENGIH 
Input transform: K:$1(X)>401(SL(X)d1) X 

305,115 EVCIUTIGN CF INKRY =: 10016 FREE TEXT AGVER MST BE 1~20 CHARACIERS IN LENGIH 
Ings tramform K:$L(X)>201($L(X)<1) X 

1005,116 EXTENT OF INORY 110;1 SET; ‘1° FOR EMUALITY; ’2° FOR PERM TOTAL DISABILITY; 


3° FOR PER! PARTIAL DISABI.ITY; 
4° KOR ND DISABILITY LIFELY; 
'S? FOR MISSING 

LAST EDEID: DEC 23, 1987 


1005,417 WORK CEERATION 110;2 FREE ‘TEXT AGOR LGTY BE 1-40 CHAPACIERS IN LENGIM 
inp trarefomm K:$(X)>40!(SIAX)<1) X 
LAST EDIT AG 14, 1987 
1005,118 SHIPS SIMIUS AT INKRY 
110:3 FREE ‘TEX? AGER MUST BE 1-2) CHARACIERS IN LANG 
Input transfiomm: K:$L(X)>20!(SL(X)<L) X 
LAST EDTIED: AG 14, 1967 


106,119 OAS HOEPTINLIZD ~>~_110;4 NUMBER TYPE A WOE NUMBER BRINEEN 0 AND 999 
Input tranefime K:4X"akt (20999) 1(XC0) {(X2.21" "INN X 
LAST EDI'TSD: SRP 8, 1987 
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ONTA DICTIONARY #1005 — ICD FILE CGHRESACHIDS SYSTEM SICFED IN “ICC( 
DATA NE CLORPL . LESCRIPTION 
ELEMENT LOCATION 
1005,120 CALEE OF INOURY 110;5 FOINIER TO CAUSE OF INKRY FILE (#1026) 
. LAST EDITED: AUG 14, 1987 
1005,120.1 CAUSE CF INWUY EXLADATION 
111;0 1005.713  WORD-FROCESSING 
1005,121 VED CALSE CF ACITENT’ 110;6 FFEE TEXT ANSWER MST BE 1-30 CHARACTERS IN LENGIH 


Input trensfoom: K:$L(X)>30!($L{X)<1) X 
LAST EDITED: AG 14, 1987 


1005,122 FAILLRE TO 50 110;7 FREE TEXT ANGER MUST BE 1-30 CHARACTERS IN LENGHH 
Input transfoum: K:$L(X)>30!(SL{X)<1) X 
LAST EDITED: ALG 14, 1967 


1005, 123 VEY FAILLFE 110;8 FREE TEXT ANSWER MUST BE 1-60 CHARACTERS IN LENGTH 
Input transfoom: K:$L.(X)>60!(SL{X)<1) X 
LAST EDITED: AUG 14, 1967 


100,124 DUTY SINRS 120;1 SET (Required); ‘QV’ FOR CN DUIY; ‘CRF’ FOR CFF DUTY 
| LAST EDITED: AUG 14, 1967 


1008,125 DAIE SPEEDLETIER SENT 120;2 DONTE XOO—CNN'T BE ALTERED EXCEPT BY PROGRAMMER 
Input transform: S Wik"E" D “3OT S MY K:Y¥<1 X 
I SOX) K:X<SP( “IQC(0A,0) ,U,2) X 
LAST EDITED: SEP 23, 1987 


1008, 126 SOURCE OF INDRY 120;3 POINIER TO SOLECE CF INKRY FILE (#1027) 





Lye I SXX),X'="" $39 “INT 1027,%,0)) | 
$P(“TOC(DR, 120) ,U,9 G2 “IND(1027,X,0),U,2) | 
2)e § $P(“TOC(EA, 120),05,9}="" 


1005,126.5 SQURCE CTE 120;9 FREE TEXT ANSWER MOST BE 1-6 CHARACTERS IN LENGTH 
Inpx transfomm: K:SL(X)>6!(SL(X)<1) X 
LAST EDITED: AUG 28, 1967 


1005,127 ACENT CF ACCIDENT 120;4 FOINIER ‘ID AGENT CF ACCIDENT FILE (#1068) 
. LAST EDTIED: ALG 14, 1967 


105,128 AGT OF ACC BARITCULAR §120;5 FREE ‘TEXT ANSHER MOST Bf 1-60 CHARACIERS IN LENGIH 
Input transfoum: K:$2(X)>601(SLAX)<1) X 
LAST EDITED: AUG 14, 1987 


1005,129 UNSAFE PRACTICE 120;6 FREE ‘TEXT ANSWER MST BE 1-40 CHARACTERS IN LENGIH 
Input transfoem: K:SL(X)>40!(SUX)<1) X 
LAST ZDTIED: AUG 14, 1987 


1005,130 USAFE CQOITIN 120;7 FREE TEXT ANSHER MUST BE 1-40 CHARACIERS IN LENGIH 
 & Inpst trensfoum: K:9L(X)>40!(SL(X)<1) X 
LAST EDITED: AUG 14, 1987 


1005,131 PRE INCLMED INKEYs120;8 FREE TEXT ANSMER MUST BE 1~40 CHAFACIERS IN LENGIH 


Input. transform: K:SL(X)>40!(SL{X)<1) X 
LAST EDITED: AUG 14, 1987 
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DAIA DICTIONARY #1005 — 100 FILE CGHRGACHINS SYSTEM 


OXIA 
ELEVENT 


NYE GLOBAL 


LOCATION 


1005,132 - SIRESSOR INGVED INARY «= 130;1 


1005,133 


1005,134 


1005,135 
1005, 136 


1005,137 


1005,138 


1005, 139 
1005,140 


1005,141 


1005,141.1 
1005.714, .01 


1005.714,1 


1005.714,2 


1005.714,3 


1005.714,4 


1005.714,5 


TOY INOURY 130;2 
RECREATION INOURY 130;3 
VEHICLE INOURY 130;4 
TWO WEL VEHICLE INURY 
130;5 
OACP FILE NUMEER ~ 130;6 


JCB TRANSFER MED REASONS 
130;7 


RETIFED CN OSSABILITY 130;8 


THIRD PRRIY CASE 130;9 

CASE CUIOOYE 130;10 

THIFO ERRIY 140;0 
NYE 0;1 
ACCESS 0;2 
cry 033 
SINE 0;4 
ZIPOLE 0;5 


SEINEENT AMOUNT = 06 





SICRED IN “Icc( 
CESCRIPTICN 





POINIER 1) SIPESSR FILE (43.%3) 
LAST EXTTSD: AG 14, 1987 


Ser; ‘Y’ FOR YES ; ‘N’ FOR NO 
LAST EDITED: AUG 14, 1967 


SET ; 'Y’ FOR YES ; 'N’ FOR NO 
LAST E0DTED: AG 14, 1987 


SET; ‘Y’ FOR YES ; 'N’ ARNO 
LAST EDTIED: ALG 14, 1987 


Se? ; "Y’ FOR YES ; ‘NY’ FOR NOD 
LAST BEXTTED: AUG 14, 1967 


FREE TEX? ~AMGVER MST BE 1-13 CHARACIERS IN LENG 
Inpx transfoum: K:$L(X)2131(StAX)<1) X 
LAST EXTIED: ALG 14, 1967 


Se? ; "Y’ FOR YES ; 'N’ KR ND 
LAST EDITED: AUG 14, 1967 


SET ; ‘Y’ FOR YES ; 'N’ FOR NO 
LAST EXT: ALG 14, 1987 


SeT ; ‘Y’ FOR YES ; ‘N’ FCR NO 
LAST EDTIED: AUG 14, 1967 


FREE TEXE ANSWER MBT BE 1-60 CHARACIERS IN LENGIH 
Inpt trensfrem: K:$1(X)>60! (SL(X)<1) X 
LAST EDTIED: AUG 14, 1°87 


1005. 714(Add New Entry without Asking) Multiple 


FREE ‘TEXT ANSWER MET BE 1-30 CHARACIERS IN LENG 
input transfoom: K:SL(X)>301(SL(X)<1) X 
LAST EXQETED: SEP 1, 1987 


FREE TERE ANSPER MST BE 1-70 CHARACIERS IN LENGH 
Input transfoom: K:91(X)>701(SLAX)<1) X 
LAST EDRTED: AUG 26, 1967 


FREE TEX? ANGER MST BE 1-20 CHARACIERS IN LENGIH 
Ingut trensfoom: K:SL(X)>201(SL(X)<1) X 
LAST EDITED: ALG 26, 1987 


FOINIER 1 SINDE FILE (#1003) 
LAST EXE TED: AG 26, 1967 


FREE TEX? ANGRER MUST BE 5~10 CHARACIERS IN LENGIH 
Ina transfoom: K:$L(X)>10! (SLAX)<S) X 
LAST EDITED: AUG 26, 1967 


NUMEER ‘TAPE A NUMBER BEIKEEN 0 AND 9999999.99 
Input tranefoom S:X["$" %<6P(X, "5", 2) 
K24X"ai(X" 7 NL”. "QN) 1 (X- 9996799. 99) 1(X<0) X 
LAST EDITED: SP 8, 1968 
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DRA DICTIONARY #1005 — ICC FILE CGHES/ACHIS SYSIM SICRED IN “IOC{ 
DATA NEE GCAL DESCRIPTICN 





1005,142 DONTE TRANSFER FEHB TO OCP 2 ; 
12;1 DATE Input transform: S Wie"E" D “SOF S Ney K:ycl X 
LAST EDTIED: AUG 14, 1987 


1005,143 CLAIMS CLERK ID 130;2 FREE TEXT ANSHER MST BE 1-3 CHARACTERS IN LENGIN 
Inpat transfoom: K:SL{X)>3!(SL(X)<1) X 
LAST EXITED: AUG 14, 1987 


1005,144 INVESYIGNIED BY 130;13 FREE TEXT ANSKER MST BE 1-30 GHARACIERS IN LENGTH 
Input transform: K:SL(X)>301(SL(X)<L) X 
LAST EDTIED: AUG 14, 1987 


1005,150 TICKER FILE 150;0 1005.02 Multiple 


1005.02, .01 TICKLER FILE 0;1 NUMER TYPE A WHOLE NUMEER BETVEERN 1 AND 999999 
(Multiply asked) Input transfom: 
PX eK! (35999999) 1 (XCL) 1 (KP.EL"."IN.N) X 
LAST EXITED: SEP 25, 1987 


1005.02,1 - DAME TO ro 0;2 CATE Input transfoon: S Wie"E” D “SOT S Hey K:Y<l X 
LAST EDDIED: SEP 25, 1987 


1005.02,2 FESEQSIELE TODD 0;3 FREE TEXT ENIER PEREN’S INITIALS = Input. transform: 
K:SL(X)>31(SL(X)<1) KX LAST EDTIED: Sep 25, 1987 


1008.02,3 ACTICN TD TAKE 0;4 FREE TEXT ANSWER MIST BE 1-60 CHARACTERS IN LENGIH 
Input transform: K:$L(X)>60!(SL(X)<1) X 
LAST EDITED: SEP 25, 1987 


1005.(2,4 REVERSE DKIE ; CCOMEUIED DME 
MMPS COLE: S$ ¥( 1005.02, 4,1)=6S(SO( “ICC(D0,150,01,0)):°(0),1:"") S %9999999-SP(v( 1005.02, 4,1) ,U,2) 
ALCORTIM: © 9999999-DRIE ID DO 


1005, 200 WETS FILED —— 200;2 SET (Required) ; ‘QP’ POR CEFICIAL PERSONNEL ROLLER ; 
"ONCP’ FOR CEFICE OF WORKER COMPENSATION PROGRAM 
LAST EDITED: AUG 14, 1987 


1005, 201 CLAIM RSYORD CREAG® DATE 
200;2 CATE ‘the date must be after the Date of Injury! 
Input transfoom: S WIk"E" D “WT S wy K:¥<l X 
LAST EDITED: AUG 14, 1987 


1005, 202 DATE CF CLAIM 200;3 DATE XXK—~CAN'T BE ALTERED EXCEPT BY PROGRAMMER 
Input transform: S WIk"E" D “WI S XY K:Yd. X 
LAST EDITED: SEP 28, 1987 


1005,202.5 CLAIM TYPE 200;12 FOINIER TO CLAIM TYPE FILE (#1029) 
LAST EDITED: DEC 23, 1987 
1005,203 Sant 10 Ot 200;4 Ser; '¥ REYES ; "NY FOR ND 


LAST EDITED: DEC 23, 1967 
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DATA DICTIONARY #1005 ~ IOC FILE CGHRESACHIS SYSTEM STORED IN “IO 
. OMA Ne GLOBAL DESCRIPTION 
ELEMENT LOCATION 
1005, 204 DMIE CLAIM SENT TO CAP 
200;5 DXTS Input transfor: S Wik"E" D “WOT S Mey K:YC X 
U3? EDITED: AUG 14, 1987 
1005,205 CLAIM CONIFOVERJED =—s--:200;6 SET (Required) ; ’Y’ FOR YES ; ‘N’ FOR ND 
LAST EDITED: AUG 26, 1967 
1005,205.1  CONDROVERSICN EXPLANATION 305;0 1005.02 wORD-PROCESSING 
1005,205.2 CCONIROY SUSIAINED BY OP 200;1L1 Sev ; "Y’ RR YES ; ‘N’ KRNO 
LAST EDITED: CCT 31, 1987 
1005, 206 ADXDICATION SINUS «= 13 1005.16R0INIER + Multiple ‘IDENTIFIED’ BY DORIE ENTERED 
1005.16,.01  AQRDICXTICN SINUS 0 FOINIER 10 AQLDICATION SIRIUS FILE (#1061) (Required) 
(Multiply asked) LAST EDITED: JAN 12, 1988 
CPO8.' FEFERENCE: 1005.16°B 
l)e § “I07(0A!1),13,"8",SE(X,1,30) ,DA)="” 
2)~ K “ICO 1) ,13,"B" ,SE(X,1, 30) DA) 
1005.16,1 DATE ENTERED 0;2 DATE (Required) 
Input transfoom: © {ODE D “MOT S Xe Kixcl 
LAST EMTIED: JAN 12, 1988 : 
1005.16,2 DATE REMOVED 0;3 CATE: 
Ingut transfoum: S Wle"E" D “WTS KY KYL X 
LAST EXITED: JAN 12, 1558 
1905, 207 FINAL OLSROSTION 200;8 SET ; ’A’ FOR ACTIVE; ‘I’ WR INCE 
LAST EDTTED: AUG 14, 1987 
1005, 208 CLAIM FORM LAST RECEIVED 200;9 FOINIER TD ORS Fite (#1002) 
Inpst transfrom S OLC("S")="F SPY ~(0),U,4)=1004" 
D “DIC K OFC S DIODE, Mer K:¥<0 X 
SELECT A CLAIM FORM «= LAST EDITED: CCT 27, 1987 
1005, 209 CLAIM FORM NEXT 200;10 POINIER 1D FOS FILE (#10C2) 
Inos transfoor S$ DIC("S")="I $Pi(*(0),U,4)=1004" 
D “DIC K DIC S$ DIODE, Mery K:¥<0 X 
SELECT CLAIM KM LAST EDITED: SEP 25, 1987 
1005, 210 COP BEGIN NATE 2;1 DRE XOO—~ON'T BE ALTERED EXCEPT SY PROGRAYPER 
‘The cate aust be after the Date of Injury! (Required) 
Input transfons: S WIR"EI" D “WT S Xe K:Y<cl X 
LT EXYTSD: SEP 2, 1987 
1005,210.1 COP NOT TO EXCEED OME 220;2 ORIE Input transfoom: $ Wis"e" p “WT S MY X: vl X 
LAST EXETED: CCT 31, 1987 
COP HOURS OF fAY 220;3 


NER TYE A ACLE NEER BEDEEN 0 AND 24 
Iput transfomm K:+X’=X! (524) (XO) 1(X7.E1"."IN.N) X 
‘AST EDYIED: OCT 31, 1987 
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DATA DICTIONARY #1005 —- ICC FOIE FILE «= CEH, NCHS SYST 


OXIA 
ELEMENT 





1005,210.3 


1005,210.4 


1005,210.5 


1005,210.6 


1005,210.7 
1005, 229 
1005,229.1 


1005, 229.2 


1005, 229.3 


1005,229.35 


1005,229.4 


106,229.45 





NYE GLOBAL 


LOCATION 


COP REIURN TO WRK DATE 220;4 


COP RETURN TO WORK HOLES 220;5 


COP RECURFENCE FLAG 


CoP DAYS USED 220;7 


CoP XB CHER CCST 220;8 


O/T STOPPED WORK 22131 


WORK STCEPED BASE RATE 222;1 


WORK STOPPED f."SE BASIS 222; 


WORK SIGPFED SLBSISIENCE 222;3 


WORK SICEFED SLB BASIS 222;4 


WORK SICPPED CLARIERS 222;5 


WORK SICPPED CLRRIERS BASIS 222;6 





STORED IN “ICC( 
CESCRIPIION 








DATE Input transfomm: § Wik"E" D “{OT S Ye¥ K:vcl X 
LAST EDITED: OCT 31, i967 


NUMEER TYPE A WACLE NUNEER BRIVEEN 0 AND 24 
Input transfomm: K:+X'eX1 (3024) 1(X<0}! (XP. EL". "IN.N) X 
LAST EDITED: OCT 31, 1967 


SET ; "Y’ FOR YES ; 'N’ KOR NO 
LAST EDITED: OCT 31, 1987 


NBER TYPE A WHOLE NUMBER BEIWEEN 0 AND 9909 
Input transform: K:+X'!=K! (359999) 1(X<0) 1 (X?.21"."1N.N) X 
LAST EDTIED: OCT 31, 1987 : 


NBER TYPE A NUMEER BEIMKEEN 0 AND 999999.99 
Input transfoum: S:X["$" %6P(X,"$",2) 

K4X! 9X6 (X! ? NL" ."2N) 1 (30999999.99) 1(X<0) X 
LAST EDTIED: CCT 31, 1967 


DPE SOK-CAN'T BE ALIERED EXCEPT BY PROGRAMMER 
‘he date must be after the Date of Injur’! 
Input transfoom: S WIe"E]" D “WT S %Y K:¥<1 X 
LAS£ EDITED: NW 2, 1987 


NIMBER TYPE A NUMBER BETWEEN 0 AND 999999.99 
Input transfoon: S:X{"$". XGP(X,"5",2) 

Kr4X" 9X (X! 2 NL ."2N) 1 (X999999.99) 1 (X<0) X 
LAST EDITED: SEP 30, 1967 


SET ; 'H’ FOR HOURLY; ‘W’ POR WEEKLY; ’M’ POR MONTHLY; 
"B! FOR BI-MCONIHLY ; ‘A’ FOR ANNALLY ; 'D’ FOR DAIL 
LAST EDITED: SEP 30, 1987 


NBER ‘TYPE A NUMEER BEINEEN 0 AND °39999.99 
Input transform: S:X["$" %GP(X,"$",2) 

Kr4X" G(X" 2.NL". ‘2N) 1(30999999.99) 1(X<0) X 
LAST EDITED: Sey 30, 1987 


SEY ; 'H? POR HOURLY ; ‘W’ FOR WEERLY ; 'M’ PCR MNIWLY ; 
"B’ FOR BI-MCNINLY ; ‘A’ FOR ANNIALLY ; °OY 2OR DAD 
LAST EDITED: SEP 30, 1967 


NUMEER «TYE A NUMBER BETWEEN 3 AND 999999.99 
Input transfoon: 5:X["$" %6P(X,"$",2) 

R+X" 9Xhi(X' 2.011". "2N) £ (25999959.99) 1(X<0) X 
LAST EDITED: SEP 30, 1987 


SET; 'H? "OF. HOURLY; "W" FOR WEERLY; ‘M’ FOR MONTHLY; 


'B’ POM BI-MONIHLY; ‘A’ FOR ANNLALLY; ‘D’ FOR CAILY 
LAST EDITED: SEP 30, 1987 
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ONIA DICTIONARY #1005 — ICC FE FILE }49 CGHREG ACH SYSTEM SICFED IN “ICC( 

DNTA NE GLOBAL CESCQHUPTION 

E-SMENT  LOCATICN 

ra er eA A STAT TL SSCS, en 

1005,229.5 WORK STOPPED ODER RAE 222;7 NER ‘TYPE A NUMBER BES“PEN 0 AND 999999.99 


Input transfoun: S:X{"S$" %6P(X,"5",2) 
K:4K'@X5:(X'2.NL"."2N) 1 (X999999.99) !(X<0) X 
LAST EDITED: SEP 30, 1967 


1005,229.55 WORK STOPPED OTHER PASIS 222; SeT- ‘'H’ FOR HOURLY; ‘W’ FOR WEEKLY; ‘M’ FOR MONIHLY; 
’B’ FOR BI-MONIEY ; ‘A’ FOR ANNABLLY ; 'D’ FOR CAILY 
LAST EDITED: SEP 30, 1987 : 


1005,229.6 WORK SICEFED ODER SPECIFY 222;9 FREE TEXT ANSKER MOST Be 1-30 CHARACIERS IN LANGIH 
Input transfoom: K:SL(X)>301 (SL{(X)<1) X 
LAST EDITED: SEP 30, 1987 


1005, 230 D/T ERY SICEFED 221;2 DARE X00-~CAN’T BE ALTERED EXCEPT BY PROGRAMER 
‘The date mst be after the Date of Injury! 
Input transfoom: § Wik"EI" D “WI S MY K:Yd X 
ST EDITED: NW 2, 1987 


1005, 231 D/T RETURED TOWERK «221;3 DATE XOO—~CAN’T BE ALTERED EXCEPT BY PROGRAMMER 
the dace mst be after the Date of Injury! 
Input transform: S Wie"EI" D “WIS MY K:Y<l. X 
LAST EXITED: NOV 2, 1967 


1005,231.1 RETURNED TO WORK BASE RATE 231;1 NUMBER «= TYPE A NUMBER GINEEN 0 AND 999999.99 
Input transform: S:xX{"$" %SP(X,"$",2) 
K24K" G(X! 2 NL" ..""2N) 1 (X999999.99) 1 (X<0) X 
LAST EXITED: SEP 30, 1967 


1005,231.2 RETURNED TO WORK BASE BASIS 231;2 SET ; 'H! FOR HOURLY ; ‘W' FOR WREMLY ; ‘M’ FOR MNDEY ; 
"BY POR BI-MOMLLY ; ‘A’ FOR ANNALLY ; 'D’ FOR DAILY 
LAST EDITED: SEP 30, 1987 


1005,231.3 REIURN TO WORK SLBSISTENCE 231;3 NFER «TYPE A NUMBER BEINEEN 0 AND 999959.99 
Input transform: S:xX["$" %6P(X,"$",2) 
K:4K? eX (X!? NL". "2N) 1 (30999999.99) 1(X<0) X 
LAST EXCITED: SEP 30, 1967 


1005,231.35 RETURNED TD WORK GB BASIS 231;4 SEY ; 'H? FOR HOURLY ; ‘W" FOR WEERLY ; ’M’ FOR MO THLY ; 
‘B’ FOR BI-MONIHLY ; ‘A’ SOR ANNVALLY ; 'D’ FCR TALLY 
LAST EDITED: CCT 18, 1987 


1005,233.4 RETURN TO WORK QLBRIESS 231;5 NEER TYPE A NUMBER BEIVEEN 0 AND 999999.99 
Input transioem: S:X["$" ¥aG(X,"$",2) 
K:4X? ah (X°2 NL". "2N) !(¥9999999.99) 1(X<0) X 
LAST =DITED: SEP 30, 1937 
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DATA DICTICNARY #1005 — 
OA NAME 
ELEYENT 


ICC FILE FILE 40 CGH ACD’: SYSTEM SICFED IN “10C( 


GLOBAL 
LOCATION 


DESCRIPTION 





1005,231.45  REIURNED 1D WORK CUR BASIS 231;6 


1005.231.40 RETURNED TO WORK SALARY. 231;7 


1005, 231.55 
1005,231.6 


1005, 232 


1005, 232.1 


1005, 232.2 


1005,22.3 


1005,232.4 


1005,222.5 


105,20) 


1005,250.3 


RETURNED TO WORK OTHER BASIS 231;8 


RETURN TO WORK SPECIFY OIER 231;9 © 


CATE RATE CHANED 


CUNNGED BASE RATE 


CHANGED CLARIERS 


CHANGED OTHER RAIE 


OFNED ODER SECFTY 


GP RECVD FROM 


QD RECVD THU 


23236 


231 


250;2 


SBT ; ii’ FOR HOURLY ; ‘W’ ICR WEERLY; ‘'M’ FOR MONTHLY ; 
"B! FOR BI-MONIHLY; ‘A’ FOR ANNALLY; 'D’ FOR DAILY 
LAST EDITED: OcT 18, 1987 


NUMBER. TYPE A NUMBER BETKEIN ( AND 999999.99 
» Pat transform: S:X{"$" %Ge(X,"$",2) 

Ke+X! XE (X'7.NL"."2N) 1(30999999.99) 1(XK0) X 
LAST EDTIED: SEP 30, 1987 


SET ; 'H? FOR ROURLY ; "We POR WEEKLY ; 'M’ POR MONDHY ; 
*B’ FOR BI-MONIBLY ; ‘A’ FOR ANALY ; 'D’ RR CAILY 
LAST EDITED: OCT 18, 1987 


FREE TEX! =ANSACR MOST BE 1-30 CHARACTERS IN LENG 
Inpst transform K:$L(X)>30!(SL(X)<1) X 
LAST EDITED: SEP 30, 1967 


DATE Ings transform: S Wik"E" D “MI S Me Ki yl X 
LAST EDITED: SEP 30, 1967 


NUMBER TYPE A NUMBER BETNEEN 0 AND 999999.99 
Input transform: S:x["“S" %GP(X, “$",2) 
K24X! XE (X" 2.NL”."2N) 1 (30999999.99) 1(X<0) X 
LAST EDITED: SEP 30, 1987 


NER TYPE A NUMBER BETWEEN 0 AND 999599.99 
Input transform: S:X{"$" %=SP(X,"$",2) 

K:+X! eX8(X'?.NL". “2N} ! 00999999. 99)1(X<0) X 
LAST EDITED: SEP %:, 1007 


NUMEER TYPE A NUMBER BEIKETIN 0 AND 9999%.).99 
Input transform: S:X["S$" %GP(X,"S",2) 

K:-+X/ 9X (X"2.NL"."2N) 1 (30999999.99) 1 (X<0) X 
LAST EDITED: SEP 30, 1987 


NUSER ‘TYPE A NUMEER BEINEEN 0 AND 999909.99 
Inpt transfoon: S2X]"$" %62(X,°S", 2) 

K24X! 0(X"?NL".""2N) 1 (X9999999.99) 1(X<0) X 
LAST EDITED: SEP 30, 1987 


FREE TEXT ASHER DST BE 1-30 ORFECINS IN LENIN 
Input transform: K:SL(X)>301(SLAX)<L} K 
LAST EDITED: SEP 30, 1987 


DAE Input transfonn: S WIE” D “WY S HY K:Ydl X 
LAST EDITED: SEP 30, 1967 


DAME ‘nov. transform: $ {OI"E" D “Wr S Xe K:yel X 
LAST EDITED: =P ) 1967 
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DRONA DICTIONARY #1005 — IOC FILE FE) «9=—-« CGH SYSTEM SICFED IN “ICC( 

CATA NYE GLOBAL DESCRIPTION 

ELEMENT LOCATION 

1005,250.6 WP FECVWD GOSS 250;16 NEER TYPE A NUMBER BEIKEEN 0 AND 999999.99 


1005, 250.7 


1005, 250.8 


1005, 251 


1005, 251.5 


1005, 251.6 


1005, 252 


1005, 252.5 


1005, 253 


1005, 253.5 


1005,254 


1005, 254.5 


1006, 255 


1005,255.5 


1005, 255.6 


1005, 255.7 


CoP FAIE 


CCP RACE BASIS 


OTHER LEAVE FROM 


OTHER LEAVE THA 


OTHER LEAVE SPECIFY 


SICK LEAVE FAM 


SICK LEAVE THRU 


ANNLAL LEAVE FEM 


ANAL LEAVE THRU 


(OP CLADED FRO 


COP CLAIMED THU 


COMP CLAIM FIM 


COMP CLAIMED THU 


SICR/ANNUAL LERVE CLADED FROM 250; 14 


SICK/ANNLAL LEAVE CLAIMED THRU 250;i5 


200;:7 


250;8 


250;9 


20;3 


2:4 


250;5 


250;6 


"250310 


Pas tha wt 


200;12 


2:13 


Input transfoon: S:X{"S" HSK, "$",2) 
K:4X! at (X!? NL". "2N) § (25559999.99) 1 (X<0) X 
LAST EDITED: CCT 18, 1987 


NUMBER «TYPE A NUMBER BECXIKEEN 0 AND 099999.99 
Input transfoom: Six{"S" %=6P(x,"S",2) 

K:4X 0 (X!2.NL"."2N) 1 (30999999.99) 1 (XO) X 
LaST EDITED: CCF 18, 1367 


SET ; 'H! SOR HOLN.Y ; ‘W POR WEERLY ; ‘M’ POR MNIMLY ; 
'B’ FOR BI-WERLY ; ‘A’ FOR ANNALLY ; ’D’ PCR CALLY 
LAST EDITED: CCT 18, 1967 


DATE Input transform: S Wle"E" D “SOT S Mek K:Ycl X 
LAST EDITED: SEP 30, 1967 


CME Input transfoon: S Wle"E" D “WT S Me K:Ycl X 
LAST EDITED: SEP 30, 1967 


FREE TEXT ANSHER MUST BE 1-30 CHARACIERS IN LENGIH 
Input transform: K:SL(X)>30!(SL(X)<1) X 
LAST EDITED: SEP 30, 1967 


OXTE Inpst transfoom: S Whe"E" D “WI S Key K:¥cl X 
LAST EDITED: SEP 30, i987 


ONE Ircut trensfoom S WIe"E” D “MT S MY K:Ycl X 
LAST EDITED: SEP 30, 1987 


(RCE Input transform: S Wle"E" D “Wr S Mey K:Y<l X 
LAST FDITED: SEP 30, 1987 


OXTE Input transform: S We"E" D “WT S Ae KsYcl X 
LAST EDTIED: SEP 30, 1987 


CMIE Inpst transform: S Wie"E" D “WOT S Xe K:Ycl X 
LAST EXITED: SEP 30, 1987 


CATE Input transform S tOle"E" D “WT S MY K:¥Cl X 
LAST EXSIeD: SEP 30, 1987 


OXTE Input transform: © Mle"E" D “WI S HY K:Y<l X 
LAST ELTIED: SEP 30, 1967 


CHIE Input transform: $ WIk"E” D “SCT S MY K:Y<l X 
LAST EDITED: SEP 30, 1987 


OME Irgut transform: S Wle"E" D “WE S HY K:Ycl X 
LAST EDTIED: SEP 30, 1987 


OME Ings tranefoum: S WIe'E" D “WE S WY KY X 
LAST EDITED: SEP 30, 1967 








1005, 256 
1005, 256.1 


1005,2%.2 
1005,26.3 
1005, 256.4 
1005, 256.5 
1005, 256.6 
1005, 26.7 
1005, 256.8 
~ 1005,257 


1005,257.1 


1905,257.2 


1005, 257.3 


1005,257.4 


1005,257.5 


COMP RECVD THRU 


COMP RECVD GROSS 


COMP BEGIN HRS 
COMP END HOLES 
COMP LEAVE SINILS 
COMP RECVD DAIS 
COMP RECLIRENCE FLAG 
MISC FAY RECVD FROM 
MISC BAY RECVD THRU . 


MISC BAY FECVD GOES 
MISC RATE 


MISC RATE BASIS 


MISC SPECIFY 


25132 


241;3 


251;4 


35 


25138 
251;9 
2241 
252 


22;3 


252;4 


252;5 


2236 





OXTE Ip transom: § WIE" D “UT S ae Kv X 
LAST EDITED: CCT 17, 1987 


DXIE Input transform: S Wi"E" D “WI S wy K:¥d. X 
LAST ECTIED: CCT 17, 1987 


NIGER TYPE A NUMEER EEIVEEN 0 AND 999999.99 
Input transfoum: $:X["S" %62(X,"5",2) 

Rs4X" ai (X?7 NL". "2N) | (10999999.99) 1(X<0) X 
LAST EDITED: OCT 17, 1967 


SEY ; ‘C’ FOR CCOMPENSATICN ; ’S’ FOR SCHEDLLED MAARD 
LAST EDITED: NV 2, 1987 


NEER ‘TYPE A WHOLE NUMEER BETHEEN 0 AND 24 
Input transfioum: K:+X'=X! (3024) 1 (XO) 1 (X?. EL". "IN.N) X 
LAST EDTIED: NW 2, 1987 


NUMBER TYPE A WHOLE NUMBER BETWEEN 0 AND 24 
Input transfoom: K:+X'=K!(X>2A) { (X<0) 1 (X?.E2"."1N.N) x 
LAST EDITED: NW 2, 1987 


SED ; 'S' FOR SICK LENVE ; ‘PY FOR ADMINISTRATIVE ; 
"L' FOR LAP ; "TY FOR TEMP OFF SIMTION ; 
1A POR ANNUAL LEPVE (VRCATIN) 

LAST EDITED: NOY 2, 1967 


CME = Irgut transform: S WIe"E" D “WT S HY KCl X 
LAST EDITED: NY 2, 1987 


Sev ; ’Y’ FOR YES ; ‘N’ PORNO 
LAST EDTIED: NW 2, 1967 


DME Innit tcansfoorn: S Wm"E" D “ROT S He K:Yd) X 
LAST EDTIED: OCT 17, 1967 


XIE aan 
LAST EDITED: OCT 17, 1987 


NIMER TYPE A NUMEER ERIWEEN 0 AND 999999.99 
Inpt transfom: S:x{"$" %GP(X,"$",2) 
Re4X?ohi(X’ 2.1L", "2N) 1 (90999999.99) 1(X<0) X 
LAST EDITED: OCT 17, 1987 


NUEER ‘TYPE A NUMBER BEINEEN 0 AND 999999.99 
Input transform: S:X("$" %4P(X, "$",2) 

Ks4X! XG (X?? NL". "2N) 1 (90999999.99) 1(X<0) X 
LAST EDYIED: OCT 18, 1987 


SEY ; ‘H’ FOR HOLALY ; ‘W’ FOR bEERLY ; 'M’ ICR MCNEELY ; 
"B’ FOR BI-WEERLY ; ‘A’ POR ANNALLY ; ‘D’ ACR CAILY 


LAST EDYUD: OCT 18, 1987 
FPSE TEX? AEHER MEY BE 1-30 CRFACIERS IN LENG. 


Inns trarafoom: K:SU(X)> 301 (SUAX)<) X 
LAST EDITED: OCT 18, 1987 
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=, 
DATA DICTIONARY #1005 — ICC FILE FILE «39 CGHEXSG/NCHID'S SYSTEM CRED IN “ICC( 
DATA NYE GLOBAL CESCRIPTICN 
ELEYENT : LOCATICN 
1005, 300 CEFENENIS 300;1 SET ; ‘S’ FOR SORE ; 'C’ POR CHILDREN ; ‘OC’ FOR ODER ; 
’ /SC’ FOR SEOUSE ASD CHILOREN ; ‘SO’ ACR SPOLEE AND OIER ; 
SOD’ FOR SROLBE, CHILDREN, & CIHER ; 
CD’ FOR CHILDREN AND OTHER ; ‘N’ FOR NE 
LAST EDITED: NW 12, 1987 
1005, 301 SICK/ANAL LEAVE CLAIMED 300;2 
Sef (Required) ; 
‘oe’ FOR CONTINATICN OF ERY AND COMPENSATION IP DISABILITY CONTINUES BEYOND 45 DANS ; 
SYA’ FOR SICK AO/OR ANLAL LEAVE = LAST EDITED: NOV 13, 1567 
1008, 302 REGULAR WORK HOPS = _- 300;3 FREE TEXT ANSWER IN MILITARY TIME. EX: (0700-1500) 
Inpst transfoom K:92(X)>141($L(X)<6) X 
LAST EDITED: AG 20, 1987 
1008, 303 REGULAR WORK SCHEDULE 300;4 FREE TEXT EXAMPLE: (M+, oc M,1U,W,7H,F) 
Input transfoon: K:$2(X)>15!(SL(x)<3) X 
LAST EDITED: MUG 20, 1987 
1005,303.5 REGULAR NUMBER OF HOURS DAILY 300;6 NUMBER ‘TYPE A WEOLE NUMBER BETWEEN 1 AND 24 
Input transfor K:4K! aK! (024) (XL) 1(X2.21"."IN.N) X 
LAST EDITED: CCY 31, 1987 
1005,303.6  BARITIME YORK HOURS PER ORY 300;7 NJGER ‘TYE A WOLE NUMGER BRIWEEN 1 AND 8 
Input transfomm K:+K'ak! (908) § (XL) 1(X?.EL"."1N.N) X 
LAST EDITED: CCT 31, 1987 
1005, 304 DAE RECEIVED NOTICE 300;5 ORTE XOOX—CAN'T BE ALTERED EXCEPT BY PROGRAMMER 
‘the date must be after the Date of Injury! 
Input transfor S Wle"E" D “MOT S Mey K:¥<l X 
LAST EDIT: NW 2, 1987 
1005, 307 TNOLFED IN LINE OF DUTY 300;8 SET ; '¥’ AOR YES ; ‘N’ FOR ND 
LAST EDITED: AUG 20, 1967 
1005,307.1 EXPLAIN INLRY 306;0 1005.1 WORO-RROCESSING, 
1905, 308 WILLFUL MISSIN = -500;9 SET ; ‘'Y’ FOR YS; "NY KOR NO 
LAST EDITED: AUG 20, 1987 
1005,308.1 EXPLAIN WILLFLL MISONUCT 301;0 1005.06 WORD-FROCESSING 
1005, 310 FIRST EXAM DOXIE 03;1 DAKE OXK—~CAN’T BE ALTERED EXCEPT BY POGAMER 
‘The date mst be after the Date of Injury! 
Input transfome S Wilk"E" D “WT S Mex K:¥cl X 
LAST EDITED: NW 2, 1987 
1005, 311 DISABLED FUR FORK 303;2 SI; ‘Y’ FOR YES; ‘NY FOR NO 
LAST EDITED: AUG 20, 1967 
1005, 312 SUPS FACTS AGREE WITH EMP 


303;3 


SET ; ‘Y’ FOR YES ; "N’ FOR NO 
LAST EDITED: AUG 20, 1987 
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DRONA DICTIONARY #1005 — ICC FILE FILE CGHRSGACHINS SYSTEM SICFED IN “IQC( 


DATA NAME CLOPAL DESCRIPTION 

ELEMENT LOCATION 

1005,312.1  SLEERVISCR 34;0 1005.08 WORD-PCCESSING 

1005,314 CLAIM FILING CATEGORY 303;4 SET ; "1" FOR NO LOSY TIME AND NO MEDICAL EXPESEE ; 


*2° FOR NO LOST TIME, MEDICAL EXPENSE INCLREED ; 
3’ FOR LOST COVERED BY LEAVE, LAP, CR COP 
LAST EDITED: ALG 20, 1987 


1005,315 RELIES TOTNES «= -507;0 1005.11 WORD-FROCESSING 
1005,316 WHY FILED AFTER 30 DANS 300;0 1005.12 _ WORD-FRCCESSING 
1005,317  -«»-FREASCN FUR SIMIEMENT' reLay 309;0 1005.13 WORD-PRCCESSING 
1005,318 «WEY MEDICAL REFORIS DELAYED 310;0 1005.14  WORD-PROCESSING 


1005, 219 TALE LAST EXECEED TD CONDITICN 303;5 DATE Input transform: S Wle"E" D “8Or S Mey K:¥<l X 
LAST EDITED: AUG 20, 1987 , 


1005, 320 DESCRIBE NEW WORK ASSIGNWENT 311;0 1005.15 WORD-PROCESSING 

1005,321 «DAME IST REALIZED «= «5036 DAE —Inpst transfoom: S WTe"E" D “WT S Hey K:Yd X 
| | LAST EDITED: AUG 20, 1987 

1005,322 DATE ACLADENT SInED 303;7 DATE Input transform: $ §Ie"E" D “MOT S HeY Kryel X 


LAST EDITED: AUG 20, 1967 
1005, 324 NEW WORK WEEK 303;8 FREE TEXT ANSWER MST BE 3-30 CHARACTERS IN LENGIH 
Input transfoun: K:SL(X)>30!($2(X}<3) X 
LAST EDITED: AUG 20, 1987 . 
1005, 329 DUTY CHANGED CLE TO DISABILITY 303;9 SEY; 'Y’ FOR YES ; ’N’ FORD sLAST EDTIED: ALG 20, 1987 
1005,329.1 DESCRIRE GANED DUTY 314;0 1005.17 WORD-PROCESSING 


1005, 330 CATE HEALTH DEDUCTION RESUMED 303;10 CME = Input transform: S WIk"E" D “MOY S Mey K:Ycl X 
LAST EDTIED: AUG 20, 1987 


1005, 331 OAXTE CPT INS DEDUCTION RESUMED 303;11 ONE = Input transform: S WIe"E" D “WOT S Mey K:Ycl X 
LAST EDITED: AUG 20, 1987 


1005,3322 OATE HEALTH DEDUCT SICEFED 303;12 CX Inns transform: S Wle"E" D “WI S Hey K:vd X 
LAST EXITED: SEP 4, 1967 
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DATA DICTIONARY #1005 — ICC FILE FILE §39« CGH SYSTEM SICED IN *10C{ 





DATA NYE GLOBAL CESCUPTIN 

ELEFENT LOCATION 

mre nes A en A EA cP SS ASG SSIES EY | 

1005, 333 NEW HEALTH PLAN OAIE = 303;13 OX = Input transform: S Wle"E” D “WI S MY K:¥d1 X 


LAST S=DYIED: AUG 20, 1967 


1005, 400 ATTENDING FHYSICIAN © 400;1 FREE TEXT «= AGER MST BE 1-30 CHARACIERS JN LENGHH 
Input transfoom: K:$L(X)>30!(SL(X)<1) X 
LAST EDITED: SEP 15, 1987 


1005,400.1 DOCS ACORESS 400;2 FREE TEXT ANSWER MOOT BE 1-54 CHARRCIERS IN LENGH 
Input transfoum: K:9(X)>541(SL(X)<i) X 
LAST EDITED: SEP 17, 1967 


1005,400.2 oxs cy 400;3 FREE TEXT 4AMGHER MT BE 1-20 CHARACIERS IN LENGIH 
Input transfoun: K:$L(X)>20! (SL(X)<1) X 
LAST EDITED: Sep 15, 1987 


1005,400.3 [CCS SIME 40034 FOINZER 1D SIRTE FILE (#1003) LAST EDITED: S#P 15, 1967 


1005,400.4 mccS ZC 400;5 FREE ‘TEXT ANOAER MOT BE 5-10 CHARACTERS IN LENGIH 
Top transform K:91(X)>101($L(X)<5) X 
LAST EDITED: Sep 15, 1967 


1005,400.5 COGS FONE NPEER 400;6 FREE TEXE «9AMGHER MOT BE 7-14 CHARACIERS IN LENGIH 
Inpt transform: K:S1{X)>14!($L(X)<7) X 
LAST EXITED: S2P 15, 1987 


1005,400.6  OCES DOCIOR SPECIALIZE 
400;7 SET ; 'Y’ FOR YES ; ‘N’ KR NO LAST EDIIED: SEF 15, 1987 


1005,400.7 SPECIALITY 400;8 FREE TEXT ANGAER MUST BE 1-30 CHARACTERS IN LENG 
Inpst trensfoom: K:SL(X)>30!(SL(X)<1) X 
LAST EDITED: SEP 15, 1967 


1005,400.8 TAX ID 400;9 FREE TEXT ANSWER MST BE 1-10 CHARACIERS IN LENGH 
Inpt transform: K:S1(X)>101(SL(X)<1) X 
LAST EDITED: SEP 15, 1967 


1005,400.9 ONIE SIGNED 400;10 CX Input transfowe S Wih"E" D “WOT S HY K:Ych X 
LAST EDITED: SEP 15, 1987 


1005,402 REFERRAL FEYSICIAN 401;1 FREE TEXT 9 ANGER MST BE 1-30 CHARACIERS IN LENGIH 


Inpt transfoum: K:$4(X)>30!(SL{X)<1) X 
LAST EDITED: Sep 15, 1987 


1005,401.1 RP ACDRESS 401 ;2 FREE TEX? 9 ANSVER MOBY BE 1-54 CARACIERS IN (ENGIN 
Input transform: K:9L(X)>541(SU(X)<1) X 
LAST EDITED: SEP 17, 1987 

1005,401.2 RP CITy 433 FREE TEXT 4ANSHER MBT BE 1-20 CAPACIES IN LENGHH 
Input transfomm K:S{X)>201 (SLX) <1) X 
LAST EDITED: ==P 15, 1967 


1005,401.3 RP SINIE 401;4 POINIER TO SINTE FILE (#1003) LAST EDITED: Sep 15, 1987 
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OANTA DICTIONARY #1005 — I0C FILE FILE 49 © CSHFES/ACHING SYSTEM SICFED IN *I0C( 





DAA NYE GLORAL DESCRIPTICN 
ELEMENT LOCRTTON 
1005,401.4 RP ZIFOLE 401;5 FREE TEXT ANSVER MBT BE 5-10 GRRACIERS IN LACH 
Ingut transfoom: K:SL(X)>101($14X)<5) X 
LAST EDITED: SEP 15, 1987 
1005,401.5 RF PHONE NEER 401;6 FREE TEXT ANSKER MST BE 7-14 CEARACIERS IN LENGHH 
Input transfoom: K:$L(X)>141($L(X)<7) X 
7 LAST EDITED: SEP 15, 1987 
1005,491.6 DOES REF DOCIOR SPECIALIZE 
401;7 SEf ; 'Y’ FOR YES ; ‘N’ POR ND 
LAST EDITED: SEP 15, 1987 
1005,401.7 RP SPECIALITY 401;8 FREE TEX? «=ANEHER MST EE 1-30 GHARACIERS IN LANG 
Ink transform: K:$L(X)>301(SL(X)<L) X 
LAST EDITED: S2P 15, 1967 
1005,401.8 RP TAX ID 401;9 FREE TEXT « ANEKER MST BE 1-10 CARRACIERS IN LENGTH 
Input transfonm: K:SL(X)>101($4(X)<1) X 
LAST EDITED: SEP 15, 1967 
1005,401.9 RP ONE SIGED 401310 PAE = Input trensform S WIk"E" D “WT S HY K:vdl X 
LAST EDITED: SEP 15, 1967 
1005, 402 SUPERVISOR’S NAYE 402;1 FREE TEXT 9ANGVER MIST EE 1-30 GASACIFES IN LENG 
Input transform: K:$L(X)>301($(X)<1) X 
LAST EDITED: SEP 15, 1987 . 
1005,402.1 SEERVISR’S TIME 4(2;2 FREE TEXT © ANSKER MST BE 1-30 CHATPCIERS IN LENGTH 
: Input transform: K:$L(X)>30! (SL(X)<1) X 
LAST EDITED: StP 15, 1987 
1005,402.2 SUPERVISOR'S FACNE NUMBER 402;3 FREE TEXT. «ANSWER MST HE 7-14 CHARACIERS IN LENGTH 
Input transform: K:SL(X)>141(S2(X)<7) X 
. LAST EDITED: SEP 15, 1987 
1005,402.3 SUPERVISOR'S AVION § 402;4 FREE TEXT ANSMER MST BF 7-8 
Input transfoom: K:SL(X)>61(SL{X)<7) X 
LAST EXITED: SEP 15, 1987 
1005,402.4 OMI SUPERVISOR SIGQSD 402;5 TATE = Input transfoum: S Wile"E" D “AT S WY K:vcl X 
LAST EDITED: SEP 15, 1967 
1005,402.6 SUPERVISORY AC FEFORT 402;7 Ser ; ‘Y" POR YES ; ‘N’ FORO 
LAST EDITED: ret 9, 1987 
1005, 562 SPOLSE AT DEATH SOl;1 FREE TEXD «= ANSVEP. MUST BE 1-30 CHARACTERS IN LENG 
Inns transfoom K:9(X)>301 (SL{X)<1) X 
LAST EDITED: SEP 15, 1987 
1005,502.1 ACDRESS GF SECLae 501;2 FREE TEX? «ANSWER MUST BE 1-55 CHARACTERS IN LENGIH 


Input transfoem: K:SL(X)>551(SL(X)<1) X 
LAST EDITED: SEP 15, 1967 
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DRTA DICTIONARY #1005 — ICC FILE FILE 9 CGHRES/NCHINS SYSTEM SIGRED IN “ICC( 


CESHIPIEN 





OA NOE GLOBAL 
ELEMENT LOCATION 
1005,502.2 CITY OF SEOEE 501;3 
1005,502.3 SINTE CF SFOLEE 50134 
1005,52.4 ZIFXYE CF SEOEE 501;5 
1005,503 OTHER CEPEND AT CERQH 502;5 
1005,504 OTHER DEPEND ADDRESS AT CEATH 502;1 
1005,504.1 OTHER DEFEND CITY 5022 
1005,504.2 OMERCEPERD SINE 5023 
1005, 504.3 OTHER CEPEND ZIP CYTE 502;4 
105,505 SERVICE NO 500;3 
1005, 506 BRANCH CF SERVICE 500;4 
1005,507 FERICD CF SERVICE 500;5 
1005, 315 TOTAL BURTAL EXFENSE 505;1 
1005, 516 BLRRIAL EXPENSE PAID BY VA 505;2 
1005,517 EARTY PAYING FOR ARIAL «50631 





eames 


FREE TEXT SGHER MST BE 1-20 CHARACIERS IN LANGIH 
Input. transfoum K:$L(X)>201($L(X)<1) X 
LAST EDITED: SEP 15, 1987 


FOINIER 10 SIRTE FILE (#1003) 
LAST EDITED: SEP 15, 1987 


FREE TEXT ASGKER MUST BE 5-10 CHARACTERS IN LENGIH 
Input transfomm K:SL(X)>10!($L(X)<5) X 
LAST EDITED: SEP 15, 1987 


FREE TEXT «ANGER MBT BE 1-30 CHARACTERS IN LENGIH 
Input transfoom K:$L(X)>301(SL(X)<1) X 
LAST EDITED: AUG 21, 1967 


FREE TEX? «= ANGER MST BE 1-55 CHRARACIERS IN LENGIH 
Input transfoum: K:SL(X)>551(SLAX)L) X 
LAST EDITED: SEP 9, 1967 


FREE TEXT «= GER MBT BE 1-23 CHAFACIERS IN LENGHH 
Input transfooe: K:$L(X)>231(SL(X)<1) X 
LAST EDITED: SP 9, 1967 


FOINIER TD SIRE FILE (#1003) 
LAST EXNTED: S*P 11., 1967 


FREE TEXT ANGER MT Be S~10 CHARACIERS IN LENGIH 
Input transfoae K:$L(X)>10!($L(X)<5) X 
LAST EDITED: SEP 9, 1987 


FREE TEXT ANGER MOST BF 1-20 CHARACTERS IN LENGIH 
Input transfoom K:SL(X)>201(SL{X)<l) X 
LAST EDITED: AG 21, 1987 


SET ; °A’ FOR ARYY ; ‘N’ FOR NAVY ; ’M’ FOR MARINES ; 
"fF FOR AIR FORCE ; ’C’ FOR COAST GARD 
LAST EDITED: SEP 21, 1967 


FREE TEX? «= RGPAT: MYR 10 AR 
Input transfoon: K:SL(X)>201(SL{(X)<1) X 
LAST EYTED: SEP 8, 1987 


NUMBER TYPE A WECLE NUMEER HETNEEN 0 AND 9999999 
Input transfow: 
K:4X" iki (309999999) 1 (XO) 1(X?.E1"."1N.N) X 
LAST EDITED: AUG 21, 1987 


NUMEER «TYPE A WCE NUMBER BEINEEN 0 AND 99999999 
Input 


transfonm: 
K34X" aKE (9099999999) 1 (XO) {(X2.21". INN) X 
LAST SOU%ED: AUG 21, 1987 


FREE TEXT ASESER MET BE 1-30 CARACIERS IN 


Ingut transform: K:92.(X)>30!(SU(X)<1) X 
LAST E0RIED: SEP 15, 1987 
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OTA DICTICNARY #1005 —- 


OXTA 
ELEMENT 





NAME GLORAL 


LOCATION 





ea ee ean iaeeinel 


1005,517.01  AQORESS OF PERSON EAYING 


1005,517.02 


1005, 517.03 


1005, 517.04 


1005,517.1 


1005, 520 


1005, 521 
1006, 822 


1005, 523 
1005,524 
1005, 525 
1005, 526 
1005,526.1 


100,527 


1005, 530 


1005, 531 


506;2 
CYIYOF FER FLING) 5063 


SINTE OF FER PAYING «8-806 ;4 


ZIP COLE OF PER PAYING 


505;3 


DOCS NARRAYIVE OF REL DISEASE 
507;0 


DOCS TREAIMENT/OING «= 508 ;0 


‘TREXIMENT PRICR TO DEATH 
509;0 


‘TREAIMENT OATES (PRE-DEXIH) 
DIRECT CAUSE OF CEATH 510;0 


CONIRTBUICRY CAUSE OF DEXTH 
S11;0 


WAS DERIH DUE 10 WORK 505;7 
EXPLAIN CALBAL RELATIONSHIP 
$12;0 
AUIOPSY/BICESY PERCORYED — 
505;8 
SFOEE 0B 501;6 


TAGE OF MARRIAGE 515;1 





IOC FILE FILE «= CGHRIG NCHS SYSTEM 


STCFED IN “I0c{ 
CESCRIPTIN 


FREE TEXT ASHER MBST BE 1-45 CHARACTERS IN LENG 
Input transform: K:$L{X)>451(SL(X)<1) X 
LAST EDITED: SEP 15, 1967 
FREE TEXT ANSWER MIST BE 1-20 CHARACTERS IN LENGHH 
Input transfoom: K:SL(X)>201(SL(X)<1) X 
LAST EDITED: SEP 15, 1987 
POINIER TO SIME FILE (#1003) 
LAST EDITED: SEP 15, 1987 


FREE TEXT «ANGER MST BE 5-10 CHARACTERS IN LENO 
Input transform: K:SL(X)>10!($L(X)<5) X 
LAST EDITED: Sep 15, 1987 


NEER TYPE A NMEER BETWEEN .01 4 9999999.99 

Input transfomn: S:X{"S" %GP(X,"5",2 
R4X"XE(X!?.NL", "2N) | (309999999. 99) 11x. 01) X 

LAST EDQIED: ALG 21, 1967 

1005.3 WCRD-PROCESSING 


1005.31 WORD-PROCESSING 
1005.32 WORD-PROCESSING 


CAIE Inpt transfom: S WIe"E" D “WT S Hw K:Y¥cl X 
LAST EDITED: AUG 21, i987 


1005.33 WORD-FROCESSING 


1005.34 WOD-FOCESSING 
SET ; “Y’ FOR YES ; ‘N’ FOR ND 
LAST EDITED: AUG 21, 1987 
1005.35 WORD-DECCESSING 
Ser ; "Y’ ER YES sx *N’ KRNO 
LAST EDITED: AUG 21, 1987 


DAE Input transfoum: S WIk"E" D “WT S WY K:yd X 
LAST EDITED: AG 21, 1967 


DATE Input transfoom S$ WIk"E" D “WE S HY Rev X 
LAST EDITED: AUG Zi, 1967 
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DATA DICTTCNARY #1005 — IOC FILE FILE 9 CGHRES/ NCHS SYSTEM SICFED IN “I@( 


OXIA NE GLOBAL DESCRIPTION 
. ELEMENT LOCATION 








1005,532 LIVING W/SHLEE AT LEATH 
515;2 Set ; "Y’ FOR YES ; ‘N’ FOR NO 
LAST ECTIED: AUG 21, 1967 


1005, 533 SEQUSE =PREVIOLSLY MARRIED 
§15;3 SET ; "Y’ FOR YES ; 'N’ FOR ND 
LAST EXITED: AUG 21, 1987 


1005,534 EMP PREVICUSLY MARRIED 
§15;4 SET ; "Y’ FOR YES ; ‘NY FOR ND 
LAST EDITED: AUG 21, 1987 


1005,535 CHILDREN THIS MARRIAGE 
516;0 1005.2 Multiple 


1005.42, .01 NYE 0;1 FREE TEXT 3 ANSWER MST BE 3-30 CHARACIERS IN LENGIH 
(Multiply asked) Input transform: K:$L(X)>301(SL(X)<3) X 
LAST BATTED: AUG 21, 1967 
CRCES-FEFEFENCE: 1005.42°B 
1)= S “IOC(DA(1) 516, "B",SE(X,1,30) ,DA)=”" 
2)= K “ICC(DA(1) ,516, "8", SE(X,1, 30) ,DA) 


1008.42,1 RELATICNSHT? C,2 FREE TEXT «= ANSHER MET BE 3~-30 CHARACTERS IN LENGHH 
Input transform: K:SL(X)>30! (SL{X)<3) X 
LAST EDTIED: AUG 21, 1967 


1005.42,2 DATE CF BIRTH 0;3 CATE Input transform: S WIe"E" D “Wr S Ne K:Ycl X 
LAST EDITED: AUG 21, 1967 


1005.42,3 ACOCRESS 074 FR@E TEXT §3=ANSHER MET BE 1-60 CHARACIERS IN LENGIH 
Input transfoum: K:SL(X)>601(SL(X)<1) X 
LAST EDITED: AUG 21, 1987 


1005.42,4 ary 0;5 FREE TEXT ANSWER MIST BE 1-23 CHARACIERS IN LENGIH 
Input transfoon: K:$L(X)>23!(SL(X)<1) X 
LAST EDSIED: S&P 9, 1987 


1005.42,5 STMIE 0;6 : FOINIER TO SIRIE FILE (#1003) 
LAST EXETED: SEP 11, 1967 


1005. 42,6 ZIP CTE 0:7 FREE TEXT ANGER MBT BE 5-10 CHARACIERS IN LENGIH 
Input transfoun: K:SL(X)>10!(SLAX)<5) X 
LAST EDYIcD: SEP 9, 1987 


1005,536 CHILDREN PRICR MARRIAGE 
517;0 106.43 Multiple 


1005.43, .01 NYE 0;1 FREE TEX? 4ANSYER MOST BE 3-30 CRRACIERS IN LENGIH 
(Multiply asked) Input transform: K:$L(X)>30!(SL(X)<3) X 
LAST EDETED: AUG 21, 1987 
CFOES-FEFERENCE: 1005.43°B 
1}=5 “XX(OA1) 527, "B" ,SE(X,1,30) /TA}="" 
2)= K “RIDA(1), S17, "B", SE(X,1, 30) *TA) 
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DIA DICTIONARY #1005 — IOC FILE FILE CSHRIGALHDS SYSIEM SICFED IN “I07( 








FREE TEXT ANSWER MUST BE 1-30 CHARACTERS IN LENGIH 


CAE = Input transform: S Wle"E" D “ADT S Mey K: Yl X 


FREE TEXT «ANGER MIST BE 1-60 CAARACTERS IN LENGHH 


FREE TEXT ANSKER MST BE 1-20 CHARACTERS IN LENGIH 


FREE TEXT ANSHER MUST BE 5-10 CHARACTERS IN LENGIH 


FREE TEXT = ANSHER MIST BE 3-30 CHARACIERS IN LENTIH 
(Multiply asked) Input transform: K:SL(X)>301($L(X)<3) X 


1)= bs) “10C(DA(1) 518, "B",SE(X,1,30) ,DA)="" 


FREE TEXT ANGHER MIST BE 3-30 CHARACTERS IN LENGIN 
FREE TEXT ANSHER MST BE 1-60 CHARACTERS IN LENGTH 


FREE TEXT 3=ANSWER MST BE 1-23 CHARACIERS 1N LENGIH 


OAXTA NYE GCRAL CESCRIPTION 
ELEYENT LOCATICN 
1005.43,1 RELATIONSHIP 0;2 
Ingut transform: K:$L(X)>30!($L(X)<1) X 
LAST EDITED: AUG 21, 1987 
1005.43,2 DAT CO RIRTH 0;3 
LAST EDITED: AUG 21, 1967 
1005.43,3 ACORESS 034 
Input transfomn: K:$L(X)>60!(SL(X)<1) X 
LAST EDTIED: AUG 21, 1967 
1005.43,4 CTIY 0;5 
Input transform: K:SL(X)>Z0!(SL(X)<1) X 
LAST EDITED: SP 9, 1987 
1005.43,5 STATE 036 FOINIER TO SIMI FILE (#1003) 
LAST EDITED: SEP 11, 1987 
1005. 43,6 ZIP COLE 0;7 
Input transfoum: K:$L(X)>10!(SL(X)<5) X 
LAST EDITED: SEP 9, 1987 
1005, 537 CHILD & LEGAL GUARDIAN 
518;0 1005.44 Multiple 
1005.44,.01 GMD NE 0;1 
LAST EDTIED: AUG 21, 1987 
CROSS-FEFERENCE: 1005. 44°B 
2)= K “TOC(DA(1) 518, "8", SE(X, 1,30) ,DA) 
1005.44,1 CUAROIAN NAME 0;2 
mae Input transform: K:SL(X)>30!(SL(X)<3) X 
LAST EDITED: AUG 21, 1987 
1005.44,2 GUAFOIAN’S ACKFESS 0;3 
Input transform: K:$L{X)>60!(SL(X)<1) X- 
LAST EDTIED: AUG 21, 1987 
1005.44,3 criy 0;4 
Input transform: K:SL{X)>23!(SL(X)<1) X 
LAST EDTIED: SEP 9, 1987 
1005.44,4 STRIE 0;5: FOINIER 10 SIME FILE (#1003) 
LAST EDITED: SEP 11, 1987 
1006.44,5 Pe 0;6 





FREE TEX? ANGER MOST BE 5-10 CHARACTERS IN LENGIH 
Input transform: K:$L(X)>10!(S{X)<3) X 
LAST EOTTED: SEP 9, 1968 
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DATA NYE GLCBAL CESCRIPTICON 
ELEMENT LOCATIN 
1005,538 OTHER DEPENCENIS 419;0 1005.45 Multiple 
1005.45, .01 NAME 0;1 FREE TEXT ANSHER MOST BE 3-30 CHARACIERS IN LENGHH 
(Multiply asked) Input transform: K:SL(X)>30! (SL(X)<3) X 
LAST EDITED: AUG 21, 1967 
CTOSS-FEFEFENCE: 1005.45°B 
lS “TOC(LA(1) ,519,"B",SE(X,1,30) ,DA)="" 
2)= K “T0C(DA(1) ,519,"B" ,SE(X,1, 30) ,DA) 
1005.45,1 RELATICNSHIP 0;2 FREE TEXT ANSWER MBT BE 3-30 CHAAACIERS IN LENG 
Input transform: K:$L(X)>30!(SL(X)<3) X 
LAST EDTIED: ALG 21, 1987 
1005.45,2 OXTE OF BIRTH 0;3 CX ss Inpt transform: S Wle"E" D “WT S Mey Ks Yel X 
LAST EDTIED: AUG zl, 19387 
1005.45,3 ACCRESS 0;4 FREE TEX® 4 ANSAER MLBT BE 1-60 CHARACTERS IN LENGIN 
Input transform K:90(X)>60!(SL(X)<1) X 
. LAST EDITED: AUG 21, 1987 
1005.45,4 CITy 0;5 SREE TEXD «4ANSHER MST BE 1-23 CHARACIESS IN LENIN 
- Input transfoom: K:$L(X)>23!(SL(X)<1) X 
LAST EDITED: SEP 9, 1987 
1005.45,5 SIME 0;6 POINIER TO SIME FILE (#1003) 
LAST EDITED: SEP 11, 1987 
1005.45.6 ZIP COLE 0;7 FREE TEXT ANGER MBT Be 5-10 CHARACTERS IN LENGIH 
Inpt transfoom: K:$L(X)>10!(SL(X)<5) X 
LAST EDITED: SEP 9, 1987 
1005,539 OTHER DEPEND (CB 515;5 DATE Input transfoon: S WT="E" D “MOT S Me K: <1 X 
LAST EDITED: AG 21, 1987 
1005,540 OTHER CEPEND OCCURATION 
515;6 FOINIER TO CCOCLEATION FILE (#10021) 
LAST EDITED: SEP 11, 1987 
1005,S4] OTHER DEFEND SSN §15;7 FREE TEXT AMSWER MBT BE 9 CHARACIERS IN LENGIH 
Input transform K:$L(X)>9! (SL(X)<9) 1" (X?9N) X 
LAST EDITED: SEP 11, 1967 
1005, 542 ODER DEPEND RELATIONSHIP 
§15;8 FREE TEXT ANGER MBT BE 3-30 CHARACTERS IN LENCIH 
Ingut transfoosx K:S1{X)>30! ($L(X)<3) X 
LAST SYED: AG 21, 1987 
1005,543 PARTITAL/TOIAL DEPENCENCY 
§15;9 Ser; 'T? FOR DOIN. ; 'P’ FOR PARTIAL 


LAST EDITED: SP 9, 2547 
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DATA NYE GLOBAL 
SLEMENT LOCATION 
1005,544 AM? CONTRIB DEP PRICR 1) DENIH 
§15:10 
1005,545 DEP W/EMP 12 MOS PRICR TO DIN 
520;1 
1005, 546 TOIL ROOM/BOARO EXTRA 
‘ "82032 
1005,546.1  RCCM/ECARD BASIS §20;5 
1005,547 VALUE RYVeD UF NO FIXED AMT 
520;3 
1005,547.1 ‘VALUE BASIS 520;4 
“1005 , 548 TYPE CF WORK PERECRMED 
§23;1 
1005,548.1 PERIOD CF EMPLOWENT «= 523;2 
1005,548.2 MONTHLY PAY RIE 523;3 
1005,548.3 NAME CF EMPTOR §23;4 
1005,548.4  ACCRESS OF EMIOVER ©5035 
1005,548.5 CITY CF EMPLOYER 52336 











SMCFED IN “Icc( 
DESCRIPTION 








NUMEER «TYPE A NUPGER REINEEN .01 AND 9999999.99 
Input transform: S:X["$" X=6P(X, "$",2) 
K:+X XE (X'? NL". "2N) f (309999999 .99) 1 (X<.01) X 
LAST ENTIED: AUG 21, 1987 


Ser ; ’Y’ FOR YES ; 'N’ FOR ND 
LAST EDITED: AUG 21, 1987 


NUMBER = TYPE. A NUMBER BETHEFT! 0 AND 99999 
Ingut transform: S:X{"$" %=6(Xx,"$",2) 
K34X' eX"? NL". 2N) | (X>99999) 1(x<0) X 
LAST EDITED: AUG 24, 1957; 


SET ; "W" FOR WEEKLY ; ‘M’ FOR MNIHLY ; 
"R’ FOR BI-WEESLY ; ‘A’ FOR ANNALLY ; 
‘D’ FOR CAILY , 
LAST EDITED: S@P 10, 1987 


NUGER TYPE A NUMBER BETINEEN 0 AND 9999999.99 
Inpst transform: S:X["S" %=SP(X,"$",2) 
K:4X' XE (X!PNL"."2N) 1 (X9999999.99) 1 (KO) X 
LAST EDITED: ALG 24, 1987 


SET ; "W’ POR WEEKLY ; 'M’ POR MONIMLY > 
"B’ FOR BI-WEEKLY ; °A’ FCR ANNLALLY ; 
"DY FOR CALLY 
LAST EDITED: SEP 10, 1987 


FREE TEXT «= ANSMER MUST BE 1-30 CHRAACIERS IN LENGTH ~~ 
Inpst transfoom: K:5L(X)>30!(SL(X)<1) X 
_ AST EDITED: SeP 15, 1987 


FREE TEXT 9 ANEWER MUST BE 1-30 CHAFACIERS IN LENGIH 
Inpt transfor: K:9(X)>301(SL(X)<1) X 
LAST EDITED: SEP 15, 1987 


NMEER TYPE A NUMBER EINEEN 0 AND 9999999.99 
Input transfomm: S:X["5" %GP(X,"5",2) 

Ks 4X0 aE (X97 NE". "2N) 1 (309999999.99) 11KK0) X 
LAST EDITED: SEP 15, 1987 


FREE TEXT 9 ANEHER MST EE 1-30 CRRACISRS IN LENZ 
Input transfoom: ‘K:$L(X)>30!(SL(X)}<L) X 
LAST EDITED: SEP 15, 1967 


FREE TEXT 3 ANSHER MST BE 1-60 CHARACIESS IN LENGIH 
Input transform: K:SL(X)>601(SL(X)<1) X 
LAST EDTIED: SEP 15, 1987 


FREE ‘TEX! «= ANSHER MUST Bf 1-20 CHARACTERS IN LENGIH 
Inpt transfoom: K:SL(X)>201(SL{X)<1) X 
LAST EDITED: Sep 15, 1987 
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FREE TEXT ANSWER MUST SE 5-10 CHARACTERS IN LENGIH 
Input transfoum: K:$L(X)>10!(SL(X)<5) X 


NUMBER «= TYPE A NUMBER BETKEEN 0 AND 5399999.99 
Input transfoom: $:X{"$" %6P(X,"$",2) 
K:4X" KG (X"2.NL".°2N) 1 (309999969.99) 1(X<0) K 


NOGER TYPE A NLNEER BEINEEN 0 AND 9999999.99 
Inpx transfoom: $:X{"S" %-SP(X, "5", 2) 
Rz4X" aki (X°2NL"."2N) (109999999 .99) 1 (X00) X 


NIGER TYPE A CUMEER BEIVEFN 0 AND 9999999 .99 
Ina transform: S:X["S" %6P(X,"S",2) 
KK: 4X" 9KG(X"2.NL” ."2N) 1 (X>9999999.99) $(X<0) X 


NUMBER «= TYPE A NUMBER BEIWEEN 0 AND 9999999.99 
Input transfoonm: $:x{"S" 4=6P(X,"$",2) 
ks 4X! XG (X72 NL", "2N) 1 (399999999.99) 1(X<0) X 


NUMBER «= TYPE A NUMBER BETWEEN 0 AND 999999999.99 
Inpt transform S:X{"S" -62(X,°$",2) 
Ks4X XE (X"2.NL". 2N) 1 (90999999999.99) 1{XC0) X 


OME = Inn transform: 5 WIk"E" D “WT S MY K:¥ X 


FREE TEX? 9 ANGAER MST BE 1-30 CHARACTERS IN LENGIH 
Inpk transfoom: K:9L(X)>301(SLiX)<l) X 


TOC FILE FILE «= CGH SYSTEM SEED IN “ICC 
DATA NE GLOBAL DESCRIPTICN 
ELEMENT’ LOCRIION 
1005,548.6  SIRIE OF ELOER §23;7 FOINIER 10 SINIE FILE (#1003) 

LAST EDTTED: SEP 15, 1987 
1005,548.7 Zip QE OF EMELOVER «5238 
LAST EDITED: SEP 15, 1987 
1005,549 INVESTMENTS §24;1 
LAST EDTTED: SEP 15, 1987 
-1005,540* —- PENSICNS CF OD@R DEPENDENT 
524;2 
LAST EDITED: SEP 15, 1987 
1005,549.2 PERSONS OTHER THAN EMELOWEE 
§24:3 
LAST EDITED: SEP 15, 1587 
1005,549.3 ODER INCOME FOR CEPENENTS 
52434 
LAST EDITED: SEP 15, 1987 
1005,549.4 TOINL CEFENDENTS INCOME 
$24:5 
LAST EXITED: S#P 15, 1987 
1005,550 DEPEND SROLEE OCB §20;6 
LAST EDITED: AUG 21, 1987 
1005551 DEPEND SECUSE CCOUBATICN 
§20;7 FOINIER 10 COQUBRTTON FILE (#1001) 
LAST EDITED: SEP 11, 1987 
1005, S62 DEPEND SPOUSE MNIHLY WAGE 
520;8 
LAST EDITED: AG 21, 1987 
DEPEND INCOME 12 OS PRICR 


1005, 553 


52039 


NUMBER «= TYPE A NUMBER BEIWEEN .01 AND 9999999.99 
Input transioam: S$:X("$" %GP(X, "$",2) 

24K" KG (X" 21". "2N) £ (X>9999999 99) 1(X<.0L) X 
LAST EDITED: AG 21, 1987 
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CAGA NYE GLOBAL LESCRIPTICN 
ELEMENT LOCATION 
1005, 554 CEPENDS PECRERTY S21;¢ 1056.8 smltiple 
1005.48, .01 DEFENDS PRCFERIY 0;1 FREE TEXT ANSR MST Be 1~40 CHARACIERS IN LENGIH 
Input transfoom: K:L{X)>401(SL(X)<1) X 
LAST EDITED: SP 1, 1987 
CROSS-FEFEFENCE: 1005. 48°B 
1)= Ss “IOC(DA(1) 521, "B" ,SE(X,1,30) DA} 
2)= K “TOC(OA(1) S21, "B",SE(X,1, 30) ,DA) 
1005. 48,1 DATE ACQUIRED 0;2 FREE TEXT ANSYER MST BE 1-10 CHARACTERS IN LENCHH 
Input transfoom: K:S1(X)>101(SL(X)<1) X 
IAST EDYTED: S#P 1, 1987 
1005. 48,2 VALLE 0;3 NUMER ‘TYPE A NUMGER PRIMEEN .(1L AND 9999999.99 
Input. transform: S:X{"S" #6P(X, “$",2) 
Ke4X' Xe, (X!? NL". PN) f (X09999999.99) 1(X<.01) X 
LAST ENTIED: AUG 21, 1567 
1005, 555 ACDRESS OF PERSON SING GASB 
522;) FREE TEXT ANGHCR MBT Bf 1-60 CHRRACIERS IN LENGIH 
Input transfnem: K:$L(X)>60! (SLAX)<L) X 
LAST EDITED: SeP 15, 1967 
1005,555.1 CITY GF PERSON STNG CS 
§22;2 FREE TEXT ANGKER MST BE 1-20 CHARACTERS IN LENGIH 
Input transform: K:SL(X)>201(SL(X)<1) X 
LAST EDITED: SEP 15, 1967 
1005,555.2  STNME OF PERSON SIGNING CAS ae 
: 522;3 POINIER TO SIMTE FILE (#1003) 
LAST EDITED: SEP 16, 1967 
1005,555.3 ZIPCODE CF PERSKN SIGNING CAS 
52234 FICE TEXT ANSWER MUST BE 5-10 CHARACTERS IN LENGIH 
: Input transfomn: K:SL(X)>101(SL{X)<5) X 
LAST EDITED: SEP 16, 1987 
1005,603 CAUSE OF DERG 600;4 FREE TEXT ANSHER MUST BE 3-30 CHARACIERS IN LENGIH 
Input trarsfoom K:S(X)>301(SL(X)<3) X 
LAST EDTIED: AUG 21, 1967 
1005 ,605 EMPLOYED IN DUTY 11 MS 
60;2 SET ; 'Y’ FOR YES ; ‘N’ FOR ND 
LAST EDITED: AUG 21, 1987 
1005, 606 DUTY AFFCRLED 11 0S WORK 
600;3 Ser; ‘Y’ FOR YES ; ‘NY RRND 
LAST EXCITED: ALG 21, 1987 
1005,609 ATTORNEY NAME 601;2 FREE TEXT «ANGHER MUST BE 1-30 CHARRCIERS IN LANGIH 





Ingut transfoon K:SL(X)>301(SUAX)<L) X 
LAST EDITED: SEP 15, 1967 
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18 30, NYE GLOBAL DESCRIPTION 
ELEMENT LOCATION 
1005,609.1 ATTORNEY ACORESS 601;2 FROE TXT «=NEPER MBT BE 1-54 CHARACTERS IN LENGIH 
; Ingut transfomm: K:SL(X)>541($L(X)<1) X 
LAST BOETED: Sep 15, 1987 
1005,609.2 ATIORREY CITY 601;3 FREE TRE 4=ANGHER MET BE 1-20 CHARACTERS IN LENTH 
Input teaneform: K:SU(X)>20!1($L(X)<1) X 
LAST MEETED: SEP 15, 1987 
1005,000.3 ATTORNEY SINE 60134 FOINTSR DD SIRIE FILE (#1003) 
LAST Smep: Sep 15, 1967 
1005,609.4 ATTORNEY ZIP Ore 6;5 FREE TERT «= AGHER PLT BE 5-10 CHARACIERS IN LEG 
Ing teanmform: K:$1(X)>10! (SL{X)<5) X 
LAST SEED: Sep 15, 1967 
1005, 610 CLAIM FILED WOR: 600;5 ST ; °Y FOR YES ; ‘NY ARNO 
LAST 20N7ED: AUG 21, 1987 
"005,611 NEXT CF KIN 602;1 FREE TEXT «= ANGHER MLB BE 1-35 CHARACIERS IN LENG 
Input temnefone: K:SL{X)>351(SLAX)<L) X 
LAST SETED: SEP 15, 1987 
100%,,611.1 ACORESS OF NEXT OF KIN 
32 FREE TEXT ANGWER MST SE 1-54 CHARACTERS IN LENGIH 
; Irgut teamsfoom: K:91(X)>541(SL(X)<1) X 
LAST EEEND: SEP 15, 1967 
1005,611.2 CYIYCPNEXTOP KN) 622;3 FREE TERE 4=ANGRER MUST BE 1~20 CHARACIEFS IN LENG 
Input temsfoom: K:SL(X)>201(SL(X)<1) X 
LAST SXRD: SEP 15, 1967 
106,61..3 SIGE CQ NExTOP NN 602;4 FOINIER ‘DD SIMIE FILE (#1003) 
LAST SRTED: SEP 15, 1987 
10% ,611.4 ZIP COLE OF Nexr OF KIN 
02:5 FREE TEE «= AMNGHER MST BE 5-10 CHARACIERS IN LENGIH 
Ip tomsform K:$2{X)>10! (S21X)<5) X 
LAST EDEED: SEP 15, 1987 
1005,611.5 RELATICNSHIP OF NEXT OF XIN 
6236 FREE TERT «=ANGHER PET GF 1-20 CHAFCIERS IN LENGIHH 
Inns temsfoom: K:SLX)>20!(SAX)<1) X 
LAST SOEHD: SEP 15, 1987 
1005, 612 LOCATON OF O&AUH 600;1 FREE TERE 9ANGAER MST BE 1-30 CHAPACIERS IN UNH 
Input temeforms K:SL(X}>301(SLX)<L) X 
LAST EXE: SEP 4, 19687 
1005, 70. DAME WAGES LOST FROM 700;7 ORQE Inge transfoom: S WIe"E" D “WOT S Me K: Yc) X 
LAST SP 9, 1987. 
1005,701.5  ORTES “ACES LOST THRU 700;9 OAIE Inget tranefoem: S W'S" D ADT S HY K:Ycl X 
LAST EDR: SEP 9, 1987 
1005, 702 HS Ce CADED 700;2 


NUMGER ‘RPE A LUMBER BEIREEN 0 AND 999 
input tamefomm: 








Rs4X?=id1 (90999) 1 (0) 1(X?-EL"."NN) X 
LAST EDITED: AG 25, 1987 














oe mS 














DRI DICTICNARY #1005 — IOC FILE FILE CEHREGACHINS SYSIEN SICRED IN “KX( 
DAA NYE GLOEAL . PESCRIPTICN 
ELEMENT LOCATION 
1005, 703 SCHEDULE ANARO 700;3 Se? ; ’Y’ FOR YES ; 'N’ FOR NOD 
LAST EDTTED: ALG 21, 1987 
1005, 704 WAS ANY PAY RECEIVED = 700;4 Set; ‘Y’ FOR YES ; ‘N’ FOR ND 
LAST EDQIED: AUG.21, 1987 
1005, 708 APPLY/RELVD VA BENEFTIS 
700;8 SET ; "Y’ FOR YES ; ’N’ FOR NO 
- LAST EDITED: ALG 21, 1967 
1005, 710 VA CLAIM NUMEER 701;1 FREE TEXT 34ANSAER MOST BE 1-15 CHARACIERS IN LENG 
Input transfoom: K:5L(X)>151($L(X)<1) X 
LAST EDYTED: SEP 16, 1967 
1005,710.1 VA CEFICE WERE CLAIM FILED 
701;2 FREE TEXT §3=ANSHER MET BE 1-30 CHARACIERS IN LENGIH 
Inpx transform: K:SL(X)>30!1(SL(X)<1) X 
LAST EDITED: SEP 16, 1987 
1005,710.2 VA STREET ADDRESS 701;3 FFEE TEXT ANGER MUST BE 1-54 CHARACTERS IN LENGIH 
Input tranefoem: K:$L(X)>541(SL(X)<1) X 
LAST EDTTED: SeP 16, 1967 
1005,710.3 WACTIY 701;4 fREE TEXT «ANSHER MST BE 1-20 CHAFECIERS IN LENGIH 
Input transfoom: K:SL(X)>20! (SL(X)<1) X 
LAST EDITED: SEP 16, 1987 
1005,710.4 VA SINIE 701;5 POINTER TO SIMTE FILE (#1003) 
LAST EDITED: SEP i6, 1987 
1005,710.5 VA ZIP Cre 701;6 FREE TEXT = ANSHER MT BE 5-10 CHARACTERS JIN LENGIH 
Input trensfoum: K:SL(X)>191(SL(X)<5) X 
LAST EDTIED: SEP 16, 1947 
1005,710.6 VA NATURE CF DISABILITY 
701;7 FREE TEXT ANSHER MBT BE 1-57 CHARACIERS IN LENT 
Inet transform: K:$1(X)>57!(SL(X)<1) X 
LAST EXITED: SEP 16, 1987 
1005,710.7 VA AMOLNT CE PAYMENT «701;8 NUMBER «TYPE A NUMEER GEIWEN 0 AND 99999.99 
Inpx transioem: S:X["5" %6P(X,"$",2) 
R4X’ XE (X"?NL". "2N) | (3099999.99)1(X<0) X 
LAST EDITED: SEP 16, 1987 
1005, 713 ANY ODER RETIFE/OLSAGILITY 
700;10 SET; ‘Y’ FOR YES ; ‘N’ FOR NO 
LAST EXITED: AG 21, 1967 
1005, 714 OCHER ANNUITIES CLAIM NUMER 
70732 FREE ‘TEXT ANGER MST BE 1-15 OFARACIERS IN LENGHH 
Inpt transform: K:SL(X)>15! (SL(X)<1) X 
LAST EDTTED: SEP 16, 1967 
1005,714.1 OTHER ANNUITY DONTE EEGAN 


707;2 OME Ino transform: S Wle"E" D “SDT S Me K:¥cl X 
LAS? EDITED: SEP 16, 1987 
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1005,714.2 ODER ANNUITY MONT 707;3 NPEER TYPE A NUPRER BEINERN 0 AND 9999999.99 
; Input tranefoum: S:X{"5" 62(X, °$",2) 
Kz-4X" 9G (X"?.NL", "2N) 1 (309999999,99) 1(%<0) xX 
LAST EDITED: SEP 16, 1987 - 
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OAT 
ELEMENT 


rman ccna en ep ASA A AEST CIE CLT CLEA EAI SSCS ENE EO AON: 


1005, 714.3 
1005, 714.4 
1005,714.5 


1005, 714.6 


1005, 714.7 
105,720 


1005, 722 


1005.708, .01 


1005.708,1 


100f .708,2 


1005. 708, 3 
1005.708,5 


1005.708,6 
1005.708,7 


NAME GLOBAL 


LOCATION 


OTHER ANNUITY CEFICE = 707;4 


OTHER ANNUITY SIREET ACCFESS 707;5 


OTHER ANNUITY CITY 707;6 


OTHER ANNUITY SINE = 707;7 


ODER ANNUITY ZIP OLE 707;8 


CEYTCIAL REYARSS 402 
CEPENCENT IN®O 706;0 
NYE 0;1 
BIRITAIE 0;2 
FELATIONSHIP 0;3 


LIVING WITH YOU 0;4 


SLPECRT PAYENTS? «= 06 


CROEFED RY TE CARI? 0;7 
AMCLNT CF EAYMENIS §=0;8 


FREE TEX §=ANGVER MBT BE 1-30 


Input trarsfomm: K:SL{X)>301(SL{X)<l) X 
LAST EXNTED: SEP 16, 1987 


FREE TEXT ANGER MIST BE 1-54 CHARACIERS IN LENGIH 
Inpat transfoum: K:SL(X)>541(SLX}<1) X 
LAST EDETS: SEP 16, 1987 


FREE TEX? «ANGER PLT BE 1-20 CHARPCIESS IN LAG 
Input transfonm K:$L(X)>201($L(X)<L) X 
LAST EXERD: SP 16, 1987 


FOINIER WO SIMIE FILE (#1003) 
LAST EORTED: SEP 16, 1987 


FREE TEXT §=#AGER MST BE 5-10 CHARACIERS IN LENGIH 
Innt transfoom: K:SL(X)>1C! (SL{X)<5) X 
LAST EXQTD: Sep 16, 1967 


FREE TEXT GER MOST AE 1-50 CHAAACIERS IN LENGIH 
Input. transfoum: K:$L(X)>501(SL{X)<L) X 
LAST EDITED: SEP 16, 1967 


1005.708 ANSWER MST BE 1-30 CHARACIERS IN LENGIH 
LAST EDYTED: AUG 21, 1987 = Multiple 


FREE TEXT 9=AMGER MST GE 1-30 CHARACIERS IN LANGIH 
(Multiply asked) 

Input transfoom K:SL(X)>301(SL(X)<1) X 

LAST EDITED: AUG 25, 1987 

CROES-FEPPFENCE: 1005. 708°B 

a)@ S “TOCKTA(1), 706, "B* ,S2(X, 1,30) ,TA)=a"” 

2)e= K “EXYCA(L) 705, "3" ,SE(X,1,30) ,DA) 


CAE Mt transfoow S Wmh"E" D “WI S HY K:Y¥d. X 
LAST FORIED: AG 5, 1987 


FREE TEXT 9 ANGKER PLBT BE 1-15 CHARACIERS IN LENGIH 
input tranefcm: K:SL{(X)>151(SL(X)<1) X 
LAST EDTMD: AMG 25, 1987 


SET ; "YES’ FOR YES ; "NO’ FOR NOD 
LAST EDIT: SEP 16, 1987 


SET ; ’Y’ MR YES ; ‘NY KR ND 
LAST EDITED: SEP 16, 1987 


Set; ‘Y FOR YES ; ‘N’ FOR NO 


NIGER ‘WHE A NUGER BETKEEN 0 AND 9999.99 
Input transfome: S:X{"S" ¥GP(X,"$",2) 
KX? oXE(X" 2 NE” .2N} | (9999.99) 1(K<0) X 
LAST E00%D: SEP 9, 1987 
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DACA OICTICNARY #1005 — ICC FILE FIDE © CGHRKS/ACHIIS SYSTEM STCFED IN “ICC( 
DAIA NYE GLOBAL DESCRIPTION 
ELEMENT LOCNTTION 
1005.708,8 FER 0;9 SET ; ‘M’ FOR MONTHLY ; ‘W’ FOR VEERLY ; ‘B’ 
FOR BI-WEERLY ; ‘A’ FOR ANNALLY 
LAST EDITED: SEP 9, 1987 
1005.708,9 STREET ACCFESS 0;5 FREE TEXT ANSWER MST BE 1-30 CHARACIERS IN LENGHH 
Input transfoom: K:$L(X)>30!(SL{X)<1) X 
LAST EDITED: SEP 9, 1987. 
1005.708,10 ctly 0;10 FREE TEXT 9ANSVER MST BY 1-30 CHARACTERS IN 
Input transform: K:$L(X)>30!(SL{X)<1) X 
LAST EDITED: SEP 9, 1987 
1005.708,11 SIME 0;11 FOINIER O SIMIE FILE (#1003) 
1005.708,12 wzPdare 0;12 FREE TEXT 3 FORMAT: XOXO OR OOK 
Input transfoon: K:$L(X)>10! (SL(X)<5) X 
LAST EDITED: SEP 9, 1967 
1005, 727 TOINL YRS CIV SERVICE 704;2 NUGER TYPE A WHOLE NUMER BETWEEN 1 AND 50 


1005, 727.5 


105,728 
1005, 728.1 
1005, 729 
1005, 729.1 
1005,729.2 


1005,73) 


1005, 801 
1005, 802 
1005, 806 


TOTAL MOS CIV SERVICE 700;5 


OP ENCLLED IN FEB 704;3 

PAY PERICD BND ORTE FOR HBS 700;6 
EMP ENFCLLED IN CET LIFE INS 704;4 
LIFE INS CPTICN 704;5 


HOW MANY CPT/B MILTIPLES 704;6 
FEREN TOCNIACT. 700;1 


FERFGRSE EWE 704;1 
STRIE REASON FOR NOP WORKING 801;0 
PAY FECVD DURING COMP 704;7 


Input tranefionm: K:4X' =X! (3050)! (X<L) 1 (X?.E1". "IN.N) X 
LAST EDITED: SEP 9, 1967 


NUMBER TYPE A WHOLE NUMBER BEINEEN 1 AND 11 
Input transfoun: Ke+X/eiKl (O11) 1 (XL) 1 (X2. El" ."IN.N) X 
LAST EDITED: SEP 9, 1987 

Ser; 'Y’ POR YES ; ‘N’ FOR ND 

CAE Input trensfocm: S WI\"" D “WIS MY KY X 
JAST EDITED: SEP 9, 1967 

SET ; 'Y’ POR YES ; ‘N’ POR NO 

SET ; ‘A’ RRA; 'B’ RRB; ’C’ RRC 

LAST EDITED: SEP 28, 1987 

FREE TEXT «ASHER MUST BE 3-30 CHARACIERS IN LENTIH 
Input transfiomm: K:$L(X)>30! (SL(X)<3) X 


SEY ; ‘S’ FOR SUPERVISCR ; ‘0’ FOR ODER 
LAST DOPIED: SEP 16, 1987 


SET ; ‘Y" FOR YES ; ‘N’ FOR NO 
1005.702 WORD-FROCESSING 
Set; 'Y’ RR YES; 'N’ RRN 


C-86 








cee en ee 





DATA DICTIONARY #1005 — ICC FILE FILE OSHAKS/ACHINS SYSIEM SIORED IN “ICC{ 





DATA NE GLOBAL CESCRIPTIEN 
ELEMENT LOCATION 
~  1005,808 COMMISSION & SELF-EMP &12;0 1005.725 Multiple 

1006.726,.01  DXIES & HOURS WORRED 0;1 FRE TEXT ORAT: MOAR-MU/YR XXX HS (Multiply asked) 
Input transfoum: K:$L(X)>201(SL{X)<1) X 
LAST EDITED: AUG 28, 1987 
CRCSS-HEFERENCE: 1005.726°B 
L)= S “IQC(DA(1) ,812,"B" ,SE(X,1,30) ,DA)="" 
2)= K “ICC(OA1) ,812,"B",S2(X,1,30) ,OA) 

1005.726,1  NNECFRSINSS 02 FREE TEXD ANGER MET BE 1-30 CRAACIERS IN LANGIH 
Input transform: K:SL(X)>301(SL(X)<1) X 
LAST AG 28, 1967 

1005.726,1.1  SIFEET ACDRESS 0;6 FPE TEX® §=ANEKER MET Be 1-45 GHARACIERS IN L2G 
Inpt transfoom: K:SL(X)>451(SLAX)<L) X 
LAST EDITS: SEP 8, 1967 

1005.726,1.2 CMY 0;7 FRCE TEXT «ANGER MST BE 1-23 CHRRACIERS IN LENGHH 
Inpx transform: K:SL(X)>23!(SU(X)<1) X 
LAST EDITS: SP 8, 1967 

1005.726,1.3 SINE 0;8 FOINIER 30 SIMIE FILE (#1003) 

1005.726,1.4 ZIP GLE 0:9 FEE TEXT ANSWER MST Be 5-10 CHARACTERS IN LENGIH 
Input transform: K:SL{X)>101(SiX)<5) X 

1005.726,2 SELF-EMPLOYED CR COMMISSICN 0;3 SY; °S’ FOR SELF-EMELOWD ; 'C’ KR COMMISSION 

1005.726,3 TYPE OF ACTIVITY PERFCRED 0;4 FREE TEX «ANGER MST BE 1-20 CHAFACIERS IN LENG 
Input transfoom: K:S1{X)>201(SL(X)<1) X 
LAST EDTTED: AG 28, 1967 

1005.726,4 INGE CERIVED 0;5 FREE TEXT «ANGER MST BE 1-30 CRAACIERS IN LENGIH 
Input transfoom: K:$L(X)>301(SL(X)<1) X 
LAST EDITED: AUG 28, 1987 

1005, 811 TRAINING REGISTRATION NUMBER 804;1 FREE TEXT «ANSWER MT BE 1-30 CHARACTERS IN LENGIH 
Input transform: K:SL(X)>301 (SL{X)<1) X 
LAST EDITED: SEP 16, 1987 

1005,811.1 ‘TRAINING SIFEET ADDRESS 804;2 


FREE TEX «ANGER MST BE 1-54 CHARACIERS IN LENG 
Input transform: K:S0(X)>541(SUAX)L) X 
LAST EDIiGD: SEP 16, 1987 


C-87 





i | zs . 





OAOA DICTIONPRY #1005 —- I0C FILE FILE 340 CGHEXS/ACHIPS SYSTEM SICFED IN “ICC( 





DRO Neve GLOBAL DESCRIPTICN 
‘ELEMENT LOCATION 
1005,811.2 ‘TRAINING CrIy 804;3 FREE TEX? «= ANSHER MET BE 1-20 GHRFACIERS IN LAGI 
Input transform: K:SL(X)>201(SL{(X)<1) X 
_ TAST EDITED: =P 16, 1987 
1005,€11.3 TRAINING SINE 804;4 POINIER 1D SIME FILE (#1003) 
1005,811.4 TRAINING ZIPQQE —-804;5 FEE TEXT «ANSWER MST FE 5-10 GRARCIERS IN LANG 
Input tranefoom: K:$L{X)>101($L(X)<5) X 
LAST EDITED: SEP 16, 1987 
1005,811.5 "TRAINING DATE OF REGISTRATION 804;6 DATE Input trensfoum: $ Wik"e" D “Wr S HY K:Yd} 
LAST EDITED: SEP 16, 1987 
1005,812 EMP RECEIVED MONIES FRM OP 704;8 ST ; 'Y FR YES ; (NY RRND 
LAST EDITED: AUG 21, 1987 
105,816  ERAINGES NEP HOYLE 805;0 1005.705 WORO-FTOOESSING 
1005,1601 ‘TRERIMENT/@OM FOR GLEE 1600;1 SEP ; "A’ FOR AGRE TD FEE SUEDE ; 
mB’ FOR FURNISH NECESSARY TRENIMENT' NOT SURCERY ; 
'C’ FOR BOM FOR O08 RELATED CRUSE & TRENIMENT 
LAST EDITED: AUG Zi, 1967 
1005,1604 MEDICAL CARE FRCILITY 1601;1 FREE TEXY «ANGER MBT Be 1-30 QPRACIERS IN LAGE 
Inoue transform: ¥.:SL(X)>301(SL(X)<1) X 
LAST EDITED: SEP 16, 1987 
1005,1604.1 MED CARE SIREET ACDRESS 1601;2 FREE TEX? «ANGER MET BE 1-54 CHARACTERS IN LENG 
Ina trenmsfonm: K:$L(X)>54!(SL{X)<1) X 
LAST EDITED: SEP 16, 1987 
1005,1604.2 MED CARE CTIY 1601;3 FREE TEXT «ANGER MIST BE 1-20 CRFACIERS IN LENGIH 
Input transfonm: K:SL(X)>201(SL(X)<L) X 
LAST EDYIED: SEP 16, 1987 
1005,1604.3 MED CARE SINIE 1601;4 FOINIER 1D SINTE FILE (#1003) 
LAST EDTIED: SEP 16, 1987 
1005,1604.4 MEDCAREZIPQTE -—1601;5 FREE TEXT ANEHER MOST EE: S-10 CHARACTERS IN LANGHH 
, Input transfoom: K:SL{X)>101(SL{X)<S) X 
LAST EDITED: SEP 16, 1987 
1005,1605  HISIORY EMPLOWEE GWE DOCIR 1602;0 “1005.25 WORO-PROCESSING 
1005,1606  PRES/FRIGR CENDTTIEN «1600;3 SEY ; "Y" OR YES ; 'N’ PORNO 
LAST EDITED: SEP 28, 1987 
1005,1606.1 EXPLAIN IN/OIS/IP —«1607;0 1005.26 WORD-PROCESSING 
1005,1607 000 RELIEVE ING WORe-feL, 1600;5 





C~88 


SET ; "Y’ FOR YES ; ‘N’ FOR ND 
LAST EDTIED: SEP 28, 1987 








< qe ee 





ONTA DICTICNARY #1005 — IOC FILE FILE 4 OGHRKS/ACHIMS SYSTEM SICFED IN “ICC 


CAA 
ELEMENT 


NE GLOBAL 


LOCATION 


CESCRIPTICN 





* 1005, 26.7.1 
1005,1608 


1005, 1608.1 
1005, 1608.2 
1005, 1609 


1005, 1610 


1005, 1611 


1005, 1612 
1008,1613 
1005, 1614 


1005,1615 
1005.37, 01 
1005, 1616 
1005, 1617 
1005, 1618 


1005,1A19 
1005, 1623 


DOC EXPLAIN-DNO? WORK RELATED 1604;0 
REQUIRE HOSPTIALIZATION 160074 
ADMISSION DATE 1500;6 
DISCHARGE OXTE 1600;7 
ADDITICNAL HOSPTTALIZATICN 1600;8 


SURGERY REQUIRED 1600;9 


SURGERY OAXIE 1600;10 


ODER TREXIMNT PROVIDED 1605;0 


PERPNENT EFFECIS 1606;0 

CATE CF 1ST EXAM 1600;11 

TREATMENT DATES 1607;0 
‘TREATMENT COXTES 0;1 


DATE DISCHARGED FROM TRERIMENT 1600;12 


ORGS RESUME LIGHT WORK 1600;13 


OPRGE RESUME REG WORK «= 1600;14 


EXPLAIN EMP WORK LIMTIAITIONS 1608;0 


AUTHORIZING CEFICIAL NAVE 1610;2 


1005.27 WORD-FROCESSING 


SET ; *"Y’ FOR YES ; 'N’ FOR NOD 
LAST EXTIED: SEP 28, 1987 


DATE Input transform: S Wle"E" D “WOT S MeY K:¥<l X 
LAST EDITED: AUG 21, 1987 


DME Input trensfoon: S Wle"E” D “Wr S Me K:Ycl X 
LAST EDTIED: AUG 21, 1987 


SEP; ‘Y’ FOR YES ; 'N’ FOR NO 
LAST EDITED: SEP 23, 1987 


FREE TEXT «ANGER MUST BE 2-30 CHARPCIERS IN LENO 
Input tranefoem: K:SL(X)>30! ($L(X)<2) X 
LAST EDTIED: AG 21, 1967 


ORTE Input transform: S WOIe"E” D “MOT S Mey K:ycl X 
LAST EXITED: AUG 21, 1987 


1005.28 4WORD-PROCESSING 
1005.29 WORD-PROCESSING 


OMIZ Inpt transform: S Wie"E" D “WT S Mey K:Y<l X 
LAST EDTIED: AUG 21, 1987 . 


1005.30ME multiple 

OME (Multiply asked) 

Inpt transform: S WINE" D “WT S HY KY X 
LAST EXITED: ALG 21, 1987 


DATE Int transtoon: S Wik"E" D “MOT S MY KY) X 
LAST EDITED: AUG 21, 1987 


DME Input transform: S Wle"E" D “MOT S Me K: <1 X 
LAST EDTIED: AUG 21, 1987 


DPE Input transform S Wile"E" D “WT S HY Kevdl X 
LAST EDTTED: ALG 21, 1987 


1005.39 WORO-PFOCESSING 
FREE TEXT «= ANGHER MST BE 1-30 CHARACIERS IN LENGIH 


Inpt trarsform: K:$L(X)>30!(SU{X)<1) X 
LAST EDITED: SEP 16, 1987 














DAA DICTIONARY #1005 — ICC PILE CGHRES/ACHIMS SYSTEM SICRED IN “I0C{ 

CROA NYE GLOBAL DESCRIPTION 

ELEMENT — LOCKTICN 

1005,1623.1 | AUTHORIZING OFFICIAL TITLE 1610;2 FREE TEXT ANSHER MST BE 1-30 CHARACIERS IN LENG 


1005,1701 
1006,172 


1005,1702.1 


1005,1703 


1008,1703.1 
1005,1704 
--1008,1708 


1005,1706 


1005,1706.2 
1005,170° 
1005, 1708 
1005, 1709 
1005,1710 


1005,1710.1 


DATE OF EAM 1700;14 
XB REQUIFES ORIVING §1700;1 


SPECIFY VEHICLE 1700;9 


JCB FREQ CRERATING MACHINERY 1700;2 


SPECIFY MACHINERY 1700;10 


HRS FER DAY EP WOR 1700;3 
DAYS PER WEEK EMP WORES 1700; 


DOES D0C AGREE W/ EMP SIMIEMNT 1700;5 


EXPLAIN WHAT EMP TOLD YOU 1701;0 
DESCRIBE CLINICAL FINDING 1702;0 
1703;0 
-1704;0 
ON EMP RRIURN 10 FRG IRR 1700;6 


DOIAQESIS (INLRY) 
DIAGNOSIS (OIREP. OND) 


FULL OR PARIMTIPE 1700;7 


1005,1710.11 ZARIUTINE HRS PER TAY 1700;16 





C=+90 


Input transform: K:SL{X)>301(SLAX)<1) X 
LAST EDIIED: SFP 16, 1987 


DAME Input trensfoum: S {0le"E" D “WOT S HY K:Yd X 
LAST EDITED: SEP 9, 1967 


Ser; ‘Y’ FOR YES; ‘N’ RRND 
LAST EDITED: SEP 28, 1967 


FREE TEXT ANSWER MIST BE 1-20 CHARACTERS IN LENG 
Input transform: K:SL{X)>201(SL{X)<1) X 
LAST EDITED: AUG 28, 1987 


SET ; "Y’ FOR YES ; "NY PERIOD 

LAST EDSIED: SP 28, 1987 

FPCE TEXT ANGER MUST BE 1-20 CHAPACIERS IN LANGHH 
Input transform: K:$1(X)>201(SL(X)<1) X 

IAST EDITED: AUG 28, 1967 ; 

NYEER TYPE A NUEER BEIEEN 1 AND 8 

Input trancfoem: K:4X’aX! (308) !(XCL) 1 (X2.E1"."3N.N) X 
LAST EDITED: AUG Zi, 1987 

NMESR TYPE A WOLE NUMBER BETINEEN 1 AND 5 

Input trensfioem: K:+K’aK1 (305) 1(XCL) 1 (2. EL". "IN.N) X 
LAST EDITED: ALG 21, 1987 


SAT ; 'Y’ FOR YES ; 'N’ KR NO 
LAST EDTIED: SEP 28, 1987 


1005.46 
1005.47 
1008.49 
1005.51 


WORD-PROCESSING 
WORD-FROCESSING 

; : 
WORD-FFOCESSING 


St ; “’Y’ OR YES ; ‘NY KR NO 
LAST EDITED: SEP 28, 1987 


SET ; ‘FY FOR FULL TOE ; 'P’ AR PRT THE ; 
f* POR FULL TIME ; ‘p’ FOR PART TIME 
LAST EDITED: AUG 21, 1987 


NUMBER TYPE A WE NUMBER BEINEEN 1 AND 8 


Input. tramefoeme: K:+X"=K! (208)! (XCL)1(X2.EL"."LN.N) X 
LAST EDITED: AG 21, 1987 











Sen ok a 


DAQA DICTIONARY #1005 — ICC FILE CSHRFSACHIMS SYSTEM 


OXIA 
ELEMENT 


1005,2712 
1005,1713 


1005, 1713.1 


1005,1714 


1005,1714.1 


1005,1715 


1005,1715.1 


1008, 1716 


1005,1720 


1005.18,.01 | 


1005.18,1 


1005.18,2 


1005.18,3 


1006.18,4 


1005.18,5 


NE GLOBAL 


LOCATION 


FURTHER FESIRICTICNS 1706:0 


TOUAL DISABILITY FROM 1707;1 


OINL DISABILITY TO) 890.1707 ;2 


PARTIAL COSABILITY FROM = 1707;3 


PARTIAL DISABILITY TO 1707;4 


AOVISED EMP CAN RESUME WORK 1700;11 


DATE OF ADVICE 1700;12 


NEXT EXAM ORIE 1700;13 


USUAL WORK ACTIVITY =: 17090 
USUAL WORK ACTIVI. 2 031 


DESCRIPTION OF ACTIVITY 0;2 


CONT/INIER 0;3 
HOURS PER DAY 0;4 
CBGREES F 0;5 
CAA 0;6 





STOFED IN “iCC( 





1005.53 WORD-FFOCESSING 


DAE input tranafoom: S Wik\"E" D “Wr S wey K:vcl X 
LAST EDITED: SEP 16, 1987 


DATE Input transfoom: S Wle"E" D “4Or S Mey K:¥<l X 
LAST EDITED: SEP 16, 1987 


OXIE Ings transfoom: 5 Wle"E" D “Wr S Mey K:y<l X 
LAST EDTIED: SEP 16, 1987 


OME Inpt transfoum: S Wik"E" D “WOT S mY K:Y<1 X 
LAST EXERTED: SEP 16, 1987 


StT ; "Y’ FOR YES ; ’N’ FER NO 
LAST £DFIED: SEP 28, 1987 


MIE Int trensform: S Wle"E" D “WT S Me K:Ycl X 
LAST EDTIED: AUG 21, 1967 


DATE Input transfomm: S Wie"E" D “Mr S WY K:Ycl X 
LAST EDETED: AUG 21, 1967 


1005.18CINIER Multiple 


FOINIER 0 ACTIVITIES FILE (#1007) (Multiply asiact) 
LAST EXITED: SEP 9, 1967 

CECES-FEFERANCE: 1005.18°B 

1)= s “TOC(ON(1},1709,"B" ,SE(X,1, 30) ,DA)o"* 

2)e K “TXC(DA(1) ,1709, "B" ,SE(X,1,30) DA) 


FREE TEXT «= ANSWER MST BE 1-50 GRAACIERS IN LANG 
Input transfomm: K:$L(X)>50! (SLAX)<L) X 
LAST EXXTED: NOV }2, 1987 


ST ; °C KR ONTINOS ; ‘I’ AR INIERMITIENT 
LAST EXETED: SEP 9, 1987 


NUEER «TYPE A WECLE NUPEER BEXVEEN 0 ADD 10 

Input transfoom: K:4X! aX! (9510) 1 (X<0) 1 (X?. 21". "IN.N) X 

LAST EXETED: SEP 9, 1987 

NUEER ‘TYPE A WAKIE NUMBER BEIVEEN 0 AND 200 
transform: 


Inpt 
K:4X’eil (¥>200) !(X<0) £(X?.EL"."1N.N) X 
LAST EXERTED: SEP 9, 1987 


NER TYPE A WECLE NUMBER BEIKEEN 0 AND 150 
transfoor: 


Input 
Ki: +X7Kl (25150)! (X<0) 1 (XP?.E1". "IN.N) X 
LAST EDNTED: SEP 9, 1967 














DACA DICTIONARY $7005 — IOC FILE OGHG/ACHINS SYSTEM STORED IN WICC{ 

DNA NE GLORAL DESCHIPTICN 

ELEMENT LOONTION 

1005,1721  ALDERED WORK ACTIVITY 1710;0 1005.2R0INIER Multiple 

1005.2,.01 ALTERED WORK ACTIViTY «0;1 POINIER 10 ACTIVITIES FILE (#1007) (Multiply ashes) 
LAST EDITED: SEP 9, 1967 
CROSS-HEFEFENCE: 1005.2°B . 
l= § “ICC(DA(1),1710, "B" ,Se(X,1,30) ,DA="* 
2)= K “10C(0h(1) 1710, "8", SEX, 1, 30) ,DA) 

1008.2,1 TESCRIBE ACTIVITY 0;2 FEE TEXT ANGER MUST BE 1-50 CHARACTERS IN 
Int transfoum: K:92(X)>501(S2(X)<1) X 
LAST EDITED: NOV 12, 1987 

1005.2,2 CONT/ THIER 0;3 Ser; °C’ FOR ONTINDS ; ‘I’ AR INERCTENT 
LAST EDITED: SEP 9, 1987 

1005.2,3 - HOLRS PER DAY 034 NAEER ‘TWE A WILE NEBR BEIWEEN 0 AND 10 

Input transform: K:4K’ XK! (2010) 1 (XO) {(X2.EL"."INN) X 

LAST EDITED: SEP 9, 1587 

1005.2,4 DEGREES F 0;5 NIMEER TYPE A WECLE NUMER BEINN 0 AND 200 | 

: Inpt trensfoon: 

K-47 Xd (30200) 1(X€0) (X72. MINN) X 
LAST EDTIED: SEP 9, 1967 

1005.2,5 TEA 0;6 NER TWE A ECLE NUMER BETEEN 0 AND 150 
Input transform: 
K:4X? eX! (90150) 1 (X¢0) 1 (X2.21"."IN.N) X 
LAST EDITED: SEP 9, 1987 

1005,2003 DAME CF MOST RECENT EXAM 2006;1 OTE Trost trensfoon: S Wirk"E" D “WF S Hey K: YC * 
LAST EDTIED: AUG 27, 1367 

1005,2004 EMP TOTALLY DISABLED FOR WORK 2006;2 SEY; 'Y FOR YES ; ‘N’ FORIO 
LAST EDITED: SEP 28, 1987 

1005,2005 «DESCRIBE PRESENT IMPAIRMENT «= -2007;0 1005.715 WORO-FFOCESSING 

1005,2006 _20A DIAG@USIS 2008;0 105.716  WORD-PROCESSING 

1005,2007  TRENIMENT/FREXLENCY OF ILD 2009;0 1005.717  WORD-FOGESSING 

1005,2009  -— UNFELMIED DISABILITIES 2010;0 1005.718 WORD-PROCESSING 

1005,2010 WILL, DISAATL GO EAST 90 DAYS 2006;3 SEG ; ‘Y FOR YES ; ‘N’ PORNO 


-C~92 


LAST EDITED: SEP 28, 1987 











ORTA DICTIONARY #1005 — ICC FILE CGHRES/ACHING SYSTEM SICFED IN “ICL 

DRA Wwe GLOBAL DESCRIPTION 

ELEMENT LOCATION 

1005,2020.2  EXPECIED LATE RETURN WORK 2006;4 CAE Input transfoum: $ WTe"E" D “ADT S HY Revd X 
LAST SOIED: ALG 27, 1967 

1005,2011  WEN/WERT CAN EMP ERRTTALLY 00 2011;0 1005.719  WORO-FRCCESSING 

1005,2013 -20A PROGNEIS 2000;0 1005.67  WORD-PROCESSING 

1005,2017 ANY PERPRENT EFFECTS 2006;5 ST; ‘Y MR YES; N RRID 
LAST EDITED: SEP 28, 1987 

1005,2030  REASKN SOR FERAL «(20066 SEY ; 'C’ AOR CONALINTICN ; ‘TY PCR IPEROMENT ; 
'e’ FOR CAELLINCION ; 't’ OR DERMNE 
LAST EDITED: AG 71, 1987 

1005,2040 10-9 CODE FOR PRE-EXISTING 2006;7 PTE TEXT «NEHER MUST BE 6 CHARACTERS IN LENGTH 
Inp transfoom: K:SL(X)>61(SL(X)<6) X 
LAST EDITED: SEP 16, 1987 

1005,2040.1 1CD-9 COE FOR DIAQOSIS «20068 FREE TEXT «= ANRER MUST BE 6 CEARACIERS IN LENGTH 
Inpt transfoom: K:$L(X)>6!($L(X)<6) X 
LAST EDT: SEP 16, 1987 

1005,2201 DUTY SINTON AT ELUENT 210; FOINIER 1D GHCP AGINCY COLES FILE (#1062) 
LAST EDITED: SEP 23, 1987 

1005,2201.1 PELRRENCE ADRESS 9 -210;5 FREE TEX? NEHER MUST BE 1-54 CHARACTERS IN LENG 
Input transfoem: K:SL(X)>54!(SUAX)<1) X 
LAST SDPID: SEP 23, 1987 

1005,2201.2  PECURRENCE CITY 210;6 FREE TEXT» ANEVER MUST BE 1-20 CHRPRCIERS IN LENGHH 


Ingag transfoom: K:$L(X)>201($L(X)<1) X 
LAST EDIYED: SEP 23, 1987 


1005,2201.3 RECURRENCE SIME 210;7 FOINIER 1D SINIE FILE (#1003) 
LAST EDTIED: SEP 23, 1987 


1005,2201.4 FRECLRRENCE ZIP CTE =. 210;8 FREE TEXT 3«PCRAAT: NANDA CR NEN 
Inns trensfoom 
K:SL(X)>101 (SAK) <S) 1° (PENT (XPI"—"4N)) X 
LAST EDITED: SEP 23, 1987 


1005, 2202 DME/TIME OF FEOLRFENCE «210;1 CATE XOO--CAN’'T BE ALTERED EXCEPT BY PFOCTANER 
‘the date mat be after the Date of Injury! (Required) 
Inns trensfomm: S Wie"ET” D “MOT S He K:Yd X 
LAST EXTTED: NV 2, 1967 


1005,2202.1 RECURRENCE BASE FAY 214;1 NEER «TYPE A NUMER LEINEEN 0 AND 995999.99 
KX! XG (X72 NL”. "2N) ! (3999999.99) 1(X<0) X 
LAST EDITED: SEP 30, 1987 


C-93 























DATA DICTIONARY #1005 — ICC FILE CSHAG/ACHDS SYSIEM STCFED IN “10C( 

DATA NY GLOBAL DESCRIPIICN 

ELPET LOCATION 

1005,2202.2 RECURRENCE BASE BASIS 214;2 ST ; ‘H’ FOR HOURLY ; ‘W" PCR WEEKLY ; 


'M’ FOR MONTHLY ; ‘'B’ POR BI-MONIMLY ; 
"A! FOR ANNALLY ; ‘D’ POR DAILY 
LACT EDITED: SEP 30, 1987 


1005,2202.3 RECURRENCE SLBSISTENCE 214;3 NIGER TYPE A NUMBER BETWEEN 0 AND 999999.99 
Int transform: S:X["S" %GP(X,"5",2) 
Kr4X! eXE.(X! 2? .NL". °2N) § (X>999999.99) 1(X<0) X 
LAST EDITED: SEP 30, 1987 


1005,2202.35 RECURRENCE SB BASIS 214;4 SET ; 'H’ POR HOURLY ; ‘WW’ FOR WEERLY ; 
'M’ FOR MONTHLY ; ’B’ FOR SI-MCNIMLY ; 
"A’ PCR ANNLALLY ; ‘DY PCR DAILY 
LAST EDITED: SeP 30, 1987 ‘ 


1005,2202.4 RECURRENCE QLARIERS = 214;5 NUGER ‘TYPE A NUPEER BEIWZEN 0 AND 999999.99 
. Irgut transfomn: S:X{"S" %6P(X,"$",2) 
R40! ? NL”. "2N) £ (20999999.99) 1(KKO) X 
LAST EXITED: SEP 30, 1987 


1005,2282.45 RECURRENCE QUART BASIS 214;6 SET ; 'H’ FOR HUVMLY ; ‘W PCR WEERLY ; 
‘™” FOR MONTHLY ; ‘B’ FOR SI-PCNIMLY ; 
‘A’ FOR ANNUALLY ; ‘D’ FOR CAILY 
LACT EDYTED: Sep 30, 1987 


1905,2202.5  RECURPENCE OTHER PATE 214;7 MPEER «TYPE A NUMBER BERIWEEN 0 AND 999999.99 
Input transtomm: S:x["$" P(X, "$",2) 
Kr 4K? KG (X02? NL". AN) 1 (X5999999.99) 1 (XO) X 
LAST EDITED: SEP 30, 1987 


1005,2202.55 FEC OTHER BASIS 214;8 SET ; ‘H’ POR HOUPLY ; ‘W" FOR WEERLY ; 
'M’ BOR MONIHLY ; 'B’ POR BI-PCNIMLY ; 
‘A’ FOR ANALLY ; 'D’ FOR CALLY 
LAST EOTIED: S2P 30, 1987 


1005,2202.6 REC OTHER SPECIFY 21459 FREE TEXT ANGHER MBT HE 1~30 CHARACTERS IN LENZIH 
Inox transfoom: K:$L(X)>301(SU4X)<1) X 
LAST S00TED: SEP 30, 1987 


2005, 2203 FEC O/T STOPPED WORK 210;9 CXE Input transfome: S Wlk"EI" D “Wr S My K:YC X 
LAST EDITED: SEP 30, 1987 


1005,2203.1 EC WORK S.OPPED BASE ARIE 213;] . NIGER TYPE A NUMBER BEINEEN 0 AND 999999.99 
Input transfomm: S:X[“$” %6P(X, "S$", 2) 
Ki: 4X’ kd, (X"? NL”. "2N) 1 (3099999S.99)1(XC0) X 
LAST EDITSD: SEP 30, 1967 


1005,2203.2 HAC WK STOPPED BASE aASIS 213;2 SET ; ‘H? FOR HOURLY ; "W" FOR WERRLY ; 
'M? FOR MCNIKLY ; 'B’ FOR BI-PCNIHLY ; 
‘A’ FOR NALLY ; ‘DY ACR OAILY 
LAST EXITED: SEP 30, 1987 


1005,2203.3 REC WORK SICPFED SLBSISIENCE 213;3 NEER «(TYPE A NUMER BRINEEN 0 AD 997799.99 





Input transfoon:S:X{"S* #6P(X,"$",2) 
K:4K" ot (X’ 7 NL". "2N) | (30999999, 99) 1(X<0) X 
LAST EDITED: SEP 30, 1987 








- 
i 

ONIA -DICTICNARY $1005 — I0C FILE CSHRRS,NOHIMS SYSTEM STORED IN “10C{ 

DACA NYE GLOBAL CESCRIPTION 

ELEMENT LOCATION 

1005,2203.35 FEC WORK SIOPEED AB BASIS 213;4 SET ; 'H’ FOR HOURLY ; ‘W’ FOR WEEKLY ; ‘A | 











1005, 2203.4 


1005, 2203.45 


1005, 2203.5 


1005,..203.55 


2005, 2203.5 


1005, 204 


1005, 2205 


1005, 2206 


1005,2207 


1005, 2209 
1005,2217 


FEC WORK SICEPED CLARIERS ae 
REC WAK STPPED CLRRT BASIS 213;6 
FEC WORK SICPPED OIHER FAIE 213;7 
HEC WORK SICPFED ODER BASIS 213;8 


PEC WORK STOPPED OTHER SPECIFY 213;9 


FECLARENCT DY BAY STOPPED 210;10 
FEC O/T REIURED TO WORK 210;11 
OID OACP AUTHORIZE TRERIMENT 210;2 


OXIE LST TREXDENY AFIER RACLR 210;3 


SLPR STIXIEMENT AT RECLR 211;0 


WORK INFO CURING CPAP 212;0 








'M’ FOR MONIELY ; 'B’ POR BI-MCNIBLY ; 
‘A’ FOR ANNBLLY ; 'D’ FOR DAILY 
LAST EDITED: SEP 30, 1987 


NUMBER TYPE A NUMER BEIWEEN 0 AND 999999.99 | 


Input transfons: S:X["S" W6P(%, "5",2) 


K:4X'sXG(X'?.NL”."2N) § (30999999.99) (X00) X 
LAST EDITED: SEP 30, 1987 


SET ; ‘H’ FOR HOURLY ; ‘W" PCR WEERLY ; 
'M’ FOR MONTHLY ; 'B’ FOR BI-MONIHLY ; 
‘A’ POR ANALY ; 'D’ FOR CAILY 

LAST EDTIED: SEP 30, 1987 


NUGER TYPE A NLMEER BETWEEN 0 AND 999999.99 
Input transform: $:X{"S" %6P(X,"$",2) 

K:-4X" eh(X72.N1"."2N) 1 (30999999.99) 1 (00) X 
LAST EDITED: SEP 30, 1987 


SET ; ‘H’ FOR HOURLY ; ’W’ FOR WEERLY ; 
'M’ FOR PONIHLY ; 'B’ PCR BI-MONIMLY ; 
"A’ FOR ANNALLY ; 'D’ FOR DAILY 
LAST EDITED: Sep 30, 1967 


FREE TEXT ANGER MUST BE 1~30 CHARACTERS IN LENGHH 
Input transfoom: K:91.(X)>30!(SL(X)<L) X 
LAST EDITED: SEP 30, 1987 


DATE Input transform: S W"ET" D “Wr S WY K:¥cl X 
LAST EDITED: SEP 30, 1967 


ORO Inqut transfoom: S Wie"HI" D “SOL S mY KYL X 
LAST EDITED: SEP 30, 1987 


SET ; ‘Y’ FOR YES ; ‘N’ KR NO 
LAST EDITED: SEP 28, 1967 


DRGE 000--GN'T BE ALTERED EXCEPT BY PROGRAYPER 
‘The cate mst be after the Date of 

Input tranaform: S WIe"E" D “WT S Me K:Y<l X 
LAST EDITED: OCT 25, 1967 

1005.6 WRD-FOESSDG 


1005.3 Multiple 

















OTA DICTIONARY #1005 ~— ICC FILE CGHRRS,NCHIMS SYSIEM STOR® IN “107( 

ONTA NE GLOBAL CESCRIPTICON 

ELEMENT LOCATION 

1005.36, .01 DATES & HOLRS WORED 0;1 FREE TEXT §=ANGHER MBT BE 1-30 CHARAL.FS IN LEN 


Inpt transform: K:x[""""1(SA(X)edS) X 
I SUX) K:SL{X)>30!(SL/X)<1) X 
LAST EDITED: SEP 15, 1987 
CFOSS-FEPEFENCE: 1005.36°B 
1}= s “TOC(DA(1) ,212,"B", SE(X,1,30) /DA)o"™ 
2)= K “IQC(DA(1) ,212,"B",SE(X,1,30) ,LA) 
1005.%,1 FAY RATE 0;2 FREE T@Xr ANSWER MOST BE 1-30 CARACIERS IN LENGIH 
Ings transfoom: K:SL(X)>301(SL(X)<1) X 
LAST METED: SP 1, 1987 


= 


1005.36,2 TOINL MOLT EARNED 0;3 NPSER TYPE A NUMBER BEIKEEN 0 AND 99999 
Inpt transform: S:X["$" %6P(X,"$",2) 
Ks43'E(X’7.NL"."2N) (3099999) 1(X<0) X 
LAST EDTTED: SEP 1, 1967 


1005.36,3 TYPE WORK PERFCRYED 0;4 FREE TEXT © ANSHER MST BE 1-20 CHARACIFRS IN LENGHH 
Int trarsfoon: K:SL(X)>20!(SL{X)<1) X 
LAST EXITED: SEP 1, 1967 


1005.36, 4 EMPLOYER NAME 0;5 FREE TEXT «ANSATR MT BE 1-30 CHARACTERS IN LENGIH 
Inpt tranefoom: K:SL(X)>301(SL{X)<1) X 
LAST DRIED: SEP 1, 1967 

1005.36,5 EMPLOYER SIFEET ACDRESS 0;6 FREE TEXT «= ANGER MUST BE 1-30 CHARACTERS IN LENGTH 
Inpt transfoom: K:SL{X)>30!(SL(X)<1) X 
LAST ERTED: SEP 1, 1987 


1005. %,6 EMPLOXER CITY/SINIE/ZIP 0;7 FREE TEXT «= ANSHER MUST BE 1-30 CHARACIERS IN LENGIH 
Inns transfoom: K:SL(X)>301 (SUX) <1) X 
LAST EDITED: SEP 1, 1967 


























DATA DICTICNARY #1006 — I0C FILE CGHKSACHDS SYSIEM 
FILES FOINIED 1 
ACCIDENT (#1025) 


SCTIVITIES (#1007) 


ADXIDICATION SIAIUS (#1061; 
AGENCY UNIT (#1074) 

- AGENT OF ACCIDENT (#1068) 
BODY BART (#1018) 
CAUSE CF INOURY (#1026) 
CLAIM TYE (#1029) 
EMPLOYEE (#1004) 


FOR'S (#1002) 


NOI (#1027) 


COOLERTION (#1001) 


CGHA. INOURY COTES (#1057) 
CACP AGENCY CORES (#1062) 


CACP REFCRTING CFFICE (#1/63) 
PAY SIRIUS (#1093) 

SCURCE OF INKRY (#1027) 
SINE (#1003) 


C-98 


SUCRED IN “I( 


FIELDS 
TYPE OF ACCIDENT (#112) 


USUAL WORK ACTIVITY: USUAL WORK ACTIVITY (#.01) 


ALTERED WORK ACTIVITY :ALTEFED WORK ACTIVITY (#.C 


ADQDICATION SIFQUG -ADOLLICATION SINIS (#.01) 


AGENCY (#11), AGENCY UNIT (#11.5) 
AGENT OF ACCIDENT (#127) 

BODY BART CODE (#100) 

CALSE OF INOURY (#120) 
CLAIM TYPE (4202.5) 

NAME: (#2) 


CLAIM FORM LAST RECEIVED (#208) 
CLAIM FORM NEXT (#209) 


NAQURE OF INOURY COO® (#101) 


COCURATICN (#15) 
OTHER DEPEND OCOLEATICN (#540) 
DEPEND SPOUSE COOUPATION (#551) 


TNOURY OSHA CODE (#102) 


OUTY STATICN (#13) 
OUTY STRTION AT PEQURPENCE (#2201) 


PEFORTING CRFICE (#14) 
FAY STMOUS (421.5) 
SOURCE OF INOURY (#125) 


SIME (#9) 

DUTY SIMTIGN SINE (413.6) 

FO SIME (#14.03) 

DOCS STMIE (#400.3) 

RP SIME (#401.3) 

SIMIE CF SFOLEBE (#502.3) 

OTHER DEPEND SIMTE (#504.2) 

SIME OF PER PAYING (4517.03) 
SINE OF EMPLCWER (4548.6) 

STRIE OF PERSON SIGNING CASB (4555.2) 
ATICANBY SIME (4609.3) 

SIRIE OF SEXT OF KIN (4611.3) 

VA SIME (#710.4) 

OTHER ANNUITY SIME (#714.6) 
TRAINING SIRO (#411.3) 

MED CARE SIMIE (#1604.3) 
FELRENCE SIMTE (#2201.3) 
WIINESS NAME:SINIE (#3) 

CHILDREN THIS MARRIACE:SIPGE (#5) 





PED CARE SINIE (#1604.3) 
FEQUFENCE SIRTE (#2201.3) 


GHILOREN PRIOR MARRIAGE:SIRIE (#5) 
CHILD & LEGAL GUARDIAN:STAID (#4) 
OTHER DEPENCENIS:SIRIE (#5) 
DEPENCENT INFO:SINIE (#11' 

THIS EARIY:SINIE (#3) 

COMMISSION & SELE-EMP:SIRNIE (#1.3) 


STRESSOR (#1083) " SIRESSCR INMOLMED INOURY (#122) 
INSUT TEMPLATIE(S): (NONE) 


PRINT TEMELATE(S) : 
ADDICTION SINS PN 13,1988 USER #0 AQXTIOMION STMIUS REECRT 
ALL INURIES REPORT OCT 1,1987 USER #0 ALL INLRIES 
CAPTICNED LEER #0 
CASE ANGE SUMVRRY FEB 18,1988 USER #0 CSE SUMMARY BY DOE ANE 
CASE SUMMARY REFCRT FEB 18,1988 USER #0 CASE SURRY 
Cenay 5100/10 Los OcT 5,1967 USER #0 OSH LOG 
BAY INFORMACION NOV 3,1987 USER #0 PAY INFCRMAITON BY TYPE CP PAY RECEIVED 
PERSCNAL CASE SUMMARY CCr 1,1987 USER #0 PERSONNEL INOURY/ILLNESS FEFCRT 
PRINT INOURY LOG S2P 28,1987 USER #0 DUURY LOG REPORT 
MAR 17,1988 USER # 
TICKLER FEFORI2 JPN 20,1988 USER 40 TICKER RECHT 
SOR? TEMALAIE;S): 

NL SEP 30,1987 USER #0 

NMEER]@ 
PAY BEGIN DXIE NOV 3,1987 USER #0 DRGE IMPLEMENIED]@ (Uror is asked range) 

SELECT BY DOXIE IMPLEMENTED 
TOCERYS DEC 8,1987 USER #0 NAME PAY INFCRATICN 

SCRIS PAY INFCRATION BY SURE 
TOCSORT OUIY SIVGHPAME CT 16,1967 USER #0 ' Print ‘Template always used 


DUTY SUXTTON+’"13 (User is asked range) 
SOP+’ (User is asked rage) 
DAGE( INOURY/TLLNESS OME & TIME)’" (User is asked range) 
USER SELECT BY CUIY SIRTIGN, SIP, AND INLRY OKIE 
TOCSORI2 EMPLOYEE NOV 13,1987 USER 40 ** Print Tenplate always used 
NAME)#°2;@; (User is asked range) Selection by Employee 
NOTE: Do NOI use the same employes as first and last selection! 
TSCSCRTS DUTY SIVCASEYTNE —s (CT 19,1987 LEER #0 ’* Print Template always used 
DUTY STIXTTION’"13; (User is asked range) 
CASE SERTAL NUMBER’; (User is asked range) 
OAME( INOURY/ILLNESS OMIE & TIME)’"; (Usce is asked range) 
USER SELECT BY DUTY SIRTICN, CASE SERTAL NUMER, AND INARY OME 
TOCSORIN PUTY SIVONIE CCT 19,1987 UBER #0 
DUTY SUXTION)'"13; (User is asked range) 
DAQE( INOURY/ILLNESS OMIE & TIME)’"; (User is asked range) 
USER SELECT BY CLUTY SIRTICN AND INARY CATE 
TOCSORIS ONMEYNVE Ccr 19,1987 USER #0 
CATE( INOURY/ILLNESS ORTE & TIME))'"; (User is asked range) 
NAWE'"2; (User is asked rage) 
USER SELECT BY INOURY CAGE AND EMPLOYEE NE 


C-99 








TSCSCRIG CASECOP BEGIN OAIE «= OT 19,1967 USER #0 
CASE SERIAL NUMBERJ@’; (User is asked] range) 
OATE(COP BEGIN DATE)’"; (User is asked range) 
USER SELECT BY CASE SERIAL NUMBER AND OATE COP BEGAN 


C+100 











Fp Oe ra 
ORTA DICTIONARY #1007 — ACTIVITIFS FILE CSHRGACHDS SYSTEM STCRERED IN “2N0(1007, (26 ENIRIZS) 
OXIA NAME GLOBAL CESCRIPTION 
ELEMENT LOCATICN 








This file cmsists of the physical activities that an injured persm can cb after an injury. This table is used 
in forms (C17, C18). 


"ICENTIFIED’ BY ACTIVITY/EXPCSURE 

"POINTED ‘TO’ BY THE ’USUAL WORK ACTIVITY’ FIELD OF THE ‘USUAL WORK ACTIVITY’ S.B-FIELD 
OF THE ‘INOURY COMP AND CIADS’ SB-FIELD 
OF THE ‘EMPLOYEE’ FILE 

*FOINIED TO’ BY THE ‘ALTERED WORK ACTIVITY’ FIELD C8 THE ‘ALTERED WORK ACTIVITY’ S.B-FIELD 
OF THE 'INORY COMP AND CADIS’ SB-FIEID 
OF THE ‘EMPLOYEE’ FILE 

‘FOINIED TO’ BY THE "USUAL WORK ACTIVITY’ FIELD CF THE ‘USUAL WORK ACTIVITY’ SB-FIELD 
OF THE ‘ICC FILE’ FILE 

‘FOINIED TO’ BY THE ‘ALTERED WORF ACTIVITY’ FIELD OF THE ‘ALTERED WORK ACTIVITY’ SLB-FIELD 
OF THE ‘ICC FILE’ FILE 

CROBS-FEFERENCED BY: ACTIVITY COCE(B), ACTIVITY/EXFOSURE(C) 

CREXIED SEP 9,1967 


1007, aL ACTIVITY COLE 0;1 FREE TEXT ANSWER MUST BE 1 CHARACTER IN LENGIH 
(Required) Input a K:$L(X)>11(SL{X)<1) X 
CRCSS-FEFEFENCE: 
1) S “2N0(1007,"B" ,SE(X,1,30) ,DA)="" 
2) K “INO(1007,"B",SE(X,1,30) ,DA) 


1007,1 ACTIVITY /EXPCELRE 0;2 FREE TEX? 4 ANSHER MUST BE 1~60 CHARACTERS IN LENGIH 
Input transfoom: K:X{""""!(SA(X)—d5) X 

I SO(X) K:$L(X)>60!(SLIX)<L) X 

CFOES-FEFERENCE: 1007°C 


l)= s “INJ(1007,"C",SE(X,1,30) 7DA)="" 
2)= K “IND(1007,"C",SE(X,1, 30) OA) 


c-101 








ORNTA DICKICNARY #1017 — NATIRE CF INOURY (NOI) FILE CGHRG/ACHIMS SYSIEM «= SICFED IN “20(1017, (44 ENIRIES) 


CATA NYE GLOBAL CESCRIPTION 
FLEMENT LONTIN 





’ "TOENTUPTED’ SY NATURE OF INURY 

‘FOINIED TO’ BY THE ‘NATURE OF INOURY COLE’ FIELD CF THE ‘ICC FILE’ FILE 

"FOINIED TO’ BY THE ‘’NATURE OF INOURY’ FIELD OF THE 'INOURY’ FILE 

"POUNIED TO’ BY THE ‘SECONCARY NATLEE OF INKRY’ FIELD 

OF THE ‘SECONDARY BODY EARIY SB-FIELD OF THE ‘INURY’ FILE 

"POINTED TO’ BY THE ‘NOI PER EMPLOYEE’ FIELD OF THE ‘CLAIM’ S.B-FIELD 

DATA DICTIONARY #1017 — NAQIRE OF INQURY (NOI) FILE CSHRES/ACHIMS SYSTEM STORED IN “INO( 1017, (44 ENIRIES) 

OF THE ’INURY’ FILE 
"FOINIED TO’ BY THE ‘NATURE OF INQRY’ FIELD OF THE ‘IND LOG UPDATE’ FILE 
CROSS-REFERENCED BY: NOI CODE(B), NATURE OF INOURY(C), NATURE OF INUURY(D) 


1017,.02 NX CLE 0;1 FREE TEX? )«=6ANGVER MBT BE 2-3 COARECIESS IN LENGIH 
(Required) NAURE OF INARY CTE 
transfomn: 


Input | 
-K2SL(X}>3! (SL(X)<2) 1" (X? PLB. E) L(X"? ANP) X 
LAST EQYIED: AG 6, 1985 

Source of data: TABLE NATIONALLY DEFINED 
GOP: IND 072(1017, INOIVIDLAL COPIES 
CROSS-FEFEFENCE: 1017°B 

1l)=S “IN0(1017,"B" ,SE(X,1,30) /TA)="" 

2) K “IN0(1017, "B" ,S2(X,21,30) ,DA) 


1017,1 NATURE OF INOURY 0;2 FREE TEXT ANSVER MUST BE 1-20 CHARACIERS IN LENG 
(Required) Input transfom: 
KsX{""""1(SA(X)=45) X L SO(X) R:SL(X)>201 (SUX) <L) x 
LAST EDITED: FEB 18, 1966 
CROSS-REZERENCE: 1017°CRWIC 
l)e F 1:1 Q:SP(X," ",%,99}—"" S InGP(X," ",%) 
T SL(1)>2,SL(1)<31, TOC HAI") (I S “2N0(1027,"0", 7 ,DA)e"" 
2)= F wl:] Q:SP(X," ",%,99)—"" S$ InGP(X," ",t) 
T SL(T)>2,9.(1)<31 K *IN0(1017,"C",1,0A) 


CRCES-FEFEFENCE: 1017°D 
Le S *2N0(1017,"D" ,S2(X,1,30) A)" 
2) K “INN(1017, "0" ,SE(X,1,30) A 


C-102 











CAA DICTIONARY #1018 — BODY PART FILE © CGHRRS/ACHIMS SYSTEM STORED IN “INJ(1018, (62 ENIRIES) 


OXIA NE GLOBAL DESCRIPTION 
ELEMENT LOCATIN 








"TCENTIFTED’ BY BODY PART DESCRIPTION 
"FOINIED 70’ BY THE ‘BODY PART COLE’ FIELD OF THE ‘ICC FILE’ FILE 
*POINIED 10’ BY THE BODY PARI” FIELD OF THE ’ INMRY’ FILE 
"FOINIED TO’ BY THE ‘SECONDARY BODY BART’ FIELD OF THE ‘SECONDARY BODY PARI’ SUB-FIELD 
OF TE 'INARY’ FILE 
"FOINIED 10’ BY THE ’BODY PART IND PER EMEL’ FIF'D OF TE ‘CLAIM’ SB-FIELD 
OF THE 'INXRY’ FILE 
"FOINIED TO’ BY THE ’BCDY BARIY FIELD CF THE ‘IN) LOG UFORIE’ FILE ; 
CEOSS-REFEFENCED BY: BODY PART CODE(B), BODY BART DESCRIPITCN(C), SCDY PART CESCRIPTICN(D) 


1018, .01 BODY ERRT COLE 0;1 FREE TEXT 9=ANGWER MET BE 2-3 CHARACTERS IN LENGTH 
(Required) Input transfoun: 
K:SL(X)>3$ (SLAX) <2) £" (X’ PP.) 1(X’2.ANP) X 
LAST EDTIED: AUG 6, 1985 
Sosrce of data: TABLE NATICNALLY CEFINED 


1)= S “IN0(1018,"B" ,SE(X,1,30) ,DA)="" 
2)= K “IND(1018, "8" ,SE(X,1,30) ,DA) 


1018,1 SCOY BART CESCRIPTION 0;2 FREE TEXT «= ANGHIR MST SE 2-30 CHARACIERS IN LENGIH 

(Required) Input transform: 

KX{"""" (SACK )ad5) X I G(X) KsSLAX)>30! (SL(X)<2) X 
LAST EDITED: FEB 18, 1966 
CROSS-REFEFENCE: 1018°CHWIC 

L}e F Mls) Q:SE(X," ",8,99)e"" S InGP(X,” ",%) 

I XAT)>2,SL(1)<31, TOK "HAIC”) {I S “INO(1018,"C", 1 ,DA)=" 
2)e F Sel:1 Q:SP(X," ",8,99)e"” S Te6P(X," ",%) 

Y QAT)>2,S(1)<31 K “DN(1018,"C", 1,08) 
CFCSS-FEFEFENCE: 1018°D 

Le § “IN0(1028, "0" ,S2(X,1, 30) ,A)="" 

2)= K “1N3( 1018, "0" ,SE(X,1,30) ,DA) 





C=-103 

















DAA DICTIONARY #1025 — ACCIDENT FILE  OGHRKS,ACHIMS SYSIEM STORED IN “IN0(1025, (30 ENIRIES) 


ORIA NAVE GLOBAL 


CESCRIPTICN 
ELENT LOCATION 








*ICENTIFIEYY BY ACCIDENT TYPE 

"POINIED TO’ BY THE ‘TYPE Cr ACCIDENT” FIELD OF THE ‘IOC FILE’ FILE 

"FOINIED TO’ BY THE 'TYFE OF ACCICENIY FIELD OF THE ‘INXRY’ FILE 

‘POINTED TO’ BY THE ‘INOURY TYPE COLE’ FIELD CF THE ‘CLAIM’ SB-FIELD 
OF THE 'INOURY’ FILE 

CROSS-REFEFENCED BY: ACCIDENT ID(B), ACCIDENT TYPE(C) 


1025, .01 ACCICENT ID 0;1 NUMEER) «TYPE A WHOLE NPEER BEIVEEN 0 AND 9999 
(Required) ACCIDENT TYPE: IDENTIFIER 
traneform: 

K:4X! aX! (39999) 1 (X<O) { (X?.E1L".""IN.N) X 

LAST EDITED: AUG 6, 1965 

Source of data: TABLE NATIONALLY LEFINED 
GROLB: IND OF2("ACC", INDIVIDLAL COPIES 
CROSS-FEFFFENCE: 1025°B 

1)= S “IN0(1025, "BY, SE(X,1,30) A)e"" 

2)= % “INI(1025,"8",SE(X,1,30) ,DA) 


1025,1 ACCIDENT TYFE 0;2 FREE TEXT ANSVER MST BE 1-40 CHARACIERS IN LENGHH 


(Required) Input transfoon: 

ReX[ PP" E(SA(XedS) X I SO(X) KzSL(X)>401 (SL(K)<1) X 
CROSS-FEFEFENCE: 1025°C HNIC 

l)= F Sl:1 Q:SP(X,” ",8,99)m"" S$ 1eSP(X," *,%) 

I SU(T)>2,SL(1)<31, TX "HAC") "(1 S “1ND( 1025, "C",1,DA)="" 


2)= F bel:1 Q:SP{X," ",%,99)m"" S$ InSP(X,” ",%) 
I SL(1)>2,SL(1)<31 K “INI(1025,"C",2,DA) 


C104 











ime 


ORTA DICTIONARY #1026 — CAUSE OF INOURY FILZ CGHERS ACHING SYSTEM «= STORED iN “INI(1026, (99 ENIRIES) 


ORTA NYE GLOBAL ; CESCRIPTICN 

ELEMENT LOCATION 

LL LL LLL LLL LT LCE Ce A AAA ta SaeSS NTS HEALER eratectpes 
‘TOENTIFIED’ BY CESCRIPTICN 

*FOINIED TO’ BY THE ‘CALEE OF INARY’ FIELD CF THE ‘ICC FILE’ FILE 

"FOINIED TO’ BY THE ‘CALBE OF INOURY’ FIELD OF TE 'INARY’ FILE 

UFOSS-PEFERENCED BY: CAUSE ID(B), CESCRIPTICN(C) 


1026, .01 CAEE ID 0;1 NMEER TYPE A WHOLE NUMEER BETWEEN 1 AND 99 (Required) 
Input trensfoom: K:+X’sX! (3099) {(X<L)1(X2.EL"."IN.N) X 
Source of data: TABLE NATIONALLY DEFINED 
GOP: IND DIZ ("CAUSE", INDIVIDUAL COPIES 
CROES-FEFEFENCE: 1026°B 
Lje S *IN0(1026,"B" ,SE(X,1,30) ,DA)="* 
2)= K “IND(1026,"3",SE(X,1,30) ,DA) 


1026, 1 DESCRIPTION 0;2 FREE TEXT «= NEVER MST DF 1-50 CHARACIERS IN LANGHH 
(Required) Inout transform: 
Kx "1 (SA(X)edS) X I SO(X) K$L(X)>501 (SLAX)<1) X 
CROSS-FEFERENCE: 1(26°C 
Lye S “IND(1026,"C*,$2(X,1,30) ,DA)="” 
2)= K “IND(2026, "C*,S2(X,1,30) ,DA) 


c-105 











ORIA DICTIONARY #1027 — SOURCE OF INXRY FILE 4 CGHAIG/NCHIS SYSIEM STORED IN “IN0(1027, (95 ENIRIES) 
OAA NE GLOBAL CESCRIPTICN 
ELEXENT LOCATION 





*ICENTIFIED’ BY CESCRIPTICN 

‘FOINIED TO’ BY THE ‘SOURCE OF INOURY’ FIELD OF THE ‘ICO FILE’ FILE. 

*FOINIED TO’ BY THE ’SOURCE OF INOURY’ FIELD OF TE ‘INARY’ FILE 

"FOINIED TO’ BY THE ‘INOURY SOURCE COLE’ FIELD OF THE ’CLAIM’ S.B-FIELD 
OF TE ‘INARY’ FILE 

CROSS-FEFEFENCED BY: SOURCE ID(B), DESCRIPTICN(C) 


1027, .01 SURE 1D 0;1 FREE TEXT ANSHER MST BE 1~4 CHARACTERS IN LENGIH 

(Required) Input tranefoom: K:SL(X)>41(SLAX)<1) X 
LAST EDITED: SEP 23, 1987 

Source of data: TABLE NATIONALLY DEFINED 
GOP: IN) 012("SOI", INDIVILAL COPIES 
CFCSS-REFEFENCE: 1027°B 

1)= § “IN0(1027,"8", (X,1,30) ,DA}="”" 

2)= K “IND(1027,"B" ,SE(X,1,30) TA) 


1027,1 | CESCRIPTICN 0;2 FREE TEXT ANSVER MUST BE 1-60 CHARACTERS IN LENGIH 
(Required) Input transform: 
K:X{ "1 (SA(X)-045) X I SOX) K:SL(X)>60! (SAX) <1) X 
CROSS-REFERENCE: 1027°C 
1)= S “INJ(1027,"C",SE(X,1,30) ,DA)e"* 
2)~ K ~IN3(1027,"C", SE(X,1,30) ,DA) 


C-106 





OMIA DICTIONARY #1029 — CLAIM TYPE FILE 9 OGHRESACHIMS SYSTEM STORED IN “1N0(1029, (14 ENIRIES) 
OXIA NAVE GLOBAL CESCRIPTION 
ELEMENT LOCATION 





‘YOENTIFIED’ BY CESCRIPTICN 

"FOINIED TO’ BY THE ‘CLAIM TYPe’ FIELD OF THE ‘INXRY COP AND CADS’ SB-FIEID 
OF THE 'EMELOVEE’ FILE 

"FOINIED TO’ BY THE ’CLAIM TYPE’ FIELD OF TE ‘IC FILE’ FILE 

"FOINIED TO’ BY THE ’CLAIM TYPE’ FIELD OF THE ‘CLAIM’ S.B-FIELD 
OF THE 'INARY’ FILE 

(CROSS-REFERENCED BY: TYPE(B), CESCRIPITCNC) 


1029, .01 THe 0;1 FREE TEXT) 3=ANSHER MUST BE 2 CHARACIERS IN LENGIH 
(Required) 
Input transfoun: 
ReQAX)>21 (SL(X)<2) 1° (X? PLP.) 1(X" 2.ANP) X 
Source of data: TABLE NATIONALLY CEFINED 
GLP: IND OFZ("CLAIMIYPE", INDIVICLAL COPIES 
CXES-FEFEFENCE: 1020°B 
Le S “1N0( 1029, "5", SE(X,1,30) ,DA)="" 
2 K “1N0( 1029, "B",S2(X,1,30) ,DA) 


1029,1 CESXCRIPTION 0;2 FREE TEXT «= ANSWER MBT BE 1-25 CUARACIERS IN LENGIA 

{Reqs red) 

Ingt transfor: 

KaxgPrr"t (SALX)edS) XL SOX) K2SL(X)>251 (SLX) <1) X 

LAST EDITED: OcT 10, 1985 

CRCES-FEFEFERCE: 1029°C 
1} s “INO(1029,"C",SE(X,1,30) ,CA)="" 
2)= K “IN0(1029, "C,SE(X,1, 30) ,DA) 


CURRENT ENIRIES 
TYE: Hl DESCRIPTION: HEMUNG LOSS 
TYPE: SS DESCRIPTION: SISAIN/SPRAIN 
TYPE: © DESCRIPTION: COMUSION/ABRASICN 
TYPE: FR DESCRIPTION: PRACTURE,/LACERATIONS 
THE: BW DESCRIPTICN: BUEN 
TYE: Ol DESCRIPTION: OER 
TYE: 0S CESCRIPTICN: OESMRITCIS,/SKIN 
TYE: W DESCRIPTIC’: G&NERAL LUNG DISCRCESS 
TYPE: AF CESCRIPTICN: ANIETY/FATIGCLE 
TYPE: HE CESCATPTICN: HEART 
TYPE: FO CESCRIPTION: SPORY FOLSCUNG 
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TYE: Cr 
TPE: MS 
TYPE: AS 


DESCRIPTION: CAREAL TUNNEL SUNDROE: 
CESCRIPTICN: MISCELLANEOUS /TLINESS 
DESCRIPTION: ASBESTOSIS 


C-t08 





Se ae eS, 


ORTA DICTIONARY #1057 — CEHA INOLRY COLES FILE «= CGH, ACH SYSTEM STORED IN “IN0(1057, (10 ENIEE 
OXIA NYE GLCRAL DESCRIPTION 
ELEMENT LOCATION 





1057, .02 CHA INOURY CLE 0;1 : grag ANGHER MUST BIE 2 CHARACTERS IN LENGIH 

(Required) 

Inpt transfoem: K:SL(X)>2! (SL(X)<2)1" (X22N) X 

Source of data: TABLE NATICNALLY CEFINED 

GOP: IND 072(1057, INOIVIDLAL COPIES 

CROSS FEFEFENCE: 1057°8 

1)~ 5 “INJ(1057,"B",S2(X, 1,30) ,DA}"" 

2)= K “IND(1057, "B",SE(X,1,30) ,DA) 


1057,1 IND COLE CESCRIPTIGN 032 FREE TEXT §9ANSHER MUST BE 1-60 CHARACIERS IN LENGIK 
Inpx transfoon: K:$L(X}>601(SL{(X)<1) X 


CURFENT ENTRIES 


CHA TY COE: 10 IND COOE CESCRIPTION: ALL OC§OLRATIONAL DNOLARIES 
OSHA INOLRY COLE: 


BR 


IND CODE DESCRIPTION: OCOURATICNAL SKIN DISEASES OR DLSCRCERS 
CGWA INOLRY COLE: 


b&b 


IN) COLE CESCRIPTION: OUST DISEASES OF THE UNS 
CGHA INKLRY COLE: 


& 


IN CODE DESCRIPTION: RESPIRATORY CONDITIONS CLE TO TOKIC AGENIS 


CGHA INOLRY OTE: 24 INO COME CESCUPTICN: POLSCNING (S.STEMIC EFFECTS OF TOKIC MAGERIALS) 


CGHA INULRY CIE: IND COLE TESCRIPTION: PHYSICAL AGENT DISCRCERS (NOT TOKUC MNIERIAL) 


CGA DNOLRY COE: INO COLE CESCAIPTTON: OLSCRFOERS Ob TD REFERIED TRAUMA 
CGHA DNOURY CIE: IND COUE CESCRIPTION: ALL OTHER COQUBATICNAL ILLNESSES 


CSHA INORY CLE: INO COLE CESRIPTIGN: 


EF 8B BR EH 


GA INIRY CLE: ONO COLE CESCRIPTIGN: Y 


C-109 











3 —dapunnapeemamtnmngeman gemini oop a = ~ aie ahs ein ala oe — 


OXIA DICTICNARY #1061 ~—- ADRIDICATION SINILS FILE © CGHEES/ACHIPS SYSTEM © STCRED IN “TN0(1061, (70 ENIRI 
ES) * 

OMA NYE GLOBAL CESCRIPITON 

ELEMENT LOCATIN 





"TCENTIFTIED’ BY STATUS CESCRIPITON 

"POINTED ICY BY THE ‘ADXDICATICN SIRIUS’ FIELD OF THE 'ADXDICATICN SIRIUS’ SB-FIELD 
CF TE 'INORY CO® AND CAINS’ SB-FIEID 
CF THE ‘EMPLOYER’ FILE : 

"FOINIED TO’ BY THE ‘ANKDICATION STINTS’ FIELD CF THE ’ADXDICATICN SIAIUS’ SB-FIELD 
- OF THE ‘10 FILE’ FILE 

"POINTED TOY BY THE ‘ADJUDICATION SIRIUS’ FIELD OF THE ‘CLAIM’ S.B-FIFLD 
OF THE ’INLRY’ FILE 

CECSS-FEFERENCED BY: ADULDICATICN SINILS(B), SIXIUS LESCRIPTIQY(C) 


1061, .01 AQXDICATIN SIANB = 0; 1 FREE TEXT ANSWER MST BE 2-3 CHARACIERS IN LENH 
(Required) Input transfoo: 
K:$L(X)>3! ($L(X)<2) 1? (X’21P.E) 1(X"2 ANP) X 
LAST EDVIED: JAN 14, 1988 
Source of cata: TALE NXTICNALLY DEFINED 
GOP: IND 0F2(1061, INDIVIDUAL COPIES 
CROSS-FEFERENCE: 1061°8 
1)= S “IND(1061,"B",SE(X,1,30) ,DA)="* 
2)= K “INO(1061,"B" ,SE(X,1,30) ,DA) 


1061,1 STRIUS CESCRIPTION 0;2 FREE TEXT 4 ANSHER MBST BE 1~60 CHARACIERS IN LENS 
(Reqrired) Input transfoon: 
K:X{""""! (SA(X)e45) X I SO(X) KsSL(X)>001 (SL(X)<1) X 
LAST EDITED: JUL 9, 1986 
CROSS-FEFEFENCE: 1061°C 
1)= S “INJ(1061, "C*,SE(X,1, 30) ,DA}="” 
2) K “INO( 1061, "C*,SE(X,1,30) ,DA) 


c-il0 











DTA DICTIONARY #1062 — CACP AGENCY CODES FILE «90 CHESS SYSTEM STORED IN “IND(1062, (1 ENTRY) 
ONTA tHE GLOBAL DESCRIPTION 
ELEMENT LOCATION 


LMR eee oe RE Te NN a eC ETE ED 
"POINIED TO’ BY THE ‘DUTY SIMTICN’ FIELD OF THE ’INURY COMP AND CLADS’ SB-+FIELID 
OF THE EMPLOYEE’ FILE 
"POINIED TO’ BY TE ‘DUTY STATION AT RECURRENCE’ FIELD 
OF THE VINOLPY COP AND CRE! fe Tr OF I OO TES 
*PCINIED TO’ BY THE ‘DUTY SINTICN’ FIELD OF THE ‘ICC FILE’ FUE 
"POINTED TO’ BY THE ‘DUTY SINIICN AT RECURRENCE’ FIELD 
CF DE /IC FILE’ FOE 
"POINTED TO’ BY THE ‘INOURY DUTY STATION’ FIELD OF THE ‘INURY” FILE 
"FOINIED TO’ BY THE ‘CUTY SIATION’ FIELD OF THE ‘CLAIM’ SUB-FTELD 
OF TE ‘INLRY’ FILE 
*FOINIED TO’ BY THE ‘RECURRENCE OUTY SIATION’ FIELD OF THE 'CLAIM’ SB-FIELD 
OF THE 'INOURY’ FILE 
CROSS-REFERENCED BY: AGENCY DUTY SIRTICN NAME(B) 


1062, .01 PCENCY DULY SUXTICN NYE 


0;1 FREE TEX? «ANGER MGT BE 3-45 CHARACTERS IN LENGIH 
(Required)  Inpst transfoon: 
K:SiX)>45! (SU(X)<3) 1" (X" PLP.E) £(X"? ANP) X 

' Gource of data: TABLE LOCALLY DEFINED 
GOP: INO OCROR( INIVIDLAL COPIES 
CROSS-FEFEFENCE: 1062°B 
Le S “20(1062, "8", SS(X,1,30) Aj="* 
2)= K “IND( 1062, 8” ,SE(X,1, 30) ,DA) 


1062,1 CACP AENCY COE ti«éO2 FREE TEXT §=ANG&VER MET BE 6 CHARACIFRS IN LENTIH 
( Required) 
Inpst transfoon: K:SL(X)>61 (SL{X)<6) X 
1062,2 ACTIVITY UIC 0;3 FREE TEXT ANSWER MET BF 5-6 CHARACTERS IN LENGTH 
(Required) input transfoum: K:$1(X)>6!(SL(X)<5) X 
1062,3 CLAIMANT COLE 0:4 FREE TEXE ANGER MST BE 2-4 CHARACIERS IN LENGIH 
(Required) Inout transfoom: K:91(X)>41(SL(X)<2) X 
1062,4 DUTY SINTICN ACCRESS «0;5 FREE TEXT «ANSHER MOST BE 1-40 CHRACIFFS IN LAND 
(Required) § Inpt transfounm: K:$L(X)>40!1(SL(X)<1) X 
1062,5 DUTY STATIN CTIY 0;6 FREE TEXT ANSHER MST BE 1-20 CHARACTERS IN LENGIH 
(Required) Inpst trenstoom: K:9L(X)>201(S1{(X)<1) X 
1062,6 DUTY STATION SIE 0;7 FOINIER TO SIRIE FILE (#1003) (Racadrecd) 
1062,7 OUTY SIRTION ZIRE OO38 FREE TEXT ANGER PLST BE 5-10 CHARACIERS IN LENGIH 
(Reqpri red) Inet transfor: K:9L(X)>10!(ST.(X)<5) X 
1062,8 REFCRTING CFFICE 0;9 POINIER 70 CACP REPORTING OFFICE FILE (#1063) (Recpi red) 
LAST EDITED: CCT 7, 1965 
1062,9 PRIOR CACP ACENCY COLE 
1;0 1062.01 multiple 


1062.01, .01 PRIOR CACP ACENCY CTE, 


Celli 











0;1 


FREE TEXT 4 ANGER MBT BE 6 GOFARCIERS IN 
Input transform: K:SL(X)>61 (SL(X)<6) X 
LAST EDITED: OCT 7, 1985 


Cetl2 . 




















DATA DICTIONARY #1062 — CXCP AGENCY CES FILE CGHEXSACHD'S- SISTEM STCRED IN “IND(1062, 
CAIK NYE GLOBAL CESCRIFTICN 
ELEMENT LOCATICN 
1062.01,1 LAST OATE COLE ACTIVE 
0;2 OXTE (Raguired) Input transform: 


S Wi"E" D “WT S XY KYL X 
LAST EDITED: OCT 7, 1985 


1062,10 CEHA STIE CLE 0;10 FREE TEXT ANSKER MST BE 1-9 CHARACTERS IN LEXCOH 
i Input transfoom: K:91(X)>9!(SL(X)<1) X 
LAST ENYTED: OCT 15, 1985 : 


FILES FOINIED TO FIELDS 
QACP REPORTING CEFICE (#1063) REXCRIING CEFICE (#6) 


SINIE (#1003) DUTY SIRTION SIMIE (#6) 


PRINT TEMPLATIE(S): 
OWCP AGENCIES Ccr 7,1985 USER #0 ONCP AGENCY OOKES LIST 
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OXIA 
ELEMENT 


1063,1 





- 1063,5 


1063,5.5 


1063,6 


1063,7 


1063,8 


"POINIED TO’ BY THE ‘REPORTING CEFICE’ 
CF THE ' EMPLOYEE’ FILE 
"POINIED TO’ BY THE ‘REFCRTING CFFICE”’ 
"FOINIED TO’ BY THE ‘REPCRTING CFFICE’ 
OF THE ‘INQARY” FILE 
"POINTED TO’ BY THE ‘REFORIING CEFICE’ 
CRCSS-REFERENCED BY: NAME(B) 


1063, .01 


NYE Gloss 
LOCATICN 


NYE Q;1 
REPORTING CEFICE ACORESS 
0;2 


POINT CF CONTACT NAME (0:6 


FOINT OF CONTACT TTILE 
0;10 


FONT OF CONIACT BONE 
0;7 


POINT CF CONTACT EXIENSICN 
0;8 


POINT OF CONTACT AUTON 
0;9 





| ONIA DICTIONARY #1063 — OX FEFCRTING CFIC FILE 390—- CGEESVNCHS- SYSTEM STOFED IN *3N0(1063, 


DESCRIPTION 





FIELD CF THE ‘INOURY COMP AND CLAIMS’ SB-FIELD 


FIELD OF THE ‘1 FILE’ FUE 
FIELD CF THE ’CLAIM’ S.B-FIELD 


FIELD OF THE ‘CHCP AGENCY COLES’ FILE 


NOME MST BE 3-30 CHARACTERS, NOT NUMERIC CR STARTING WITH PUNCTUATION 
(Required) ‘Input: transform: 

K:SL(X)>30! (X2.N) 1 (SL(X)<3) ! (X! PLP.E) 1(X’? ANP) X 

Source of data: TABLE LOCALLY CEFINED 

GFOLP: IN) GOCPREPT( INDIVIDLAL COPIES 

CEOSS-FEFEFENCE: 1063°B 

1)~ § “IN0(1063, "8", SE(X,1, 30) ,DA)="" 

2)e K “IND(1063, "B",S2(X,1,30) ,DA) 


FREE TEXT ANSWER MIST BE 1-40 CHARACIERS IN LENGIH 
(Regsired) Input transfoom: K:SL(X)>401(SL(X)<1) X 


FREE TEXT «ANSHER MIST BE 1-20 CHARACTERS IN LNGHH 
(Required) — Input transfoum: K:$L(X)>20!(SL(X)<L) X 


FOINIER TO SIRIE FILE (#1003) (Required) 


_ FREE TEXT = ANSHER MIST BE S-10 CHARACIERS IN LENGTH 
(Required) Inpt transfoon: K:SAX)>101(S{X)<5) X 


FREE TEXT §NIER NAME IN LAST, FIRST MI RCORPAT 
(Required) 
Input transform: K:SL(X)>251(SL(X)<1) X 


FREE TEXT ANGER MBIT EE 1-30 CHARACIERS IN LENGIH 
Inpxt transfoum: K:SL(X)>30!(SL{X)<1) X 
LAST EDITED: FEB 18, 1986 


FREE TEXY ASSHER MBT BE 10-13 CHARACTERS IN LENG 
(Required) Inat transom: K:SL(X)>131(SAX)<10) X 


FREE TEXT 9 ANGHER MBT BE 4 CHARACTERS IN LENGIH 
Ingut transfoum: K:S1(X)>41($L(X)<4) X 
LAST EDITED: CCT 7, 1985 


FREE TEXT NEHER PLBT BF 7-13 CHARACIERS IN LENGIH 
Inns transfoom: K:SL{X)>131(SL{X)<7) X 


Coils 








LAST EDTIED: ocr 7, 1985 


FILES FOINIED 10 
SIME (#1003) 


FIELDS 
REFORTING OFFICE SIRIE (#3) 
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DRA DICTIONARY #1068 — AGENT OF ACCIDENT FILE © CGHREG/ACHIIMS SYSTEM STORED IN “IND(1068, (275 ENIRIES) 


CXR NAME GLOBAL TESCRIPTION 
ELEVENT LOCATION 





*TCENTIFIED’ BY AGENCY OF ACCDIENT 

*FOINIED TO’ BY THE ‘AGENT CF ACCIDENT” FIELD C TE ‘ICC FILE’ FILE 
"POINTED TO’ BY THE ‘AGENCY OF ACCIDENT” FIELD OF THE ‘INURY’ FILE 
CECSS-REFERENCED BY: AGENT CCDE(B), AGENCY CF ACCDIENI(C) 


1068, .01 AGENT COLE Q;1 FREE TEXT ANSWER MUST BE 4 CHARACTERS IN LENGTH 
(Required) Input transform: 
KsSL(X)>41(SLAX)<4) 1" (X"PLP.E) t(X"? ANP) X 
Source of data: TASLE NATICNALLY DEFINED 


1)= S “IN0(1068,"8" ,S(X,1,30) ,DA)="" 
2)= K “IND(1068,"B",$2(X,1,30) ,DA) 


1468,1 AGENCY CF ACCOLENT 0;2 FREE TEXT ANGER MUST BE 1-50 CHARACIERS IN LENG 
(Required) Input transfom: 
joc sO A atop Oe x : SO(X) KzSL(X)>501 (SL(X)<1) X 
CROSS-FEFERENCE: 


1)= S “INO(1068, oo EKA, 30) ,DA)="" 
2)= K “INO( 1068, "C",SE(X,1, 30) ,DA) 
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DATA DICTIONARY #1093 — BAY STXIUS FILE) «= CGHRKS/NCHITS: SYSTEM STORED IN “2N0(1093, (22 ENIRIES) 


OTA NE GLOBAL CESCRIPTICN 
ELEYENT LOCATION 





‘TDENTIFIED’ BY ERY SIAIUS 

"POINTED TO’ BY THE ‘PAY SINIUS’ FIELD OF THE ‘IOC FILE’ FILE 
"POINTED TO’ BY THE ‘PRY SINIUS’ FIELD CF THE 'INARY’ FILE 
CROSS-REFERENCED BY: PAY SIRIUS CCLE(B), PAY SINIUS(C) 


1093, .01 BAY SINUS COLE 0;1 FREE TEXT ANSWER MUST BE 2 CHARACIERS IN LENGIH (Required) 
Input transfoom: K:$L(X)>2!($L(X)<2) 1(X’2ANP) X 
Source of data: TALE NATIONALLY CEFIND 
GOP: IN) 01Z(1093, INDIVICLNL COPIES 
CRCES-FEFERENCE: 1093°B 
1)= S$ “1N0(1093, "B" ,SE(X,1,30) ,DA)="* 
2) K “IN0(1093, "8" ,SE(X,1,30) ,DA) 


1093,1 BRAY STNIUS 0;2 FREE TEXT ANSHER MT BE 1-60 CHARACIERS IN LENGIH 
(Required) Input transform: 
Rex{""""1(SA(X)ed5) XT SOX) R2SL(X)>601 (SUAX)<L) X 
CROSS-TEFEFENCE: 1093°C 
L)= S *INI(1093, °C", $€(X,1,30) ,DA}=" 
2)e K “1O(1093,"C",SE(X,1, 30) LA) 
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APPENDIX D 
ROUTINE DOCUMENTATION 





LABEL 


ee eee cree 


T3CF 
T3CF1 
T3ICF2 
T3CFB 
T3CFI 
T3CFSEL 
T3COMP 
T3COP 
T3COPD 
T3CPYNF 
T3CFILE 


T3CPAK 





Employee CA Print Programs. 

Creates a temporary global for CA forms. 

Prints out CA form. 

Creates a temporary global for blank forms. 
Prints out instructions for CA forms. 

Selected look up for forms. 

Stores COMP information in “INJ(1009. 

Stores COMP information in “INJ(1008. 

Creates COP not to exceed datel. 

Stores pay information in pay information file. 
Stores the claim forms into the employee data file. 


Create an ICC package. 





T3CF 
INIT 


FILL 


FIO 
FI} 
FI2 


—_~> 


FI3 


MLTI 


> 


—— > 


M3 


M3K 


a > 


GpT 





THIS PROGRAM EMPLOY CA PRINT PROG ; 09 Dec 87 7:13 PM 
IOFe"#,*27,*91,*50,*74,*27,*91,%72" W @IOF D “T3ICFSEL 
:’SD(FN)!('SD(E0)) S:FN<1 FN=0 Q:'SD(“FORMS( FN) ) 
“T3CF1,KILL S V=";",TCN="",Us"°" ;SET UP FORM 


oma n~ 


My. 


$el:1 W:'(%#10) "." S TCNeSO( “FORMS(FN,3,TCN)) Q:TCNe""!(TCN’?.N) 
PG=$S('$D(“PORMS( FN, 3,TCN,0)):1,$P( “FORMS(EN,3,TCN,0),U,5)/="": 
$P( “FORMS(FN,3,TCN,0),U,5),i:1) ,ST=0 

F 42=1:1 S ST=S$O(“FORMS(FN,3,TCN,2,ST)) Q:ST=""_ S GLO1=GLO D GDT 
D STORE,MLTI W"J",! K:°FM("B",SI,2)<4 “FM(S$J,2), “FM("B",$J,2) 

D KILL W 1,"ENTER DEVICE THE FORM WILL PRINT ON " D “T3CF2 Q 

K TX, TXL, TEXT, SEL,NOD,DF1,A2,Al,PG,TCN,ST, PEC, TB, LN, GLB, %, $2,%3,%4, 
X1,CNT,GLO1,GLO2, MULT Q 


+;CREATE ONLY ONE STRING PER LINE 

F PGel,2 S LN@"" F $el:1 S LN@SO(“FM($J,PG,LN)) Q:LNe"" 

S (TEXT, TX,BL,TAB)="" F $lel1:1 S TAB=@S$O(“FM(SJ,PG,LN,TAB)) Q:TAB}"" 
S TEXT="FM(SJ,PG,LN, TAB) D FILL S “FM($J,PG,LN,1)=TX 

QUIT ; 

S TXL#SL(TX) G:TABel FIO 

I TXL=TAB!(TXL>TAB) S TX=TX_" " G FIO 

F $99=TXL:1:TAB-1 S TX=Tx_" " 

S TX«TX TEXT, TXL#SL(TX) ,CNT=0 

I SL(TX)>132 G:SE(TX,$L(TX)) =" " FIZ S TX#SE(TK,1,$5L(TX)-1) G FI1 
I $L(TX)>132 G:SP(TK," ",l)=TX!(CNT>10) FI3 S CNTCNT+1, 

TX=SP( TX,” re 9 i " SP( TX," “,2,999) G FI2 

K: TAB" =1 “EM(SJ,PG,LN, TAB) Q 

7 een: 
; INSERT MUTIPLE RECORDS INTO THE NUMBER OF SPACES ALLOWED 

PGel,2 S LNe"" Fo Qs) S LN8SO(7FM($J,PG,LN)) Q:LNe"" IT LN["." D ML 





* 
’ 


MK S LNl@SP(LN,".",1),(BEG,LN2)@LN1,(NA,MM,CU,CNT)=0 F %99=1:1 
LN1=$0( “FM{$3,PG,LN1)) Q:SP(LNL,".",1)°sBEG S NA=NA+] 
END*SF(LN1,".",1}-1 G:LN+leLN1 M3 
CNT=0 F %$99@BEG:1:END Q:CNTDNA I 'SD(*FM(SJ,PG,$99,1)) 
LN2=$0( *FM(SJ,PG, LN2)),~ FM(SJ,PG, 399, 1)=" FM(SJ,PG,LN2,1), aes 
299—e1:1:NA S BEG=SO( “FM(S$J,PG,BBG)) K “FM(SJ,PG,BEG) 
TEXT, LN1, LN2, CNT, NA, BEG, END, MM, CU, $99,398 Q 
%99—eLN:1 Q:'SD(“FM(SJ,PG,%99)) S MMeMM+1 
CNT=MM-1 F %99e1:1 S LN1=$0(°FM($J,PG,LN1)) Q:LN1°["." 
CUe0 F $99@CNT:MM Q: (BEG+%99>60)1(%99>LN1L) S CUmCU+1 
:CUs0 M3K PF $990e1:1:CU Q:399>NA S LN2=@SO( “FM(SJ,PG,LN2)) 
$98@LN2:1:LN2+CNT Q:'’SD(“FM(SJ,PG,%$98,1)) 
TEXT( PG, END, 1)=°FM($J,PG, $98,1) ,END*END+1 
$99=BEG:1:CNT+BEG F $98=.01:.01:NA K “FM(SJ,PG,%99 $98) 
TEXT="" F $990e1:1 S TEXT#$O(TEXT( PG, TEXT)) Q: TEXT="*" 
“FM(SJ,PG, TEXT, 1 )TEXT( PG, TEXT, 1) 
LN@LN1-1 K TEXT,LN1,LN2,CNT,NA, BEG, END,MM,CU,%399,%98 Q 

; wasn 
;GATHER DATA FROM EMPLOYEE FILE 
sAL™POINTER ,A2=NODE,DF1=DATA DEFINITION, TB=COLUMN, LNeLINE 
Ke) 


Vo ee ee 


MULT#1 ,Al=SP( “FORMS(FN, 3, TCN, 2,ST,0) ,U,1) ,A2@SP( “FORMS( FN, 3, TON, 2,5T,0) ,U,4) 














Ss TBeP EN nga TON 2ST, 0) U2), LNWSPC “FORMS(EN, 3, TCN,2,S7,0),U,3) 
GOTO Q:TBe"" 1 (Lame) 1 (ALe"*) 1 ( peas) Q:Al ws. Ole (Ava 
I Ale" O1"&(AQmt") S:'SD/( “FM($J, PG, LN, TB) ) 
——> -FM(SJ, PG, LN, TB) =$P( “EMPLOY(E0,0),U,1) 0 
Q:A2<1004!(A2>1004.999) $:A2>1004.26('SD(“pD1A2,A1,0))) Ale,0l 
Q:°$D( “DD(A2,A1,0)) 
5 DFlaSp;( “DD(A2,Al,0),U,2) Q:DFl="* sDATA DEFINITION 
I DF1?.NP S Ale.01,A2@DF1 G GOTO 
GDTL I A2>1004.2 D mutT O:MULT=0 
;DATA YS AT THE 1004.2—INJURY COMP/CLAIMS LEVEL 
S PEC#SP( Spi “DD{A2,A1,9),U,4),V,2) ,NOOeSP( SP( “DD(A2,AL,0),U,4),V,1) 
G:DF1["W" We -worD PROCESSING 
S GLO1*SLOl NOD_")" § Xm$S( "$D(@GLOL):"", 1:SP/ @GLOL,U, PEC) } 
Q:X=""6{A2@T004,2) 
D @SS(DFLI"S". "SEL" ,DF1[ "pt; "PTR" DF1("D": "pre" /DFL("F"S "FREE" 1; "GDT2") 
I DF1’] "w"s{A2>1004.2) § MULT*=MULT+1 G CDT) 
GDT2 QUIT ; —~—— ~~ ; 
FREE Q:Xe"" D:A2>1004.2 CHECK 5 “FM($J,°G,LN, TB) as K XQ ;FREE Texr 





MULT S$ GLO1*GLO,GLO2="" 7 A2~1004.23 § NODEwSP( “FOPMS( FN, 3,TCN,2,ST,0),U,5) 
~~~>  S:NODE="" NODE~ "ERROR" § GLOI=GLO1 NODE "," 6 
Ss NAME=S0(“DD(A2,0, "NM", "")), UP=“DB(A2, 0, "Up" 
s MOE Ne ecg e GAME, "")) NODERSP(SP( “DDI UP, ELEM,0),U,4),v,1) 
S:NODE={"" NODE="ERROR" s GLOI=GLO1]_NODE "," Q:DFLI "Wr 
s aNetNs -01,GLOL=GLOL MULT, GLO2=GLB:_*)* Si /SO(@GLOZ) MUL TRO 
S GLO1sGLO1 "," Q 
DYE Q:X—"" D:A3>1004.2 CHECK 5s X1“$P(x,".",2) | 
S:X'e"" “FM( SJ, PG, LN, TB)*SE(X, 4,5) "/" SE(X,8,7) "0 SE(X,2,3) 
S:Xl‘=" “FM(SJ, PG, LN, TB)=*EM($J, PS, LN TTB) " ATY* Ei x xx Q 
PTR Q:Xe"" I X°2.N D:A2>1004.2 CHECK S “FM(SJ7PG, LN, TR ax Q 
S PEC#S$S($p( PORMS(FN, 3, 10N,2,ST,0),U,6)e"": 1. 
-—)> 1:SP( “FORMS( FN, 3, TCN, 2,57, 0} ,U,6)), 
=--> § GLBe"*" 9P(“DD(A2,A1,0),U,3) xX es alia ig 
T SD(@GLBT D:A2>1004.2 CHECK s “FA( $I, PG, LN, TB) =$P( @GLB,U, PEC) K X,GLB Q 
K X,GLB Q 


SEL Q:Xa"" os SEL@SP( “DD(A2,A1L,0),U, 3) FP Y4els1 Ss X1«SP(SP(SEL,V,44),":",1) 
Q:Xle"" 1 x1ex D:A2>1004.2 CHECK 5 “FM( SJ, PG,IN, TB )=SP(SP(SEL,V, 84)"1 2) 


Q 
WP #WORD PROCESSING 


S CNT=(0 F 83013] s GLO2=G'.01 43 a a Q: ‘$D( @GLO2) 
Q:SD("FM($J, PG, LN+CNT, TB) ) s “FM( SO, PG, LN+ONT, TB) =6GLO2 CNTSCNT+1 
QUIT 


I 
CHECK I $D( “FM(S2,PG,LN,TB) ) S LN@LN+.01 G CHECK 
Q 


Ranken INDEX OF T3CF wens 


LOCAL VARIABLES LINE OCCURRZNCES 
{ * Changed : Killed) 


% LOOP* , KILL! /STORE+1* ,MLTIe1* 
>> %1 STORE+1 * 
te LOOP* , KILL! 
$3 KILL! ,WP+la 
$4 KILL! ,SEL® 
D=4 








498 
$99 


BEG 
>> BL 
CNT 


DF1l 
>> EO 
>> ELEM 


>> FN 


>> GLO 


>> IOF 


>> NAME 


>»> NODE 


SEL 
5ST 
>> TAB 
TB 
TON 
TeXT 
>> TEXT( 
TA 
VWXL 
>> U 


>> UP 
»> Vv 
X 
x1 


MK! ,M34+3*,M3K*,M3K+2! 
FILL+2*,M1*,M2*,M2¢1*,MX!,M3*,M3+1*,.M34+2*,M3+3*,M3K* ,M3K+1* 
M3K+2! 
KILL! ,GDT+2* , GOTO, GOT0+1 , GDT0+2* ,GDT0+3 , GDT0+4* ,GDT1+1, PTR+1 
SEL 
KILL! ,GDT+2*,GDTO ,GDT0+1 , GDT0+2 ,GDT0+3,GDT0+4* ,GDT1L, GoT1+1 
GDT1+3,GDOT1+4, FREE, MULT, MULT+1,DTE, PTR, PTR+1,PTR+2,SEL 
M1*,M2,M2+1*,MK!,M3+2,M3K,M3K+2! 
STORE+1* : 
KILL! ,FIO*,FI2*,ML*,M2*,MK! ,M3+1*,M3+2,M343,M3K,M3K+2! ,WP+1* 
Ml*, MK! ,M3+2*,M3+3,M3K+2! 
KILL! ,GDT0+3*, GOT0+4 ,GOT1+2,GDT1+4, MULT+1 
INIT, GDTO+1 
MULT+1* 
Ml+1*,M2,MK! (M3438, M3K+2! 
INIT* , LOOP, GOT+2,GOT--3, MULT. PTR+1 
KILL! ,PTR+1*, Raaretanenes 
LOOP, MULT 
LOOP* , KILL! ,GOT1¢«3*, MULT*, VMULT+1*, al 
KILL! ,MULT*, MULT+1* ,WP+]* 
NIT*® 
KILL! ,STORE+1¢,FI*,MLTI+1*,M1,Ml+1,M3,.M3K+2*,GOT+3*,GDTO 
GOTC+1, FREE, MULT+. *,DTE, PTR, PTR+2,SEL,WP+1,CHECK® 
Ml*®,M1+1,MK! ,M34L*,M342,M3Ke2! 
M1*,M2*,MK! M4343, M3Ke2! 
M1l* MK! ,M3¢,M341,M3+2, M3K+2! 
KILL! ,GDT+2*,GDT1 ,GDT1+4*, MULT+1¢ 
Mi«, M2, M2+1,MK!,43+3,M3K,M3Ke2! 
MULT+i* 
KILL! ,GDT1+1*,GOT1+3 
MULT®* , MULT+1¢* 
KILL! ,GOT1+1* (COTL+3, PTRe1*, PTRe2 
LOOP* KILL! , STORE+1#-F13,MLTI¢1®,Ml.M2,M2+1,M3,M3+1,M343 
M3K,M3K+el, GOTO ,GOT0+1, FREE, OTE, PTR, PTR+2, SEL, WP+1 , CHECK 
KILL! ,SEL*® 
LOCP* , KILL! ,GOT+2,GOT+3, MULT, PTRe1 
STCRE+1L*, FILL, FILLel, PILL+2,FI3 
KILL! ,GOT+3*, GOTO ,GOTO+1, FREE, OTE, PIP, PTR+2,SEL, wP+l, CHECK 
INI T¢1*, LOOP*®, KILL! ,GOT+2,GOT+3,MULT, PTRe1 
KILL! ,STORE+1°,F10,MK!,M3Ke1*, M3K+2! 
M343° M3Kel 
ma uel STORE+1L® FILL fiLLel*®,PILLe2*, FIO*, FI1*, FI2* 
LLL, FILL*, PILLe1, FILL+2,F10¢ 
ee LOOP, GOT+2 ,GDT+3,GDT0+1,GOT0+3,GOT1lel, cores MULT 
MULT¢1,PTRe1, PTRe2,SEL 
MULT+1¢ 
INIT#1¢,GO7! +1, MULTeL, SEL 
GDT143*, FP! OTEL, PIR, PTRe1, PTRe2!,c me3!, SEL 
K°LL! ,OTE*: Seu’ 


GLOBAL VARIABLES ( * Cnanged | Killed) 


*pO( 


EMPLOY ( 


t0T0+2,GOT0+3,GOTLeL MULT+1, PTR+1,SEL 
CoT04l 











“PM ( LOOP+1! ,STORE+1*,FI3!,MLTI+1,M1,M2*.Ml+1! ,M3,M34¢1 ,M3+3,M3K! 
M3K+1*,GDT0+1*, FREE*,DTE*, PTR*, PTR+_*, SEL* ,WP+1* , CHECK 
“FORMS ( INIT, LOOP, GOT+2,GDT+3, MULT, PTR+1 


e( GOT1+4 
CHECK FREE, OTE, PTR, PTR+2,SEL, CHECK 
FIO FILL, FILL+1 
FIl FIl 

FI2 FI1,FI2 

FI3 FIZ 

FILL STORE+1 
GoT LOOP 

GOTO Go10+4 
Gorl GoTl+4 

KILL INIT+1. END 
M1 MLTI+¢1 

M3 Mlel 

M3K M343 

MK MM 

MLTI LOOP+1 
MULT GOT1 

STORE LOCP+1 

Wwe GOT1+2 


EXTERNAL REFERENCES 
“T3CF1 INIT#1 


“TICF2 ED 
“T3ICFSEL INIT 


deh 











TICF1 
INIT 


BEG 


END 


HEADER 








?THIS pie CREATES A TEMPORATY GLOBAL FOR CA FORMS ; DMP; 14 Nov 87 
Q:'SD(FN) I 'SB(°FORMS(FN,0)) Wi,!," INVALID SELECTION " Q 
Un"*", (TB, PG, LN, LC)="", POS="" , Nel ,ALPHA="abcdefghi jkLnopq” ,C#0_ 
(HD,LINE,SP)="" F %$99=1:1:132 S LINEsLINE_" " 
(P2, SHT)="", (OLN, HCT)=0,LP=60,BPel,TB=1 K “FM 
1,"Compi .ing forms [...° d HEADER,DATA 
“PM("B", 7), 1)=LC(1), “FM("B",SJ, 2)=LC(2),7 FM(SJ,0)=FN 
CNT,DE, SECN, SEC,I1,12,13,14,15,ALPHA,C,D2,D2,D3 
C1, C2,C3,C4,LN,O°N, POS, TEXT, TP, XB, XIE, XB, XE 
16,N,P2,?G,SHT, TAB, TLN,U,V,D,I,X,HCT,IT 


greta: 


;CREATES A TAB CHARACTER 

S SP="" Q:’SD(TB1) F %99e1:1:TBL S SPeSP_" " 

S TBX=SF TBX K TB1,S? Q 

F $99—1,2 S “FM($I,%99,BP,1)=S$P(“FORMS(7N,0),U,1) " " 
_$P(7(0},U,2),LC( $99 )=BP, LC=BP 

F tel,5 S$ PGw$S(%05:2,1:1),LC(PG)@LC I $D(“FORMS(FN,%,0)) S HD=0 
F $lel:1 S HD=SC(~“FORMS(FN,%,HD)) Q:HD="" 

S$ LC(PG)=LC( PG)+1, “FM(SJ,PG,LC( PG), i)="FORMS( FN, %,HD,0) 

F tel ,2 S LC(B)mLC($) 41, FM(SI,%,LC(%),1) LINE, “FM($I,¥,LP+3,1)@LINE. 
TBX=SP( “FORMS(PN,0),U,1)_" REVISION DATE: " 

$P(“(0),U, 3), TBlel32-SLTTBX)\2 D TAB 

5 7PM(S3,%,LP+4,1)=TBX, “FM("B",$I,%)@LC{%)+1 

K TSX,TB1,TAB, 31,899,% Q 

;CREATES DATA FORMAT 

S (CNT, 12)=0,LPG=l 

F Tel:1 Q:’SD{*fORMS(FN,6,"B",I)) D DE 

F Ilel:1 S I2mSN(TCF(I2)) Q:I2e=-1 S$ C3#TCF(12),C4er2 D WR1,L2 


Le) 


S C2—SP(“SCRMS(FN,3,C3,1,0),%° 7,3), PG=SP( “FORMS( FN, 3,C3,0),U,5) 
S:PGe"" POsLPG S LPG=PG 
F Ljel:1:72 0:S5D( 7FORMS(FN,3,C3,1,13,0)) F2 ¥ TF(C4) 


oe a) 


S STC#SO(~FORMS( FN,6,"B",1,"")) , SECWeSP( “FORMS( FN,6,SEC,0),""",2) 
F Tlel:1 S CNT#S0(*FCRMS(FN,3,"C",SECN,CNT)) Q:°NT3"" 

:SD{ “FORMS(FN,3,CNT,Q)) D&=SP( “PORMS(FN,3,CNT.0),°7",1), 

TIF (DE @CNT, SECN, I) @SECN 


qa 


T4el:i S Clel2_SE(ALPHA,14) Q:’SD(TCF(C1)} S C3=TCF(C1),C4eCl D WRI 


onmno: 


S TEXi@$P( “FORMS( PN, 3,C3,1,13,0),"°",2) 

S ‘fPwSP( “FORMS( FN, 3,C3,1,13,0),"°",2) 

S LyeSP( “FORMS(FN, 3,C3,1,£3,0),"°",3) 

Q:LNe""1(TPe"*) DP F21 Q 

I $D(°FM($J,2G,LN,TP)) S:’SD(LC(PG, "FILL")) LN=LN+l 

S:LN>62 LO(PG, "FILL" )@”" Q:SD(LC(PG,"FILL")) G F21 

S “FM(SJ,PG,LN,TP)@TEXT S:LC(PG)<LN LC(PG)@LN W:/(LNS1O) *." Q 


eeees INDEX OF TICF1  **eee 


LOCAL VARLABLES LiNE OCCURRENCES ( * Changed ! Killed) 


HEADER+1* , HEADER+2* , HEADER+ 31 
NEADER+1* , HEADER+ 3! 


>> 


>> 


>> 


>> 


>> 


$99 
ALPHA 
BP 


cl 
C2 
C3 
C4 


D1 
D2 
b3 
DE 


HCT 


Il 
12 
13 
14 
15 
16 
It 


LC( 
LING 
LN 
LP 
LPG 





INIT+1*,TAB+1*,HEADER* HEADER+3! 


INIT+1%, END! ,L2 
INIT+2* , READER 
INIT+1*, END! 
END+1!,L2* 

END+1! ,WR1*,WR1+1 


END+1!,WRO*,WR1,WR1+1,42*, 2, F241 Flee 


END+i!,WRO*,WR1+1,L2* 
END! ,DATA+1*, DE+1* 
END+2! 

END! 

END! 

END! 

END! ,DE+1* 


INIT, BEG+1 , HEADER, HEADER+1 , HEADER+ 


DE+1, F2,F2+1,F72+2 
INIT+2*, END+2! 
INIT+1*, HEADER+1* 
END+2! /DATA+2*, DE, DE+1 
END! ,DE+1* 

END! , DATA+1* ,WRO®,L2 
END! ,WR1+1*,F2,F2+1,F2 
END! ,L2* 

END! 

END+2! 

END+2! ,WRO* 


+2 


INIT+1*, HEADER®* , HEADER+1 
BEG+1,HEADER* , HEADER+1*, HEADER+2¢, F21*,F2le]* 


INIT+1*, HEADER+2 


< DATA+2,WR1,WR1+1,DE 


INIT+1*,END+L! /F2+2*,F2+3,F21¢, F214) 


INIT+2*, HEADER+2 
DATA+1* ,WR1*® 
INIT+1*, END+2! 
INIT+2*,END+1! 
INIT+2*, END+2! 


INIT+1*, END+2! /HEADER+1* ,WR1*,F21,Fol+) 


INIT+1*, END+1! 

END! ,DE* 

END! , DE*, DE+1 

DE+1* 

INIT+2*, END+2! 
INIT+1*, TAB+1*, TAB+2! 
END+2! , HEADER+ 3! 
INTT+1*, INIT+2¢ 


TAB+1, TAB+2! , HEADER+2* , HEADER}! 
TAB+ 2*, HEADER+2* , HEADER+ 3! 


WKO,WR1+1! ,DE+1*,12 
FND+1!,F2*, F214] 
END+2! 


END+11,F241*,F2¢3,F21,F2)41 
INIT+1*,END+21! + HEADER , HEADER+2,WR1 


EXD+2! 
END+2! 
END+1! 











XiE 
XB 
XE 


GLOBAL VARIABLES 


“FM( 


*“ FORMS ( 


NAKED GLORALS 


*(0) 


LABEL REFERENCES 


DE 
F2 
F21 
L2 
TAB 
WRI 


END+1! 
END+1! 
END+1! 


{ * Changed 


INIT+2! ,BEG+1*, HEADER* 
INIT, HEADER, HEADER+1, 


2+1,F2+2 
HEADER , HEADER+2 


DATA+2 
WR1+1 
F2+3,F21 
WRO 


HEADER+2 
WRO, L2 


EXTERNAL REFERENCES 


NONE 





! Killed) 


D-9 


»HEADER+1* , HEADER+2*, F21,F21+1« 
HEADER+2 , DATA+2,WR1,WR1+1,DE,DE+1,F2 








lame 


T3CF2 ;THIS PROGRAM PRINTS OUT CA FORM; AJF; 9/87 ; 16 Nov 87 3:46 AM 

INIT ‘SD(“FM)1(°SD(7FM(SJ,0))) W1,"A form must le compiled first!" q 
‘SD(FN) W!,"A form must be selected!" g 

“FM(SJ, 0)*=EN W !,” INVALID FORM!" Q 

Ua"*"" (TB, PG, LN)="™ 

SD(*FORMS(FN,2,0)) W !," Do you want to print the instructions ? <N> " 
ANS S:ANS="" ANS="N" D:SE(ANS,1)("y"!(SE(ANS.1)("Y") “T3CFI W # 
POS="" , Nel ,-ALPHA@"abcdefghijkimnopq",CONSR= DD("FUNC",116,1) 
BOLD=*DD( "FUNC", 114,1),COND="DD("FUNC",115.1),(P2,SHT)="", (OLN, HT)=0 
*$IS O IO U IO D PRINT 

# W *13 C IO 

(DIC,DA,DO,DUZ,DTIME) Q 

PRINTOUT FORMS 

PGe"" F $88ei:1 S PGeSO( “FM("B",SJ,PG)) Q:PCe"" § (TLN,LN,OLN)@l 

# X BOLD,XB W “FM(S$J,PG,1,1) D PRI 


INST 


——> 


BEG 
CLOSE 


pe cE al Eh a 


PRINT 


~~ > 


PRI $2—e1:1 S LN=SO(“FM(S$J,PG, LN) ) Q:LNew"" SS TEXT*°FM(S$J,PG,LN,1) D PRI1 


$ 
W 
QUIT 
F 
Q 
PRI] I LNel W! S OLN=LN 
I LNDOLN F I6m0LN+1:1:LN W ! 
S OLN]LN 
I SE(“FM(S$J,PG,LN,1),1)="*" D Pl Q 
W SE(“FM($J,PG,LN,1),1,132) ;K “FM($J,PG,LN,1° 
IT LND64 S OLN=0 W # 
Q 
Pl S SHT@SP(“FM(SJ,PG,LN,1),"*",2) 5K “FM(SJ,PG.LN,1) 
X XB W SHT,! X XE S OLNwOLN+1 Q 


seem INDEX OF T3CF2  ***** 


LOCAL VARIABLES LINE OCCURRENCES ( * Changed ! Killed) 
»> $2 PRI* 
>> $88 PRINT+1¢ 
>> ALPHA INST+1* 
>> ANS INST* 
>> BOLD INST+2*, PRINT+1 
>> COND INST+2* 
>> CONSR INST+1* 
>> dO CLOSE+1 
>> DA CLOSE+1 
>> DIC CLOSE+1 
OTIME CLOSE+1 
DUZ CLOSE+1 
>> FN INIT4+2,INST 
>> HT INST+2¢ 
>> 16 PRI1+1* 
10 BEG, CLOSE 
>> LN INIT+3*, PRINT+1*,PRI*, PRI1,PRI1+1,PRI11+2, PRIL+3, PRI144, 
PRI1+5,P1 
>> N INST+1* 
>> OLN INST+2*, PRINT+1®,PRI1*, PRI1+1,PRI1+2*,PRI1+5*, Plel 
>> 22 INST+2¢ 
>> PG INIT¢3*, PRINT+1*, PRI, PRI1+3, PRI1+4, Pt 


N-10 











>> POS INST+1* 

>> SHT INST+2*,P1*,P1+1 
>> TB INIT+3* 

>> TEXT PRI* 

>> TLN PRINT+1* 

>> UY INIT+3* 

>> XB PRINT+i , Pl+1 

>> XE Pl+1] 


GLOBAL VARIABLES ( * Changed ! Killed) 


“DD( INST+1, INST+2 
“FM( INIT+2, PRINT+1,PRI,PRI1+3,PRI1+4,P1 
* FORMS ( INST 
NAKED GLOBALS 
NONE 


LABEL REFERENCES 


Pl PRI1+3 
PRI PRINT+1 
PRIL PRI 
PRINT BEG 


EXTERNAL REFERENCES 


“IS BEG 
“T3ICFI INST 


D-tt 














T3CFB ;THIS PROGRAM CREATES A TEMPORARY GLOBAL FOR SLANK FORMS ; 25 Aug 88 
DIC="1002",DIC(0)="A",DR=".01" D “DIC Q:¥<1 S FNe+Y 

:‘SD(FN) I ‘SD(*FORMS(FN,0)) W!,!," INVALID SELECTION ” Q 
Ue"*", (TB, PG, LN, LC)="", POS="" ,Nel ,ALPHA="ancdefghi jk Lanopq” 
C=0,(HD,LINE,SP)="" F $99e1:1:132 S LINE@LINE " “ 
(P2,SHT)="", (OLN, HCT)=0,LP=60,BF21,TBel K “FM 

!,"Compiling forms [..." d HEADER,DATA,STORE W"J",! 
“FM(*B",SJ,1LeLC(1), “FM("B",$J,2)eL0(2), “FM(SJ,O)@FN D “T3ICF2 
CNT, DE, SECN, SEC,I1,12,13,14,15,ALPHA,C,D1,D2,D3 
C1,C2,C3,C4,LN,OLN, POS, TEXT, TP, X1B,X1E,%B, XE 
16,N,P2,PG,SHT, TAB, TLN,U,V,D,1,X,HCT, II 


INIT 


BEG 


ORMARHVENNNON 


CREATES A TAB CHARACTER 

SP="" Q:'SD(TB1) F %99e1:1:TB1 S SPeSP_” ” 

TBXeSP TEX K TB1,SP Q 

CREATE ONLY ONE STRING PER LINE 

PG=1,2 S LNe"" F tel:1 S LieSO(“FM($I,PG,LN)) Q:LNe"* 
(TEXT, TX, BL, TAB)=*" F %l=1:1 S TAB=SO(“FM(SJ,PG,LN,TAB)) Q:TABs"" 
TEXT*"PM($J,PG,LN, TAB) D FILL S$ ~2M($J,PG,LN,1)=TX 


mae 


STORE 


~——)> 


TXL*SL(TX) G:TABel FIO 
TXL@TAB!(TXL>TAB) S TXeTX_" " G FIO 
%$99=TXL:1:TAB-1 S TXeTX "" 
FIO TX=TX TEXT, TXL@$i( TX), CNT=0 
FIl I SL(TX)>132 G:S$E(TX,SL(TX)) "=" * FIZ S TKeSE(TX,1,$L(TX)-1) G FIL 
FI2 I $L(TX)>132 G:SP(TX,"” %,2)eTX1(CND10) FI3 S CNTeCNT+1, 
—> TxXe$P(TX,” ",1)_" * S$P(TX," ",2,999) G FIZ 
FI3 K: TAB’=1 “FM(SJ,PG,LN,TAB) Q 
HEADER F %99~1,2 S “FM(SJ,%99,BP,1)=S$P(“FORMS(FN,0).U,1) " " 
—_—> $P(°(0),0,2),LC(%99)@BP, LC@BP 
F $01,5 S PGeSS(%e5:2,1:1),LC(PG)@LC I $D(“FORMS(FN,%,0)) S HD=0 
——>  F %lel:1 S HD=S0( “FORMS(FN,%,HD)) Q:HDe"" 
a> = S LC(PG)=LC( PG) +1, “FM($J,PG,LC(PG),1)=©" FORMS(FN,%,HD,0) F tol,2 
> S LC(B)eLC( 8) 41, “FM(SI,%,LC(%), 1 LINE, “FM(SJ,%,LP+3,1)=LINE, 
—->  TBXeSP(*PORMS(FN,0),U,1) " REVISION DATE: " 
—>  _$P(*(0),U,3),7B10132-SLTTBx)\2 D TAB 
——>  § “FM(SJ,%,LP+4,1)@TRX, “FM("B", SI, 8) @LC(R) 41 
K TAX,TB1, TAB, $1,899,% Q 


‘FILL 


OMe nNnOnan sy 


DATA ;CREATES DATA FORMAT 
S (CNT,12)90,LPGe1 
F Tel:1 Q:’SD(“TORMS(FN,6,"B",I)) D DE 
WRO F Ilel:1 S I2eSN(TCR(I2)) Q:I2—e-1 S C3sTCF(12),C4eI12 D WRI, L2 


Le) 


WR1 S C2@SP(“FORMS(FN,3,C3,1,0),"°",3), PG=SP( “FORMS( FN, 3,C3,0),U,5) 
S:PGe"" PGeLPG S LPG=PG 
F 13e1:1:C2 D:SD(“PORMS( FN, 3,C3,1,13,0)) F2 K TCF(C4) 


Q 

DF. S SEC*SO( “FORMS(FN,6,"B°,I,°")), SECN=SP( “FORMS( FN, 6,SEC,0),°*", 2) 
F Ilel:1 S CNT=SO( “PORMS( FN, 3,"C",SECN,CNT)) O:chTe"* 

~—>  $:S0(“FORMS( FN, 3,CNT,0)) D&=SP(“FORMS(FN,3,CVT,0),"*",1), 

——> — TCF(DE) CVT, SECN( I) =SECN 


Q 
L2 F T4el:1 S Clel2 SE(ALPHA,I4) Q:/SD(TCF(C1)) S C3=TCP(CL),CdeCl D WRI 
Q 


D-12 











F2 Ss TEXT=$P( “FORMS( FN, 3,C3,1,13,0),%°",1) 
S TPe$P( “FORMS( FN, 3,C3,1,13,0),"°",2) 
S LN=SP( “FORMS(FN,3,C3,1,13,0),"*",3) 
Q:LNe""!(TPe"") DP F21Q 
F21 I $D(“FM($J,PG,LN,TP)) S:’SD(LC(PG,"FILL")) LN=LN+l 
_> S:LN>62 LC(PG,"FILL")="" Q:SD(LC(PG,"FILL")) G F221 
S “FM(SJ,PG,ILN,TP)@TEXT S:LC(PG)<LN LC(PG)=LN W:’(LN#10) "." Q 
RRR INDEX OF T3CFB WHERE 
LOCAL VARIABLES LINE OCCURRENCES { * Changed ! Killed) 
% STORE+1* , HEADER+1* , HEADER+2* , HEADER+3! 
$1 STORE+1* , HEADER+1* , HEADER+3! 
499 INIT+1*, TAB+1*, PILL+2* , HEADER®* , HEADER+31! 
ALPHA INIT+1*,END!,L2 
>> BL STORE+1¢ 
>> BP INIT+2* , HEADER 
c INIT+1*,END! 
cl END+1!,L2* 
C2 END+1! ,WRL* ,WKL+L 
C3 END+1! ,WRO* ,WR1,WR1+1,L2*,F2,F2+1,F2+2 
c4 END+1!,WRO*,WR1+1,L2* 
CNT END! , FIO*, FI12*, DATA+1*, DE+1* 
D END+2! 
D1 END! 
D2 END! 
D3 END! 
DE END! ,DE+1* 
>> DIC TICFB+1* 
>> DIC( T3CFB+1* 
>> DR T3CFB+1* 
>> EN T3CFB+1*, INIT, BEG+1] , HEADER, HEADER+1 , HEADER+2, DATA+2,WRL 
WR1I+1,DE,Di 1,F2,F2+1,F2+2 
HCT INIT+2*,2X +2! 
>> HD INIT+1* , HEADER+1* 
T FNDC+21 ,DATA+2*, DE ,DE+1 
I] END! , DE+1* 
I2 END! , DATA+1* ,WRO* ,L2 
13 END! ,WR1+1*,F2,F2+1,F2+2 
14 END! ,L2* 
15 END! 
16 END+2! 
II END+2! ,WRO* : 
>» INIT+1* , HEADER* , HEADER+1 
>> 1C( BDG+1 , HEADER* , HEADER+1* , HEADER+2*, F21*, F21+1* 
>> LINE INIT+1* , HEADER+2 
LN ; INIT+1*, END¢L! ,STORE+1*, F13,F2+2*,F2+3,F21*,F21+1 
>> LP INIT+2* , HEADER+2 
>> LPG DATA+1* ,WRL* 
N INIT+1*, END+2! 
OLN INT T+2* , END+1! 
P2 INIT+2*®, END+2! 
PG INIT+1*, END+2! ,STORE+1*, FI3,HEADER+1* ,WRL*,F21,F21+1 


D-13 











POS INIT+1*, END+1! 
SEC END! ,D=* 
SECN END! , DE* ,DE+1 
>> SECN( DE+1* 
SHT INIT+2*,END+2! 
SP INIT+1*, TAB+1*, TAB+2! 


END+2! ,STORE+1*, FILL, FILL+1,FILL+2, F13,HEADER+31 
INIT+1*, INIT+2* 

TAB+1,TAS+2! , HEADER+2* , HEADER+3! 

TAB+2* , HEADER+2* , HEADER+31! 

WRO ,,WR1+1! ,DE+1*,L2 

END+1! ,STORE+1*, FIO, F2*, F21+1 

END+2! 

END+1!,F2+1*,F2+3,F21,F21+1 

STORE+1* , FILL, FILL+1¥, FILL+2*, FI0*, FI1*, FI2* 
FILL*, FILL+1, FILL+2,F10* 

INIT+1*,END+2! , HEADER, HEADER+2,WRI1 

END+2! 

END+2! 

END+1! 

END+1! 

END+1! 

END+1! 

»> ¥ T3ICFB+1 


Vv 
v 


NBEEX< “Rada daB ag 


m ow 


GLOBAL VARIABLES ( * Changed ! Killed) 


“FM ( INIT+2! , BEG+1*, STORE+1*,F13! ,HEADER* , HEADER+1* , HEADER+2* 
F21,F21+1* 

“FORMS ( INIT, HEADER, HEADER+1 , HEADER+2,DATA+< ,WR1,WR1+1,DE,DE+1,F2 
F2+1,F2+2 


NAKED GLOBALS 
“(0) HEADER , HEADER+2 
LABEL REFERENCES 


DE DATA+2 
F2 WR1+1 
F21 F2+3,F21 
FIO FILL, FILL+l 
FIl FIl 

FI2 FI1,FI2 
FI3 FI2 

FILL STORE+1 
L2 _ WRO 

TAB HEADER+2 
WRI WRO,L2 


EXTERNAL REFERENCES 


“pIc T3CFB+l 
“T3CF2 BEG+1 


D=-14 








T3CFCK 
INTT 


CHFST 


CKENTY 


——— > 


LAST 








;DMP; IS LAST CLAIM FILED IS IN PROPER SEQUENCE? ; 09 Nov 87 2:43 PM 
S msg=" ",y=24,FORM="",Ue"*" G:'SD(DA) EX 
s:'S$d(om) ome" g:ome"" EX D EX 
S DATE#=$P(obi(5),db,2} ,DATE=$P(DATE,".",1),CF=om, FN=SP( “FORMS(CF,0),U,1) 
S FORM=SP(“FORMS(CF,0),U,5) I FORM=""!(DATE="") S ome"" g EX 

;FORM NOT DEFINED OR IMPROPER DATE 

ee TO SEE IF FIRST ENTRY 

I ‘SD(“EMPLOY(NAMEPTR,”"ICC","C",DATE)) S FIRST="" G FIRST 
;CHECK TO SEE IS A CA-l, CA-2, OR CA~6 IS ALREADY ENTERED FOR THIS CASE 
CENe"CAH1" I (FNe"CA-2") | (FNe"CA-6") ) G LAST 

TPe"" 7 Tei:1 S IPw$O( “EMPLOY(NAMEPTR,"ICC","B",CF,IP)) Q:IPm"" 

$D( “EMPLOY(NAMEPTR, "ICC", "C", DATE,IP)) S ERROR="" 
$D(ERROR) s msg=FN_" already entered for this claim.",om="", FORM="" 
hprt*ptrslot2 G EX 

LAST="" I SD(“ICC(DA,200)) S LAST=$P( “ICC(DA,200) ,U,9) 

:LAST’="" CKSEQ 

ITel:1 S LAST=$0( “EMPLOY(NAMEPTR, "ICC","C",DATE,LAST)) Q:LAST="" 
IP=LAST 

:$D(IP) LAST=SP( “EMPLOY(NAMEPTR, "ICC", IP,0),U,1) G:LAST’="" CKSEQ 


=e 


~~ se CHM BYOAN OW eH UH 


VERIFY NEXT FORM 

27 (FNe"CA$1"1 ( PNm"CA-2") f ( FN "CA-16") ! ( FN="CA-6") 1 ( FN="CA-17") ) 
mege"This is not a top level form (e.g. CA-1 , CA-2, CA-16, CA-6)", 
ome"" , FORM="" D hprt“ptrslot2 g EX 

; CHECK SEQUENCE 

I '$D(“FORMS(LAST,7,"B",CF) ) 

s msg="Select from the following forms:",om="",FORM="",NEXT="" 

F $el:1 S NEXT=$0(“FORMS(LAST,7,"B",NEXT)) O:NEXT="" 

S msg=msg_"(" Sp(“FORMS(NEXT,G),U,1)_") ",NFLAG@1 

I SD(NFLAG) s y=23 d hprt* ptrslot2 s ye24 

K DATE,CF,LAST1,LAST,1,FIRST,FN,IP,NEXT,NFLAG, ERROR K:FORMe"" FORM q 


ua 


aeaee INDEX OF TICFCK **#*# 


“LOCAL VARIABLES LINE OCCURRENCES ( * Changed ! Killed) 


CF 
>> DA 


INIT+2* , CKRENTRY+2 , EX! 
INIT, LAST 


DATE — INIT+2*, CHFST+1, CKENTRY +2, LAST+1, EX! 
ERROR CKENTRY+2* , EX! 
FIRST CHFST+1*, EX! 


FN 


INIT+2* , CRENTRY+1 , EX! 


FORM INIT*, INIT+2*, FIRST*, EX! 


I 
TP 


CKENTRY+2*, LAST+1*, EX! 
CKENTRY+2*, LAST+1*, LAST+2 ,EX! 


LAST LAST* , LAST+1*, LAST+2* , EX! 
LASTI EX! 
>> NAMEPTR CHOST+1 , CKENTRY+2, LAST+1, LAST+2 
NEXT EX! 
NFLAG EX! 


>»? U 


INIT*,LAC™. AST+2 


GLOBAL VARIABLES ( * Changed ! Killed) 


D-15 











“EMPLOY ( CHFST+1 , CKENTRY+2, LAST+1, LAST+2 
“ICc( LAST 

NAKED GLOBALS 
NONE 


LABEL REFERENCES 


CKSEQ LAST, LAST+2 
EX INIT, INIT+2 
FIRST CHFST+1 
LAST CKENTRY+1 


EXTERNAL REFERENCES 


hprt“ptrslot2 FIRST 


D-16 

















TOCFI ;THIS inet PRINTS OUT INSTRUCTIONS FOR CA FORMS;DMP; 9/87 
BEG Q:’SD(FN) I ’S$D(*FORMS(FN,0)) Wt,!," INVALID SELECTION " 9 
S '$D(“FORMS(FN,2)) W1,"There are ne insiructions for this form" q 
s BOLD=“DD("FUNC",114,1),(P2,SHT)="", (OLN, HCT)=0 
OPEN D “SIS 0 10 U IOW # D INST 
CLOSE W *13 C IO 
' K CNT,HCT,1I,OLN,SHT, XB, XE, BOLD, RMSDF,HTIC, IOPAR, [OSL 
K IOST,IOT, 10M, 10, 10BS,IOF Q 
INST ;THIS SECTION PRINT OUT INSTRUCTION 
X BOLD,XB W “FORMS(FN,2,1,0),! X XE 
S CNT#SP(“FORMS(FN,2,0),"°",3},OLdNel 
F Im2:1:CNT S INS@°FORMS(FN,2,1,0),LENG=SL(INS) D S1 
K SECN,SEC,P2,15,16,SP,EP, LENG, INS 


Le) 


Sl S SP=Q,2P0133 
F I5el:1 S P2eSE(INS,SP,LENG) D S4 Q:$L(P2)<133 D $2,S3 


' $4 


c 
S2 F OI6=EP:~1 Q:SE(P2,16)=" " 
Q 
$3 I SE(P2,l)<" " § P2eSE(P2,2,999} 
W SE(P2,1,16~-1),3 S SPeSP+16,HCT=HCT+1 W:HCT=60 # Q 
Q:$L(P2)>80 I SE(P2,1)—" " S$ P2eSE(P2,2,999) 
WP2,! S HCTeHCT+1 W:HCT=60 ¢ 
Q 
Rkkke INDEX OF T3CFI RHRERN 
LOCAL VARIABLES = LINE OCCURRENCES ({( * Changed ! Killed) 
BOLD BEG+2* ,CLOSE+1! , INST+1 
CNT CLOSE+L! VINST#2*, INST+3 
EP INST+4!, $1*, $2 
>> FN BEG, INST+1, INST+2, INST+3 
HCT BEG+2* ,CLOSE+11! ,S3+1*,S54+1% 
HTC CLOSE+1! 
T CLOSE+1! , INST+3* 
IS INST+4! ,S141* 
' 16 INST+41,S2*,S3+41 
IMS INST+3*, INST44! S141 
ro OPEN, CLOSE, CLOSE+11 
1oBS CLOSE+1! 
IoF CLOSE+1! 
TOM CLOSE+1} 
IOPAR CLOSE+1! 
10SL CLOSE+11! 
10st CLOSE+11 
ror CLOSE+11 
LENG INST+3* ,, INST+4!,Sl+l 
OLN BEG+2* , CLOSE+1!, INST+2* 
P2 BEG+2*, INST+4! ,S141*,52,53*,$34+1,S4*, 544) 
RMSDOF CLOSE+1! 
SEC INST+4} 
SECN INST+4} 
SHT BEG+2* , CLOSE+11 


D1? 











SP INST+41,S1*,S1+1,S3+1* 
XB CLOSE+1!, INST+1 
XE CLOSE+1! , INST+1 


GLOBAL VARIABLES ( * Changed ! Killed) 


“DD( BEG+2 
* FORMS ( BEG, INST+1, INST+2, INST+3 


NAKED GLOBALS 
NONE 


LABEL REFFRENCES 


INST OPEN 
$l INST+3 
$2 Sl+1 
$3 Sl+l 
$4 Sl+1 


EXTERNAL REFERENCES 


“$IS OPEN 











TICFILE;OMP: THIS POUTINE SORES THE CLAIM FORMS IN EMPLOY DATA FILE ; 02 Dec 87 
INIT D EX G:'(SD(DA)#16!($D(D0)#10)) EX S:/($D(D0)#:0) DO\DA 
S CFe"ptg(903,iform,1),CF=$o( “FORMS("B",CF,"")) Q:Cre”" 
S Ue"*" ,DAsDO, EMP=S$P( “ICC(DA,0),U,3),DATE=SP( ICC{DA,0),U,2) 
S DATE=SP(DATE,”.",1),1Dte"", LVe0,NDe"DA", FORM=i form 
G:EMPe""!(DATE="") EX 
I 'SD("EMPLOY( EMP, "1CC",03) S CLel G FILE 
I ’SD(“EMPLOY{EMP, "ICC", "C",DATE)) S CLaSP(  EMPLOY( EMP, "ICC",0),U,4)+1 
G FILE 
S Cim"* F tel:1 S CLaSO( “EMPLOY; EMP, "ICC", "C".OATE,CL)) Q:CL="" 
Q:SD( “EMPLOY( EMP, "ICC", "B",CF,CF)) 
I CLea"" S CLeSP( “EMPLOY( EMP, "“ICC",0),U,4)+1 G FILE 
G:SD(ERFLAG) FILE G EX 
LE 5 msge"Warning once a form is filed in the employee file it cannot be 
~>  edited!!!! Do you wish to continue ? <N> “,ye.3 d hprt“ptrsiot2 

ANS G:SE(ANS,1)’="Y"a(SE(ANS,1)’e"y") EX 

msqe"Filing " Sp(“FORMS(CF,0),U,1) " [.",ys-4 da hprt ptrslot2 
“T3COPD ;SET UP COP DATA ELEMENTS — 

tel:1 S [DtSO(“ptg(903,FORM,12,IDN)) q:IDie"" OD GSET W:'(%#10) ”." 
:LV¥ed SP( “EMPLOY( EMP, "ICC",CL,200),U,9)@CF, 
~———> “EMPLOY! EMP, "ICC", “B",CF,CL)a"",SP( “ICC(00,207!,U,9)@CF, 
S20 SP: “EMPLOY( FMP, "ICC™,CL, 200) ,U,9)eCF, 
<--> 9 22! “EMPLOY( EMP, "ICC*, CL, 200),U,10)="",SP( “ICC! D0, 200),U,10)—"" 
END G:$3(SUB)>1 MFLDS : 


fn 
2) 
waeo nw 


S$:'SD(  SMPLOY( EMP, "1CC0",0)) “EMPLOY EMP, “ICC*.0)e" 2004. 21 PA" 
S:'TOCERFLAG) SPt” EMPLOS( EMP, "1CC*,0),U,3)eCl, 
=n? $P)  EMPLOY( EMP, "iCC",9),U,4ieCL ; INCREMENTS [CUNTER 


F978, 12,191,211, 212,227,286, 252, 306, 311, 314.902,502, ; 
“~=) E98 ,596,507,508,509,510,511,512,520,521,522,.5.3,524 K “ICC(DO,%3) 
F 4 30201,804,805,612,1600, 1602, 1603,1604, 1u05. 1506, 16657, 1608, 
2--> 2705, 27901,1752,1703,1704,1706,1707,1709, 1710... 929, 2005, 2007, 
--~> 2358,2909,2019,2011,706,704 K “1CC'™),%3) 
3:90! 10C(D0, 303)) “2CC(00, 103; —5P( 1CC( oe, 3) °+U,1, 6) 
SOC 1001 D0,515)) “1CC(D0, 3i5)—$P( “ICC (D0, S15°,U,1,4) 
a “i",! D EX S FILEDm*", DAD), ,datae"" — ERFLAS Q 
rt KOND,IP, LAST, LAST! , PILED, NCOF, EMP, 1610, XGLO. IO, NAME, CL 
© 02,%),%3,5UB, LVX, VY, UX1,LV,CATE,I,% Q 
~ 
GSET ;FT 


LAST ONE I TTI TEST TIT ING aE ETE A PEED CLES ESTE I LTTE EDIE AEE I AOE TO 
= EMPLOYEE (YGLO) FROM ICC MODULE (XGLO) 

SD“ ptg(903, FORM, 12, 1DN,259)) 

CE £.tq( 903, FORM, 12, 10N,29) , AGLOSNODE D NAME Q:NAME@"" 

NOC: "nowne ce"! (NOOEe"*)} 

NOGEeSp(ptg( 903, FORM, 12, 108,16), U,11),X6LO%"" G:NOCE?IN.E GSUB Q 
NODE@SP(SP(NODE, "°",2),7, 7°71) NODE a" NODE OQ: SDL ANODE) 
YGLO="SP( EMPLOY( EMP," ICC", TL" SP(XGLO,0°..), AXe"S XL] XGLO 
V¥2"S " YOLO “wtXl" X UW OQ ~ 

Nie’ ptgl903, FORM, 12, 10N,99),SUB(NODE}@IDN 1 +5P(°DO(1004.2,N1,0),U,2) 
m1 Q 


2a edd 


GSUB 


OO Fea ites UIDs 


Lee ee a ee a eS ere eo oe an ace 


EvelLVel, PORMe"" T LVOL PF bleLV:-152 5 DAC LS eOA( 42-1) 
ACL) @OA,DAe1l,NOe "DAC" Lv %)” 

tel:l S FORM@50(SUB( FORM) ) Q:FORMe"* og [ite"* F tlel:) 
0h 50(“ptq( 907, FORM, 12,108) ) Q:i0Ne"* oO MPL 





MFLOS 


WAV 


j 
t 


eid 











K SUB S SUB®"" F I#l:1 S SUBeS$O(SUB1(SUB)) 0:SUB="" 
——> S$ SUB(SUB)#SUB1 (SUB) 
K SUB1, INUM, IDN, 8X, 4¥, tY1, FORM G END 
QUIT j--— 
MF1 ;MUTIPLE FIELDS 
:'SD! “pte 903, FORM, 12, 1DN,28)) 
NCDE="pt3{903, FORM, 12, IDN,28),XGLOeNODE I !:CCE="nowhere"!(NODE={"") 
NCODE#So( “ptg( 903, FORM, 12,1DN,16),U,11),XGio="" 
:NODE?3N.E MFISUB Q 
$Xe""" SP(SP(NODE,"°",2),",DA,",1),NODE*3x_ ">" Q:'SD( @NODE) 
%Y=" “EMPLOY(EMP,""ICC"", CL," _SP(%X,ND _*,",-° ", 7, 8Xe8X_"," 
INUM=SP( SUB( FORM),"7",2) D:/SD(INUM(INUM)* Xv" tRCR 
S¥l|e"S SPC BY "OV, 888", ZeINUM", INUM(INUM @"" X SYL Wo". Q 
MF1SUB Q:‘SD(INUM) 
S SUBl="ptg( 903, FORM, 12, 1DN,99),SUBl]e+SP( “DD: "NUM, SUB1,0),U,2), 
——>  SUBL(NODE)@IDN_U SUB] Q ;SUR NCOE FOR WIT =S5 STATEMENT 
NAME  :NAME CHECK SUB 
S NAME@"" I $0(“ptg(903,FCRM,12,I0N,13)! S NAtE@*ptg( 903, FORM, 12, IDN,13) 
S:NAME#' NAME” NAME="" 





UNNNANUND 


QUIT 
eeoee INDEX CF T3CFILE tea td 
LOCAL VARIABLES LINE OCCURRENCES ( * Changed ° Killed) 
»> % INIT+5®, LOOP* ,MFLDS+2* 
>> 42 MFLDS* 
>> 3 E+ 2*, END+ 3* 
4X GSET+3*,MFLDS+4! ,MF1l+2*,MFl+3¢ 
ay GSET¢3®, MFLOS+41,MF1+¢3¢,MF1¢5 
71 MFLDS+4!,MF1+5¢ 
>> ANS FILE+¢1* 
>> CF INTTe1°, INIT+5, LOOP+1 
>» CL INTTe3¢@, INTT+#4¢, INTT+#5®, INIT+6@, LOCOS +1, ENDe) 
»> 00 INIT», LOCP41, FND+2, END+3, END+4, ENDS 
>> DA INIT, ENDeS*® , MFLOS¢1¢ 
>> TA MFLOS*® ,MFLDS«1¢ 
22 DATE INiT#2, INIT#4, INIT*#S, LOOPs] 
>> EMP IhelTe2,INIT+3, INIT#4d, INITOS, INIT+6.LOCP+el] , ENDel 
TRFLAG INIT#7,£NDel, END+5! 
»> FILED rwDeSe 
FORM MFUOS®, MFLDS¢2* ,MFLOS+4! .MP1+4 
»> I MFLDS+j3* 
TDN L-CP* , MFLDS+4¢! 
INUM MFLDS¢d! .MFlo4d* MFi¢S MFISUB 
>> INUM( MFl¢4,MPisSe@ 
>> LV LOOP 41, MFLDS® , MFLOS41 
‘31 CSUBtt 
>» ND SSETO3,MFLOSe1¢, MEL o3 
>> KE COETeL® GSETO2¢ MFleol® MFlel* 
Sup 20, MFLOS+¢ 3! * 
>> SUB( GOUBe®, MFLDSs 1*,MFled 
cupt MFLOS¢4!  MFISUBE 


ao SUBlt MFLDS* 3, ¥FLSUB* 











>> U INTT+4, INIT+6 , END+4 
>> XGLO GSET+1* , GSET+3 ,MFl¢i« 
>> YGLO GSET+3* 


GLOBAL VARIABLES ( * Changed ! Killed) 


“EMPLOY ( INIT+3, INIT+4, INIT+5 / INTT+6, LOOP+1*, END+1* 
“ICCh LOOP+1*, END+2!, END+3!, ENDeg* 
NAKED GLOBALS 
NONE 
LABEL REFERENCES 
END MFLDS+4 
EX INIT, INIT+2, INIT+7, FILE+} 1END+5 
FILE INIT+3, INIT+4, INIT+6 + INIT+7 
GSUB GSET+1 
MFLSUB MFl+} 
MFLDS END 
NAME GSET+1 


EXTERNAL REFERENCES 


aXe URCR MF 1+4 
“TICSPD RSET 


d=] 








ee a gee 


te te nga, 





T3CFSEL;DMP;SelectED LOOK UP FOR FORMS ; 12 Nov 87 4:09 AM 
D1C=#1004,U="*", DiE=" “EMPLOY(",DUZ(0)="@1",DUZ=0, DTIME=600 
(DR,DR(1,1004) )=".01;2000;",DR(2,1004.2)=".01;" 
DIC(O)*"ACELM",ICC="ICC" D “T2GUSER 

“DIC Q:'SD(X)!(¥<O0) S$ EQe+Y,DASEO D “DIE 
:SD(D1)!("$D(D)) S El=D1,FNe+D Q:FN="" 

SLOs"EMPLOY(" £0 ",ICC,"_El_"," 


wMOUMWM ta 


beat Lad INDEX OF T3CFSEL CES ae 


LOCAL VARIABLES LINE OCCURRENCES ( * Changed ! Killed) 
>> Dd T3CFSELe2 
>> Dl T3CFSEL+2 
>> DA T3ICFSEL+2* 
>> DIC P3CFSEL+1* 
»> OIC( T3CFSEL+1* 
>> DIE T3CFSEL+1* 
>> OR T3CFSEL+1* 
>> DR T3CFSEL+l* 
OTIME T3CFSEL+1* 
CUZ TICFSEL+1* 
>> DUZ( T3CFSEL+1* 
>> £0 T3CFSEL+2* 
>> Fl TICFSEL+2* 
>> FN T3ICFSEL+2* 
>> GLO TICFSEL+2¢* 
>> cc T3°FSEL+1* 
»> U TICESEL+i* 
>> X T3ICFSEL+2 
»> YY T3CFSEL+< 


GLOBAL VARIABLES ( * Changed ! Killed) 
NONE 
NAKED GLOBALS 
OE 
LABEL REFERENCES 
NOE 
EXTERNAL REFERENCES 
“pIC TICFSEL+2 


“DIE TICPSEL+2 
“TIGUSER TICFSEL+L 











TICOMP ;DMP; STORES COMP INFORMATION IN “INJ(1009 ; 03 Nov 87 11:39 AM 
INIT NEW PC,FC,EC,INC,DATA,DATE4,COMP D KILL S U=""" 
I 'SD(DT) S X=#S$ZD(+SH),%DT="" D “$DT S DT=Y 


S COMP=$S(SD(D0):D0,$D(DA):DA,1:"") G EX:COMP="", 2X: '$D( “ICC(COMP, 220) ) 
S:'SD(71INJ(1009,0)) “INJ(1009,0)="COP DATA” 1009P**" 
S DATA=*ICC(COMP, 251) ,DATE4=$P( “ICC(COMP,251),U,1) ,DATE4=$P(DATE4,".",1) 
G:DATE4=@"" EX 
COMP ;SET COMP INFORMATION ; 
S_ FC#SS(SP(*INJ(1009,0),U,3)<1:1,1:$P(“INJ(2009,0),U,3)+1) 
S PC#$S(SD(*INJ(1009, "B",COMP) }:$0( “INJ(1009."B",COMP,"")),1:FC) 
G:S$D( ~INJ(1009,PC)) CM2 
S “INJ(1009,PC,0)=COMP_U_$P(“ICC(COMP,0),U,2.3) 
- § *INJ(1009,"B", COMP, PC)="* 
S *INJ(1009,PC,1,0)="°1009.01D°1°1", INC#i,EC=1, 
S *INJ(1009,PC,1,INC,0)=DATA, “INJ(1009,"C",DATE4, PC, INC)="" 
S S$P(*INJ(1009,0),U,3,4)=FC,SP(°INJ(1009,0),U,4)=FC G EX 
CM: S:'SD(~INJ(1009,PC,1,0)) “INJ(1009,PC,1,0)="1009.01D°°" 
S EC@SP(~INJ(1009,PC,1,0),U,3)+1, INC#$S(S$D( “INJ(1009,"C" ,DATE4, PC) ): 
~--> $O( 7 INJ(1009,"C" ,DATE4, PC,"")),1:EC) 
S *INJ(1009,PC,1,INC,0)=DATA, ~INJ(1009,"°C",DATE4, PC, INC)@"", 
S "INJ(1009,"B",COMP,PC)="" S:INC@EC $P(“INJ(1009,PC,1,0),U,3)=EC, 
S $P(7INJ(1009,PC,1,0),U,4)@$P( “INJ(1009,PC,1.0),U,4)+1 
EX D KILL CQ — ; ceemtnenesenanennesnnenentnen tae. 5 
KILL K PC,FC,EC,INC,DATA, DATES, COMP Q 
eaten INDEX OF T3COMP were 
LOCAL VARIABLES LINE OCCURRENCES ( * Changed ! Killed) 
>> Dr INIT*® 
COMP INIT, INIT+1*, INIT+3,COMP+2,CM1,CM2+1, KILL! 
>> dO INIT+1 
>> DA INTT4L . 
DATA INIT, INIT+3*,CML,CM2+1 , KILL! 
OATES INIT, INIT+3*,CML,C42,CM2+1,KILL! 
oT INIT* 
EC INIT, CM1*,CM2*,CM241,KILL! 
FC INIT, COMP+1* , COMP+2,CM1, KILL! 
INC INIT, CM1*,CM2*,CM241, KILL! 
PC INIT, COMP+2* , COMP+3,CM1 ,CM2,CM241,KILL! 
>? U INIT*, INIT+3, COMP4+1,CM1,CM2,CM2+1 
>> K INIT* 
>> ¥ INIT 


GLOBAL VARIABLES ( * Changed { Killed) 


“ICC ( INIT4¢1, INIT+3, CML 
“INJ( INIT#+2*,COMP+1,COMP+2, COMP+3,CM1*,CM2*,CM2+1* 


NAKED GLOGALS 
NONE 


LABEL REFERENCES 


D-23 














CM2 COMP+ 3 
EX INIT+1, INIT+3,CM1 
KILL INIT, EX 


EXTERNAL REFERENCES 


%OT INIT 











T3COP ;DMP- STORES COMP INFORMATION IN ING(1008 ; 93 Nov 87 11:26 AM 

INIT NEW PC,FC,EC,INC,COP,DATA,DATE3 D KILL S Us""" I ‘SD(DT) 
X=$Z2D(+SH),%DT=""_D “SDT S DT=¥ 

COPe$S($D(D0):00,$D(DA):DA,1:"") G:COPe"" EX G:'SD(“ICC(COP,220)) EX 
:°SD("INJ(1008,0)) “INJ(1008,0)="COP DATA” 1008P""" 

DATA@*ICC(COP, 220) , DATE3=$P( “ICC(COP,220),U,1),DATE3=$P(DATE3,".",1) 
CATE 3="" EX 

COPS ;SET COP INFORMATION 


AMMAN 


S FC#$3(SP(7IN3(1908,0),U,3)<1:1,12:S$P( “INJ(1008,0),U,3)+1) 
S PC#$S($D( ~INJ(1003,"B",COP}):$C("INJ(1008,"8",COP,"")),2:FC) 
S:$D("INJ(1008,PC)} CP2 
CPL S “IN1(1608,PC,0)=COP_U SP(“ICC(COP,G),U,2,3) 
S “INJ(1068,"5",COP,PC)="", “INJ(1008,PC,1,0)=""1008.01p7171" 
S INC#1,£C#1,°INJ(1009,PC,1,INC,U)=@DATA, “INJ(1008,"C",DATE3,PC,INC)="" 
S$ !PC7INJ(2008,0),U,3,4)=FC,SP(~INJ(1908,0),U,3)=FC G EX 
CP2 $:/$D(°INJ(1008,PC,1,0)) ~INJ(1908,PC,1,0)—"1008.01D°"" 
S E lw$PC71r'3(1008,PC,1,0),U,3)+1 
S INCm$S($D("~INJ(100@,"C",CATE3,5C!): 
a-~> = SO INJ(1208,"C", DATES, FC,"")),is8C) 


S “Ing(10C8.P2,1-INC,0)@DATA, “INJ(1008, "C",DAE3,PC,INC)="" 
S “Ing(2902,"8",COP,PC)e"" S:INC#EC $2( 7 INJ!1098,PC,1,0),U,3)=EC, 
---> 3°) “INIT(1008,FC,1,0),U,4)$Pf INI{10N8, PC,1,0: .U,d)4l 
EX D KILL Q  j wewaewerere: ss ayeareseeeeenenatan seman aes: 3, Seber utr 2 wanes as Dereon | 


KILL K PC,FC,EC,INC,DATA,DAIE3, COP Q 
tela Dat INDEX OF T3COP w**7* 


LOCAL VARIABLES LINE OCCURRENCES ( * Changed ‘' Killed) 


yo 8 OT iNiT* 
TOP INIT, INIT#1*, INTT+2,COPS+2,CP1,CPZ-1,. KIL‘! 
>» OO INIT+41 
>> DA INIT +1 
DATA INIT, INTT+3*, P1,CP2+1,KILL! 
DATE3 IND S, INIT+3*,CP1L,CP2,CP24+1. KILL} 
DT INGT* 
Ec INIT, CPL*,C?2*,CP2+1, KILL! 
FC INI™, COPS4+1*,COPS+#2,CP1,KILL! 
INC INIT, CP1*,CP2*,CP2¢1,KILL! 5 
Pc INIL', COPS+2*, COPS+3,CP1,CP2,CP2+1, KILL! 
>> U INT. *, INIT#3,COS4+1,Crl,CP2,CP2+1 
>> Xx INI .* 
>> Y INTIS 


GLOBAL VARIA3LFS ( * Changed 1! Killed) 


“ICC ( INIT#1, INIT¢+3,CP1 

“INI ( LNIT+#2*,COPS+1,COPS+2,COPS+3,CP1*,CP.*,CP2+1* 
NAKED GLOBALS 

NONE 


LABEL REFERENCES 














CP2 COPS+3 
EX INIT+1, INIT+3,CP1 
KILL INIT, EX 


EXTERNAL REFERENCES 


“SDT INIT 


D-26 











T3COPD ;DMP;CREATES COP NOT TO EXCEED DATE] ; 15 Nov 87 11:19 PM 
INIT I D EX S (H,H1,H2,H3,PT)="*,Ua"*" G:'SD(D0) EX 
COP *$D( “ICC(DO, 220) ) 
DATE1@SP(“ICC(DO,0),U,2) ,DATE1=$P(DATE1,”".",1) 
SP(*ICC(DO, 220) ,U,1)=DATEL 
DATE1=S$P(“ICC(DO,220),U,1),DATE1=$P(DATE1,".",1) 
:SP(*ICC(DO,220),U,2)="" NTEX 
:SD( “ICC(DO0, 221) )&($P( “1CC(D0,220),U,4)="") 
$P(“ICC(DO,220) ,U,4)=$P( “ICC(D0,221),U,3) :COP RETURN 
:$D(*ICC(DO,1700)) H=SP(*1CC(D0,1700) ,U,3) ,Hl=SP(“ICC(00,1700),u, 16) 
——-> =, PT#$P( “ICC(D0,1700),U,7) 
$:$D( *ICC(D0, 300)) H2=$P(*ICC(DO,300),U,6) ,H3=$P( ~ICC(DO, 300},U,7) 
S $P(*ICC(DO,220) ,U,3)=S$S(H%e"":H,H2!e""2H2,1:8) 
—>  ,S$P(*2CC(D0, 300) ,U,6)=$P( “ICC(D0,220),U,3) ;RESET REGULAR HOURS 
I PT=""1(PT("F") S SP(“ICC(DO,220) ,U,5)=$P( “ICC(D0,220) ,U,3) 
—>  ,$P("ICC(D0,300),U,7)="" ;FULL TIME 
: I PT{"P" § $P(“ICC(DO, 220),0, 5)eSS(HL’=""sHL,H!="":H,H3 =": H3, 1: me) 
-_—-> ,SP(7ICC(D0, 300) ,U, 7) =SP( “sJCC(D0,220),U,5) ; PARTTIME 
EX K Y,0,M,1,MXD,MXDAYS,H, HI ,8,H3,PT,DATE] Q 


aAnnogounnunr as 








NTEX g YeSE(DATE],2,3),M=SE(DATE2,4,5},DeSE(DATE],¢,7) D YR 
ADD ;ADDS 45 DAYS TO DATE] 
F Ie#l:1:45 S MXDAYS=SP(MXD,";",M+l1) S DeD+l S:D>MXDAYS MeM+1,De1 
-~=> I M>13 S Mel,Y=Y+l D YR 
S:SL(M)<2 Me"O0" M &:SL(D)<2 De"0" D S $2(“ICC(D0,220),U, 2) 0" 2" | ¥ MI 0Q. 
YR ;SETS UP THE MAXIMUM DAYS FOR A GIVEN 
I Y>87,°(Y#4) S MxDeS5T(DATA+2) Q 
S MXDeST(DATA+1) Q 
CATA ; JAN; FEB;MAR;APR; MAY; JUN; JUL;AUG; SEP; OCT; NOV; DEC 
$31;28;31;30;31;30;31;31;30;31;30;31 
$31;529;31;30;31;30;31;31;30334;30;31 


seees INDEX OF TICOPD ***** 


LOCAL VARIABLES . LINE OCCURRENCES ( * Changed ! Kiiled) 
D EX! ,NTEX*,ADD+1" ,ADD+2* 
>> dO INIT, COP, COP+1 , COP+2,COP+3, COP+4 , COP+5, COP+6 , ADD+2 
DATE) COP* ,COP+1*, EX! ,NTEX 
H INIT* , COP+3* , COP+4 ,COP+6, EX! 
H1 INIT*®, COP+3*, COP+6, EX! 
2 INIT*,COP+3*®,COP+4,EX! 
H3 INIT*®,COP+3*,COP+6,EX! 
I INIT, EX! ,ADD+1* 
M EX! ,NTEX* ,ADO+1* , ADD+2* 
MxXD EX! ,ADD+1, YR+1*, YR+2# 
MXDAYS EX! ,ADD+1* 
= Pr INIT* , COP+3*, COP+5,COP+6, EX! 
» U INIT* , COP, COP+1 , COP+2, COP+3, COP+4,CO+5,COP+6 - 
¥ EX! ,NTEX* ,ADO+1*,ADO0+2, YR+1 


GLOBAL VARIABLES ( * Changed ! Kilied) 


“1CCl COP* , COP+1 , COP+2* ,COP+3 , COP+4* , COP+5* , COP+6* ,ADD+2* 
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NAKED GLOBALS 
NONE 
LABEL REFERENCES 
DATA YR+1, YR+2 
EX INIT 
NTEX COP+1 
YR NTEX, ADD+1 











T3CPAK ;DMP;CREATE AN ICC PACKAGE ; 05 Feb 88 3:0) PM 
INIT W !,2?2,"Creating “ICCIMP Global. This should take approx 15 minutes.”,!! 
EMP “T3CPAK 
$D( “ROUTINE( “T3CINIT") ) 
!, "DELETE THE <T3CIN*> ROUTINES FIRST BEFORE I CONTINUE.....",! 
“$RDELETE G DEL 

DUZ(0)="@",Xe"T3C" ;CREATING PACKAGE 
!!,"I am going to create a routine called ’",X, “INIT’. “ 
“UTILTY($9) F,CTL,Q,E 

ja" tm), $B", Dial, OTL#X, DN=X . SE(“INI",1, 5-SL(X)) 
“ORLTTT Gavetht XeX_ "INIT" 
R1+3“DIFROM 
RO 1t,"1, D *%RO TO STORE ROUTINES: T3C* AND c*, VMS FILE --<T3C.ROU>* 
GO Wt,"2. D “$60 TO STORE GLOBALS: 
—> at “FORMS, “ptg, and “ptc IN <T3C.GLO>" ;:D *%GO0 

!,"3. THEN TRANSFER THE T3C.ROU AND T3C.GLO FILES TO TAPE",! Q 


AE AILS EEE IE OE IE TE EE EE TTY AS TEE IS 





ee ee ee 


we 





EMP K “ICCTMP S “ICCTMP(1004,0)="FIELD* *2000°45" 
S (“ICCIMP(1004,0,"PT",1008, .03), “ICCTMP(1004,0,"PT",1009, .03))="" 
F fe.01,1,2 S “ICCTMP(1004, 0,"PT",1005,1)="" 
S “ICCTMP(1004,2000, 0)=" INJURY COMP AND CLAINS”1004.2IPA"“ICC;0", 
S “TCCTMP(1004,"B"," INJURY COMP AND CLAIMS",2000)="" 
S (7 ICCTMP( 1004, "GL", "ICC", 0,2000) , “ICCTMP( 1004, "SB",1004.2,2000) )="" 
S X#1004.199 F Iel:1 S X=mSO(°DD(X)) @:X>1004.999 
~~—+> S tX="“Dp("_X_",", b¥="- ICCIMP(" X_"," D tX¥°3RCR 
Qi oar ectenmdinetetmcnireenttnntancteiseptttitimrinenamtiintnstemtmineniteimniaimnrimiraastinsabananae $ 
teen INDEX OF T3CPAK a td 
LOCAL LINE OCCURRENCES ( * Changed ! Kilied! 
VARIABLES 
>> % DIF+2* 
>> %B DIF+2* 
>> &X EMP+2* 
>> bY EMP+2* 
>> DL DIF+2* 
>> DN DIP+2* 
OTL DIF+2!* 
>> DUZ( DIF*« 
E DIF+2! 
F DIF+2! 
»> I EMP* , EMP+2* 
Q DIF+2! 
>»> U DIF+2* 
>> X DIF* ,DIF+1,DIF+2*, EMP+2* 


GLOBAL VARIABLES ( * Changed ! Killed) 


“ppt EMP+2 
“ICCTMP ( EMP! *,EMP+1* 
“ROUTINE ( DEL 

“UTIL ITY( DIF+2!e 


NAKED GLOBALS 

















NONE 
LABEL REFERENCES 
DEL DEL 
EXTERNAL REFERENCES 
$XY* $RCP. 
“SRDELETE 


R1l+3°DI FROM 
EMP“ T3CPAK 


D=30 





T3CPYNF;DMP; STORES PAY INFORMATION IN PAY INFO FILE ; 12 Aug 88 12:12 PM 


_ INIT D KILL S Us"*" I 'SD(DT) S X=$ZD(+SH),%DT=""_b “$DT S Die¥ 
S PAY=$S($D(D0):D0,$D(DA):DA,1:"") Q 
INC S:'SD(*ICC(PAY,5,0)) “ICC(PAY,5,0)=""1005. 381° 0" 
S N=SP(“ICC(PAY,5,0) ,U,3) ,NeN+l,SP(“ICC(PAY,5,0),U,3, 4) =n UNQ 
PAY S FROM=$P(FROM,”.",1) Q:FROM="" 
Q:SD(* ICC( PAY, 5, "8", TYPE) )&($D(“ICC(PAY,5,"C".FROM))) D INC 
s “ICC(PAY,5,N,0)=TYPE U FROM U THRU U GROSS U RU OTHER 


S “ICC(PAY,5,"B", TYPE,N)="", “ICC( PAY, 5, "C", FROM,Ni="" Q 
c600 ;ENTRY/EDIT LOG 
D INIT G EX:‘SD( PAY) ,EX:PAYe"" S:$D(“ICC(PAY,2)) 
—>  $P("ICC(PAY,222),U,1)=$P{“ICC( PAY, 3),U,8), 
—~->  SP!*ICC(PAY,222),U,2)=SP({ “ICC(PAY,3),U,7) d “T3COPD G EX 
CAL °;STOPES PAY INFORMATION 
D INIT G EX:’SD(PAY),EX:PAY="" S (R,R1,B,Bl)="" 
:$D(“ICC(PAY,3)) BeSP(“ICC(PAY,3),U,7),R=SP( “ICC(PAY,3),U,8) 
:SD(*ICC(PAY,222)) Rl=$P(“ICC(PAY, 222) ,U,1),Bl=SP( “ICC( PAY, 222) ,U,2) 
:RleR EX S:Re"" $P(“ICC(PAY,3),U,7,8)=B1l_U_Rl 
:Rle"" ae ICC( PAY, 222),U,1,2)=R_U_B G EX 
INIT G EX:’S$D( PAY), EX: PAY="* 
$D( “ICC{ PAY, 232)) S Re"l1,3,5,7,.9",Rie"2,3,4,5,6" F Yuds1:5 
BaSP(R,",",1) »BleSP(RL,"," oI) $:$P(*ICC( PAY. 232),U,B1)’="" 
-~—->  $P(*ICC(PAY,231),U,B)=S$P( “ICC( PAY, 232) ,U,B1) 
S TYPE=2 
S Re$S($D(“ICC( PAY, 214) ):$P( (214) ,U,1,2), - 
—->  $D(~ICC(PAY,213)):$P(“(213),U,1,2) ,$D( “ICC( PAY. 231) ) :$P(°(231),U,1,2), 
-——> SD( ~ICC( PAY, 222) )} :$P( “(222),U,1,2),1:"") 
I $D(“*ICC(PAY,250)) S FROM=$P(“ICC(PAY,250),U,1), 
~-~->  THRUsSP(“ICC( PAY, 250),U,2), GROSS#SP( “ICC( PAY. 250),U,16) ,OTHER="" 
G EX:'SD( FROM), EX: FROMe"" D PAYINFO G EX 
CA3 D INIT G EX:'’S$D( PAY) ,EX:PAY="" 
S ReSS(SDf“ICC( PAY, 231) ):$P(*(231),U,1,2), 
“=> $D( “ICC{ PAY, 222)):$P(7(222),U,1,2), 
-—>  $D( “ICC PAY, 3) ):$P(“ICC( PAY, 3),U,8)_U_$P(“ICC{ PAY,3),U,7),2:"") 
G:'$D(*ICC(PAY,250)) CA31 
K RO I S$P(“ICC(PAY,250),U,1)’=** 
--->  § TYPE@2,FROMeSP( “ICC( PAY, 250),.U,1), 
~——>  THRU@SP{ “ICC( PAY, 250),U,2), GROSS=SP{ * ICC( PAY, 250),U,16) ,OTHER=" 
S:$P{ “ICC( PAY, 250) ,U,17)'="" RO@R, ReSP{ “ICC( PAY, 250), U, 17, 18) 
D PAYINFO 3:$D(RO) ReRO K RO 
I S$P(“ICC{PAY, 250) ,U,3)’="* S$ TYPE@5, FROMeSP( “ICC( PAY, 250) ,U,2), 
——>  THRU@SP(“ICC( PAY, 250) ,U,4) ,GROSS="" ,OTHER@"" D PAYINFO 
_ I SP(*ICC( PAY, 250) ,U,5)'a"* S$ TYPEad, FROMRSP!( “ICC( PAY, 250) ,U,5), 
—->  THRU@SP( “ICC(PAY,250),U,6),GROSS@"" ,OTHER="" 1 PAYINFO 
I SP(“ICC(PAY, 250) ,U,7)’="" S$ TYPE=6, FROM@eSP( “ICC( PAY; 250),U,7), 
—->  THRU@SP( “ICC( PAY, 250),U,8),GROSS="" ,OTHEReSP( “1CC( PAY, 250) ,U,9) 
—+> 0 PAYINFO 
CA31 1 SD("ICC(PAY,251)) 1 SP(“ICC{PAY,251),U,1)'="" S TYPE=3, 
—-> = FROMeSP( “ICC( PAY, 251) ,U,1), THBUsSP( “ICC( PAY, 251),U,2), 
—->  GROSS#$P( “ICT( PAY, 251),U,3},OTHER="" D PAYINFO 
I SD(“ICC(PAY,252)) I $P(*ICC(PAY,252),U,1)'="" 
S TYPi=7 , FROM@SP( “ICC( PAY, 252),U,1) ,THRUSSP( “ICC( PAY, 252) ,U,2), 
——~>  GROSS=$P(“ICC( PAY, 252) ,U,3),OTHER@SP( “ICC( PAY. 252) ,U,5), 
——> ReSP(“ICC(PAY,252),0,4,5) D PAYINFO G EX ;MIST 





AnONnANnN 


D-31 

















G EX 
CA6 G CA3 
CA? —sG-_CA3 
CABG: CA3 
EX DK 

KILL I, 


LOCAL VARIABLES 


>> tDT 


>> dO 
>> DA 


>> N 


ILL Q 
£ 


| SOT ATONE LIE SE * 
t ’ 


7EXIT ROUTINE 
/R,RL,B,B1, PROM, THRU, RATE, BASIS,GROSS .UTHER, PAY Q 


teane INDEX OF T3CPYNF 0 te-t# 
LINE OCCURRENCES ( * Changed ! Killed) 


INIT* 

CAl+1*,CA1+2,CA2A+1*, KILL! 

CAl1+1*,CA1+2,CA2A+1*,KILL! 

KILL! 

INIT+1 

INIT+1] 

INIT* 

PAYINFO* , CA2A+3*, CA2ZA¢4, CA34#2*, CA3+3°,CA5+4*,CA3+5#,CA31* 
CA31+1*, KILL! 

PAYINFO, CA2A+3*,CA54+2*,CA343*,CA3+¢* ,CA3+5*,CA31*,CA31+1* 
KILL! 

CA2ZA+1*, KILL! 

INC* , PAYINFO 

PAYINFO, CA2A+3*, CA3+2*,CA3¢3*,CA3+4*,.CA345#,CA31*,CA31+1* 
KILL! : 

INIT+1*, INC, PAYINFO, CAl+1,CAl+2,CALA, TA2A¢1,CA2A+2,CA2A+3 
CA3,CA3+1,CA3+2,CA3+3,CA3+4,CA3~S,CA21,CA31¢1 , KILL! 
PAYINFO, CAl+1*,CAl+2,CA2A+1*,CAZA+.~. (A34+1*,CA34+2*,CAI141* 
KILL! 

CA3421* 

CAl+1*,CAl+2,CA2A4]1*, KILL! 

KILL! 

PAYINFO, CA2A+3*, CA3+2*,CA3¢3*,CA3+4*, CA3+5#,CA31#,CA3141# 
KILL! 

PAYINFO, CA2A+2* ,CA3+2*,CA34#3®,CA34d* ,CA3+5*,CA31*®,CA31L+1* 
KILL! 

INIT*, INC, PAYINFO, CAL+1,CAl+2,CA2A+1 , CA2A+2,CA2A+2,Cho+l 
CA3+2,CA3+3,CA3+4,CA3+5,CA31,CA31+¢1 ' 

INIT* 

INIT 


GLOBAL VARIABLES ( * Changed ! Killed) 


“ICC ( 


NAKED GLOBALS 


“(213) 
“(214) 
*(222) 


“(231) 


INC*, PAYINFC* ,c600+1*,CAL+1,CAI+2*, CALA+1*,CA2A+2, CA2A43 
CA3+1,CA34+2,CA3+3,CA3+4,CA3¢5,CA31,CA31+1 


CA2A+2 
CA2QA+2 
CA2A+¢2,CA3+41 
CAZA42,CA341 


De so 











LABEL REFERENCES 


CA3 CA6,CA7,CAB 

CA31 CA3+1 

Ex c600+1,CAl+1,CAl+2,CA2A, CA2A44,CA3, CA31¢1,CA31+2 
INC PAYINFO 

INIT c600+1,CAl+1, CAQA,CA3 

KILL INIT, EX 

PAYINFO CAZA+4 ,CA3+2,CA3+3,CA3+4,CA3+5,CA31.CA31¢1 


EXTERNAL REFERENCES 


' “tor INIT 











#aene CROSS REFERENCE OF ALL ROUTINES eeeee 


LOCAL VARIABLES ROUTINES >> not killed explicitly) 


>> 


>> 
>> 


»> 


>»> 


>> 


>» 


>> 


>> 


>> 


>> 
>> 


$1 
42 
$3 
84 
$88 
$98 
499 
‘B 
&8DT 
&x 
ty 
t¥1 


CONSR 


OATE1 
DATE 3 
DATES 


* Changed ! Killed: 


T3CF*: , TICF1*!, T3CFB*! , TICFILE*, TICFAK* 
T3CF* ,T3CF)*!,T3CFB*! 
T3ICF*! ,TICF2*, TICFILE*® 
T3CF*! , TICFILE* 
TICFe! 
T3ICF2* 
T3ICF*! 
TICF*! , T3ICP1*! ,TICFB*! 
TICPAK* 
T3ICOMP* , T3COP* , TICPYNF* 
TICPILE*! , TICPAK*® 
TICFILE*! , TICPAK*® 
TICFILE*! 
T3CFe! 
TICF*! 
T3CFle! ,TICFZ*, TICFBe! 
T3ICF2*, TICFILE* 
T3CPYNF*: 
T3CPYNF®! 
T3ICPYNF! 
TICr*! 
T3CF* ,TICFB* 
TICFl¢, TICFI®! 
T3ICFl*, TICFBe 
TICF1¢! ,TICFBe! 
TICF1¢!, T3ICFBt! 
TICFl*!,T3ICFBe! 
TICFL*! ,TICFBe! 
TICFLe!, TICFAS! 
TICFCK*!, TICFILE* 
TICFILE* 
T3CFe! ,TICF1*!,TICFB*!, paacenes 
TICOMP® | 
T3ICr2e 
T3CT2¢ 
T3COP*! 
T3CPe! 
TICP11, TICFB!, TICPSEL, TICOPD*! 
TICF2, TICPILE* , TICOMP, TICOP, TICOPD. TICPYNF 
TICF11, TICFB! , TICFSEL 
T3ICP1! ,TICFB! 
TICF1! ,TICFB! 
TICF2, TICFCK, TICFILE*, TICFSEL* , TICOMP. TICOP, TICPYNF 
TICFILE* 
TICOMP*! , TICOP*! 
TICFCK*! , TICFILE 
TICOPNe! 
TICOPs! 
TICOMP?! 


D= 34 





»> 


»> 
»> 


>> 
>> 


>»> 


>> 


»> 
>> 


>> 


be 
orl 
orc 
DIC( 
OIE 
DL 


1c¢ 





T3ICFis! , TICFB*! 
T3ICF*! 
TICF2, TICFB* , TICFSEL* 
TICFB* , TICFSEL* 
T3ICFSEL* 
T3CPAK* 
T3ICPAK* 
TICFB* , TICFSEL* 
T2CFSEL* 
TICOMP* , TICOP* , TICPYNF* 
TICF2, TICFSEL* 
T3ICPAK*! 
T3CF2 , TICFSEL* 
TICFSEL* , TICPAK*® 
T3CPAK! 
T3CP , TICFSEL* 

* 


TICFSEL 
T3ICOMP*! , TICOP*! 
T3ICre 


“TICFILE 


T3CFe! 

T3ICFI®! 

TICFILE! 

TICFCK*! 

TICPAK! 

T3ICOMP*! , TICOPF! 
TICFILE* 

TICFCK#! 

TICF*, TICFL,TICF2, TICFB*, TICFCK*! , TICFI, TICPSEL* 
T3CFCK*! , TICFILE*! 
TICPYNF®! 

T3Cre! 

T3CF, T3ICFSEL* 

T3CFe! 

T3Cre! 

TICPYNF*! 

TICOPDe! 

TICOPDe! 

T3COPD* ! 

T3ICOPDe! 

T3CP1e1, TICKB*!, TICFI*! 
TICF1¢ , TICFBe 

TICF2¢ 

TICPIt 

TICF1e! , TICBe! ,TICHCKS! , TICPI“! ,TICFILE*, TICOPD*! , TICPAR*® 
TICPYNF* I 

TICF1*! ,TICPB*t 

TICP1*s , TICES! 

TICP1¢1, TICES! 

TICPies , TICFBS! 

TICFLL, TICFB! , TICFIet 
TICPLL ,TICH2* ,TICB! , TICFI*! 
TICPSEL*® 

TICFILE*! 
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>> 


»> 
>> 


>> 


>> 


>> 


>> 


>> 


>> 


I! 
INC 
INS 
INUM 
INUM( 
10 
T0BS 
IOF 
TOM 
TOPAR 
IOSL 


LINE 


pay 


P2 
PAY 


a 


Pec 


7O383 


RO 


T3CF1*{ ,T3ICFB*! 
T3COMP*! , T3COP*! 
TICPIe! 

T3CFILE*! 

TICFILE* 

T3CF2,T3CFI! 

T3CFI! 

T3ICF* ,T3CFI! 

T3CFi! 

T3CFI! 

T3CFI! 

T3CFI! 

T3CFI! 

TICFCK*! 

TICFCK*! 

T3CFCK! 

T3CF1*, T3CFB* 

T3CF1¢, T3CFB* 

TICFI®! 

T3CF1*,T3CFB* 

TICF*! ,T3CF1*! ,TICF2¢, TICFBe! 
T3CFe! 

T3ICFe! 

T3CF1*, TICFB* 

T3ICF1*, T3CFBe 

TICFILE* 

T3COPD*} 

T3CFe! 

TICFe! 

T3ICOPD*! 

T3COPD*! 

T3ICF1*! ,TICF2*, T3CFB*! , TICPYNF® 
TICFILE*! 

T3ICF*! 

T3CFe 

T3ICFCK 

TICFILE® 

TICPCR! 

T3ICFCK! 

TICFe! 

TICF¢, TICFILE* 

TICF1! ,TICT2*, TICPB*! , TICPIe! 
TICPYNF* | 

T3ICF1¢! ,TICK2*, TICFBe! , TICFIe} 
TICPYNP® | 

T3ICOMP*! , T]COPe! 
TICFe} 

TICK*! , TICF1*! , TICP2¢, TICHHe! 
TICF1*! ,TICF2*, TICFBe! 
T3COPDe | 

TICPAK! 

TICPYNF®*{ 

T3ICPYNF® | 

TICPYNY® | 
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RATE T3ICPYNF! 


RMSDF T3CFI! 
SEC TICF1*! , TICFB*! , TICFI! 
SECN T3CF1*! , TICFB*! ,TICFI! 
>> SECN( T3CF1*, T3CFB* 
SEL T3CF*! 
SHT T3CF1*! , T3CF2*,T3ICFB*! ,T3CFI*! 
SP T3CF1*!,T3ICFB*! , T3CFI*! 
ST T3CF*! 
SUB TICFILE*! 
>> SUB( T3CFILE* 
SuB1 T3ICPILE*! 
>> SUB1( T3CFILE* 
TAB T3C¥F* , T3CF1! , TICFB*! 
TB T3ICF*! , TICF1*, T3ICF2*, TICFB* 
TBl T3CF1*!,T3CFB*! 
TBX TICF1*! , TICPB*! 
TCF( TICF1*! ,TICFB*! 
TCN T3Cr*! 
TEXT T3CFe! ,T3CF1*! ,TICF2*, T3ICFB*! 
>> TEXT( vT3ICcre 
THRU T3ICPYNF® ! 
TLN T3CF1! ,T3ICF2* ,T3ICFB! 
TP T3CF1*!,T3CFB*! — 
TX T3CF*! , T3ICFB* 
TXL T3CF*!, T3ICFB* 
TYPE TICPYNF® ! 
U T3CF*, T3CF1*!, TICF2*, TICFB*! , TICFCK* , TICFILE, TICFSEL*, T3COMP* 
T3COP*, TICOPD* , TICPAK* , TICPYNF* 
>> UP TICFe 
Vv T3ICFe ,TICF1! , TICFB! 
x T3CF*!, TAICF1!, TICFB! , TICFSEL, TICOMP* , TICGP*, TICPAK*, TICPYNF* 
xl T3CFet 
X1B T3CF11,T3ICFB! 
X1E T3ICF1!,T3CFB! 
xB T3ICF1!, TICF2,TICFB! ,TICFI! 
XE T3ICF1!,T3ICF2,T3ICFB! ,T3ICFI! 
>> XGLO T3CFILE* 
Y T3CFB, TICFPSEL, TICOMP, TICOP, TICOPD* ! , TICPYNF 
>> YGLO T3ICFILE* 


GLOBAL VARIABLES 


“Do” T3CP, TICF2, TICPI , TICPAK 

“EMPLOY( T3ICF, TICFCK, TICFILE* 

“FM( T3ICF*! ,TICF1¢! ,T3CF2, TICFB*! 

* FORMS ( T3ICP,T3ICF1, TICF2, TICFB, TICFI 

“icc( TICFCK, TICFILE*! , TICOMP, TICOP, TICOPD* . TIL ZYNF*® 
“ICCTMP( = =  T3CPAK*! 

“INI( TICOMP* , TICOP* 


“ROUTINE ( TICPAK 
“UTILITY( TICPAK® | 


ROUTINE INVOKES: 
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T3ICF T3C¥1,T3CF2, T3CFSEL 
TICF2 SIS, TICFI 
T3CFB DIC, T3CF2 
T3CFCK hprt “ptrslot2 
T3CFY %Is 
TICFILE &XY"$RCR, T3COPD 
T3CFSEL P\C, DIE, T2GUSER 
T3COMP DT 
T3COP sor 
T3CPAK &XY"8RCR, SRDELETE, R1+3“DIFROM, EMP-TICPAK 
TICPYNP tor 

ROUTINE IS INVORED sy: 
“sor T3COMP, T3COP, TICPYNP 
“Is T3CF2, T3CFI 
&XY*SRCR TICFILE, TICPAR 
“SRDELETE TICPAK 
“pic T3IC¥B, 
“DIE T3CFSEL 
Rl+3°DI FROM TICPAX 
“T2GUSER T3ICPSEL 
“T3CF1 T3IcF 
“T3ICF2 TICF, TICFB 
“TICFI T3Cc¥r2 
“T3ICFSEL T3CF 
“T3COPD T3CFILE 
EMP“ T3CPAK TICPAK 
hort “perslot2 TICFCK 

fanne END enen 
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